重命名零件和工程圖（圖紙升版本）

Dustry

在論壇看到大佬 怕瓦落地2011 的帖子http://www.odgf.cn/thread-1061682-1-1.html
0 \# O& a# n# Y2 E  j代碼：

1. Dim swApp As Object
   
2.   Dim Part As Object
   5 E  W  K$ A; c- J- w! G! H
3.   Dim Error As Long
   ' H3 w- a8 H/ C, S
4. Dim Warning As Long
     S& `) S6 n) S$ B1 L
5. Dim mip As String
   9 T  y% I$ J( Y  z, v3 E' S: S- \' z, f
6. Dim Status As Boolean
   ( a# @: E" x/ E% g% G
7. Dim Newpath As String
   
8. Dim mipname As String
   
9. Dim vDepend() As String
   
10.     Sub main()
    : _0 x4 p$ `9 `7 q
11.     Set swApp = Application.SldWorks
    
12.     Set Part = swApp.ActiveDoc
    
13.     Set swSelMgr = Part.SelectionManager
    
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    
15.         swComp.SetSuppression2 (3)
    $ [- r& ~8 q' ^+ Q2 C8 r
16.     Set swSelModel = swComp.GetModelDoc2
    # a4 X6 j9 D5 e+ }/ K
17.     Set swSelModelext = swSelModel.Extension
      y  S# X8 L8 O# r4 \# \8 Z
18. 
    
19.     oldpathname = swComp.GetPathName
    3 \/ V* S: I" M7 z4 Y
20. 
    & ^& N- X7 I" ^+ k6 }8 y% }0 X5 z
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路徑
    ' m+ b& K! x/ P; l& C
22.     Debug.Print Path
    
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后綴
    
24.     Debug.Print ntype
    
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '舊文件名
    & e3 U0 V1 n) o9 x3 f7 a6 V" `
26.     Debug.Print oldfi
    * w& C$ Y; |" n4 j" O4 D# a
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    9 }: l% B8 M' i! d: ?7 D7 w' V
28.          mipname = InputBox("changename", "name", oldname) '新文件名
      }( U; E* e% ]/ X8 m. P2 R
29. 
    
30.          mip = Path & mipname & ntype '新文件名帶路徑
    
31.          Debug.Print mip
    
32. 
    - {- W9 y5 E+ e5 Q# Y: n
33.     If mip <> "" Then
    
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
    1 z# O, Y/ r3 @+ N  u
35.       Debug.Print Status
    
36.       '========================
    * b- {& T' [3 m7 w- c/ y
37.       '更改工程圖文件名
    ' U- m1 }# T' A5 A4 X
38.       Debug.Print Path
    
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍歷原文件夾中的工程圖文件
    
40.       Debug.Print tmpfi
    + L! K' S9 @' K/ L. S( D/ r
41.       Do Until tmpfi = Null
    
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    3 ^' p/ `& [: g# A
43.         Debug.Print tmpfiname
    
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    $ R. ~$ K* v% ~& y3 z
45.         Debug.Print tmpoldname
    
46.         If tmpfiname = tmpoldname Then '查找同名工程圖
    
47.         newdrwname = Path & mipname & ".SLDDRW"
    
48.         Debug.Print newdrwname
    ; J+ t/ |/ t% P6 @
49.         olddrwname = Path & tmpfi
    
50.         FileCopy olddrwname, newdrwname '復制工程圖到新文件夾
    
51.         vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程圖依賴
    8 D2 |9 ^2 Y8 I
52. 
    
53.         Debug.Print vDepend(1)
    
54.         bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替換工程圖依賴
    , m# {; K5 s% ~. Z3 i
55. 
    0 J' }) q% S4 A9 E2 S2 M; `
56.         Debug.Print bl
    
57.          Exit Do
    ) h( N. z, n5 ~6 y  D6 [+ W
58.        End If
    
59.     tmpfi = Dir
    
60.     Debug.Print tmpfi
    5 O* v3 B% N2 u  L( _) s
61.     Loop
    
62.     End If
    
63.     End Sub
    8 B/ q* t" G" t$ w& @  j- C- s

復制代碼

試了下這個宏（本人用的SW2018）報錯：
對象不支持這個屬性或方法（錯誤 438）
Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替換裝配體中的原文件）
有哪位大佬能幫解答一下嗎？是不是SaceAs3語句的問題？
3 H% B3 o3 Q) Y$ q2 V, ?

Lean_2017.feng

以下方法說明，請自行測試：

'Usage
  V, B* G( J9 s) @5 L  hIModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)

) m# F( b/ c# S, U! Z) _
'Func Declaration
2 p  @7 z$ f% n0 |# @Function SaveAs3( _
# l8 t# V3 Q  M* U) I   ByVal Name As System.String, _
+ w/ n) B2 i& T  k   ByVal Version As System.Integer, _
9 I0 j; T( P6 M) P. g/ d$ P   ByVal Options As System.Integer, _
   ByVal ExportData As System.Object, _
5 C% d5 ]- f  o4 }8 |/ v2 N   ByVal AdvancedSaveAsOptions As System.Object, _
   ByRef Errors As System.Integer, _
   ByRef Warnings As System.Integer _
" Y, }1 o7 P" V3 [2 Z  u/ Z) As System.Boolean

7 ~* B7 t+ e# ~  H7 SParameters
3 w* K* a* K" [    Name
3 `* A/ e# j2 m9 S5 Y        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
        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
  q6 T" q/ i- p0 F' _# Z    Options
        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
6 B5 @) t1 v5 m+ d6 w    ExportData
        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
9 ]% V' F, g2 W( _% J9 Y2 R5 q    AdvancedSaveAsOptions
        IAdvancedSaveAsOptions (see Remarks)
    Errors
! A- w  P4 a/ T7 V# [" V        Errors that caused the save to fail as defined in swFileSaveError_e (see Remarks)
    Warnings
        Warnings or extra information generated during the save operation as defined in swFileSaveWarning_e (see Remarks)
7 G: O$ r9 t0 l3 J* W- V9 |) M1 YReturn Value
    True if the save is successful, false if not
* v) n. ^3 z9 o- N9 T- B

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