重命名零件和工程图（图纸升版本）

Dustry

在论坛看到大佬 怕瓦落地2011 的帖子http://www.cmiw.cn/thread-1061682-1-1.html
代码：

1. Dim swApp As Object
   
2.   Dim Part As Object
   ; g* j# x: E& A% [6 r# r4 ?5 r* n
3.   Dim Error As Long
   
4. Dim Warning As Long
     x4 Q* W+ N6 H6 U
5. Dim mip As String
   
6. Dim Status As Boolean
   
7. Dim Newpath As String
     m  `& g3 R9 H' ]& M/ n
8. Dim mipname As String
   
9. Dim vDepend() As String
   , Y, c; U, q. A; @
10.     Sub main()
    7 h7 H/ ?% x* Q" w8 n
11.     Set swApp = Application.SldWorks
    
12.     Set Part = swApp.ActiveDoc
    ) z" U3 s& A) r$ B5 ^6 {$ B
13.     Set swSelMgr = Part.SelectionManager
    
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    0 y) [( y# {' Z4 z; D* b0 f$ X' D
15.         swComp.SetSuppression2 (3)
    ! P$ X% o1 h* M) Y% r/ z
16.     Set swSelModel = swComp.GetModelDoc2
    
17.     Set swSelModelext = swSelModel.Extension
    , w! h" B7 g; v: O+ U
18. 
    0 q/ k: d" N# z  T$ }: E
19.     oldpathname = swComp.GetPathName
    
20. 
    
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路径
    . Q* C, e8 |; K0 P
22.     Debug.Print Path
      V, V4 u' e  e$ ^  ]. `, Z* W
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后缀
    
24.     Debug.Print ntype
    , F' y2 A5 E/ g$ z/ o" v, n+ G
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '旧文件名
    # B& V, U) i4 ]) R/ T
26.     Debug.Print oldfi
    7 ], g; _" o* u* J1 \
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    : e$ s9 l) L/ N. R) b6 f0 c" H1 n
28.          mipname = InputBox("changename", "name", oldname) '新文件名
    8 U7 F+ r/ r0 Y3 Q! J! N+ h; M
29. 
    3 i% t2 J) g" I
30.          mip = Path & mipname & ntype '新文件名带路径
    
31.          Debug.Print mip
    
32. 
    
33.     If mip <> "" Then
    : Z* A6 H! v4 R- ^) w
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替换装配体中的原文件）
    3 O; a/ D! g/ V  Z! K6 d. g
35.       Debug.Print Status
    9 a* U3 q5 S' w8 m. G
36.       '========================
    
37.       '更改工程图文件名
    ! h4 C1 n- e. h: a2 L4 O
38.       Debug.Print Path
    
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍历原文件夹中的工程图文件
    * c: O8 A( _0 t  t
40.       Debug.Print tmpfi
    3 h( ~6 W# J# E) ]/ G( Y
41.       Do Until tmpfi = Null
    
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    4 a  {1 o5 \1 P
43.         Debug.Print tmpfiname
    7 L6 v) u1 G/ }9 V0 H
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    
45.         Debug.Print tmpoldname
    $ Z0 X/ ~7 `! Q& J- z, z1 }9 M
46.         If tmpfiname = tmpoldname Then '查找同名工程图
    
47.         newdrwname = Path & mipname & ".SLDDRW"
    # @9 l  o  G6 W# l
48.         Debug.Print newdrwname
    / T$ ~( ^% I, v) ?
49.         olddrwname = Path & tmpfi
    ( ~8 k- \& R% p0 P. D, t
50.         FileCopy olddrwname, newdrwname '复制工程图到新文件夹
    
51.         vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程图依赖
    
52. 
    
53.         Debug.Print vDepend(1)
    
54.         bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替换工程图依赖
    + T4 o# W, c: U0 m8 W  r9 p6 ~
55. 
    
56.         Debug.Print bl
    
57.          Exit Do
    9 V' `, L' a" H! s7 c, }2 S
58.        End If
    + `; d; E7 k/ H' ~
59.     tmpfi = Dir
      |, Q; U3 M% R- i7 f
60.     Debug.Print tmpfi
    / `' ^* x" h" Q
61.     Loop
    
62.     End If
    : ?$ o% m+ \* B! j! w; e# k* R# v
63.     End Sub
    / T# `3 ]5 g' s: I

复制代码

. x  B: w" ^% \5 d6 W* h. c试了下这个宏（本人用的SW2018）报错：
  S9 g( d- x7 j# h; z8 O0 e( N对象不支持这个属性或方法（错误 438）
Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替换装配体中的原文件）
有哪位大佬能帮解答一下吗？是不是SaceAs3语句的问题？

% a3 W. Q- Y% f9 Y

Lean_2017.feng

以下方法说明，请自行测试：

7 b% k" s- Z5 }; z! Z'Usage
4 t  R  O1 R' ]# i# m( sIModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)

- [: }: W5 p" ]+ K* q9 T& M
3 \$ h# o1 C1 N2 O'Func Declaration
  s" ~$ E2 I7 \0 ]! m* N& G* V, LFunction SaveAs3( _
! O8 ~* h) B$ Y2 o4 d3 P   ByVal Name As System.String, _
   ByVal Version As System.Integer, _
   ByVal Options As System.Integer, _
   ByVal ExportData As System.Object, _
   ByVal AdvancedSaveAsOptions As System.Object, _
   ByRef Errors As System.Integer, _
   ByRef Warnings As System.Integer _
3 @) ]( O6 k2 R& W) As System.Boolean
' c! ~1 k. [6 v8 S
6 S, U( q" e5 z( U( G, [7 r+ w; oParameters
    Name
, U* F' ^2 U& C, n+ L: `, u1 ?        Full pathname of the document to save; the file extension indicates any conversion that should be performed (for example, Part1.igs to save in IGES format) (see Remarks)
    Version
* v( F# d1 @* Z2 @        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
    Options
  f1 B! q- }$ }1 a        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
" ]) @+ B& ], ]7 a. E& k( @    ExportData
        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
1 ], S. M: Y; P    AdvancedSaveAsOptions
        IAdvancedSaveAsOptions (see Remarks)
    Errors
        Errors that caused the save to fail as defined in swFileSaveError_e (see Remarks)
+ L3 e/ N4 ~! v( a1 v. z" E    Warnings
/ j# s/ E& {& X3 X+ p: ?! R        Warnings or extra information generated during the save operation as defined in swFileSaveWarning_e (see Remarks)
Return Value
    True if the save is successful, false if not
6 \1 z0 v" w* f7 `
- h& t; N3 d$ o( R; w; V. D
# g( m! ~1 F# a, [! `8 v内容摘自apihelp.chm（通常存于 xxx\SOLIDWORKS Corp\SOLIDWORKS\api\ ）


# ?: z* I; y  B- g