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

Dustry

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

1. Dim swApp As Object
   
2.   Dim Part As Object
   2 Z6 V4 {/ S$ b3 M' e3 Y
3.   Dim Error As Long
   + @& b. D; b8 t3 G! e( e
4. Dim Warning As Long
   3 N$ ~( }2 p1 A) L) a, `9 \
5. Dim mip As String
   
6. Dim Status As Boolean
   * Z4 n, w, d4 S8 c. c+ h
7. Dim Newpath As String
   
8. Dim mipname As String
   
9. Dim vDepend() As String
   4 Q. N( R  G* ]: g( A
10.     Sub main()
    
11.     Set swApp = Application.SldWorks
    8 D- Z) f9 W+ r% W2 ^0 q
12.     Set Part = swApp.ActiveDoc
    ; H/ ~" a1 Y1 s+ r# _! ~
13.     Set swSelMgr = Part.SelectionManager
    . W, i. T# h6 H7 J- H2 q' Y. b/ \
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    * z# r) {  N/ b1 ^
15.         swComp.SetSuppression2 (3)
    " v- G) u! J* S5 j
16.     Set swSelModel = swComp.GetModelDoc2
    & h" Q/ N1 t/ _3 C
17.     Set swSelModelext = swSelModel.Extension
    : A9 p2 L8 y9 T/ r
18. 
    $ v' ~' k$ z, e. s8 l. _
19.     oldpathname = swComp.GetPathName
    " Y2 S: t& L" U3 @9 w. h
20. 
    ! A, M/ j# i" |0 C) p0 u% x
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路径
    4 o  a2 K8 _  O4 |
22.     Debug.Print Path
    ; {) p) p& x6 o! w% e
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后缀
    
24.     Debug.Print ntype
    
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '旧文件名
    5 [4 `2 k& O2 D. P9 F$ s6 {
26.     Debug.Print oldfi
    
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    ! F1 Z( S6 H$ G$ {. x
28.          mipname = InputBox("changename", "name", oldname) '新文件名
    ) F- u: W9 q+ i% R, _
29. 
    % d# ^) H9 x. B& x1 t  D/ n$ h
30.          mip = Path & mipname & ntype '新文件名带路径
    , G1 H# ]1 Y$ V& k
31.          Debug.Print mip
    
32. 
    / K7 V. j( l: ^+ Q0 m1 o- G
33.     If mip <> "" Then
    
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替换装配体中的原文件）
    ) S7 l! C# T( B  ~
35.       Debug.Print Status
    % L- w) G- A% ]  Y. e
36.       '========================
    
37.       '更改工程图文件名
    
38.       Debug.Print Path
    
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍历原文件夹中的工程图文件
    & K- s) c5 A! E- B; Y! w9 \  e
40.       Debug.Print tmpfi
    . A2 j6 f+ R" e. Q
41.       Do Until tmpfi = Null
    5 @* T, V6 R  Z
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    
43.         Debug.Print tmpfiname
    9 `: W; H' ^2 Q
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    
45.         Debug.Print tmpoldname
    
46.         If tmpfiname = tmpoldname Then '查找同名工程图
    4 x5 Q, a& ?3 N
47.         newdrwname = Path & mipname & ".SLDDRW"
    
48.         Debug.Print newdrwname
    % |8 ]' \, @3 S2 y. B
49.         olddrwname = Path & tmpfi
    " W2 B2 k0 o$ d
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) '替换工程图依赖
    2 ~: k2 ?% ^; ?7 \
55. 
    3 G- t( |7 B- H3 N2 i
56.         Debug.Print bl
    
57.          Exit Do
    
58.        End If
    6 ~' S  e! j7 u1 [/ f5 M
59.     tmpfi = Dir
    8 S1 Q' Q: [: E8 h( j8 n9 G
60.     Debug.Print tmpfi
    
61.     Loop
    
62.     End If
    # v% V' \6 c; I
63.     End Sub
    

复制代码

试了下这个宏（本人用的SW2018）报错：
对象不支持这个属性或方法（错误 438）
Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替换装配体中的原文件）
有哪位大佬能帮解答一下吗？是不是SaceAs3语句的问题？

" X" u$ ^: ?8 R. a: z* b9 W% N

Lean_2017.feng

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

$ n) {1 @, }1 |' o" A& O'Usage
IModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)


. Z" r& J2 R! r'Func Declaration
Function SaveAs3( _
   ByVal Name As System.String, _
   ByVal Version As System.Integer, _
- t! \2 c' p; p: J6 F# \& p% D   ByVal Options As System.Integer, _
   ByVal ExportData As System.Object, _
- c% J$ ?! _* Y6 @   ByVal AdvancedSaveAsOptions As System.Object, _
7 H- `; j7 O5 W   ByRef Errors As System.Integer, _
   ByRef Warnings As System.Integer _
) As System.Boolean
& z1 }4 Q( u% E8 k4 @/ f" w
' `; {. ?- T6 f) JParameters
    Name
* O6 H" p2 ?7 d! H, F6 F) h3 q! o        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)
' ?6 }" d6 y8 Z& L6 ^    Version
* ]/ w7 R% x( _# J        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
    Options
        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
    ExportData
9 F$ h  `3 L8 D5 Y8 _        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
    AdvancedSaveAsOptions
, C7 d, E! a# C0 c        IAdvancedSaveAsOptions (see Remarks)
6 T2 q' b+ T, M7 k: Z% {# [* I! i# I    Errors
        Errors that caused the save to fail as defined in swFileSaveError_e (see Remarks)
    Warnings
% E8 ?# J7 w" V        Warnings or extra information generated during the save operation as defined in swFileSaveWarning_e (see Remarks)
( H' w+ m, |- W; KReturn Value
    True if the save is successful, false if not


内容摘自apihelp.chm（通常存于 xxx\SOLIDWORKS Corp\SOLIDWORKS\api\ ）


# P: d2 f. q7 O# b, m9 B7 M