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

Dustry

在論壇看到大佬 怕瓦落地2011 的帖子http://e-learninguniversity.com/thread-1061682-1-1.html
代碼：

1. Dim swApp As Object
   ' z& n, h2 S& e: J/ p0 r
2.   Dim Part As Object
   9 R( I1 G; W. B1 x7 }
3.   Dim Error As Long
   7 M1 n. `; X1 G9 `  }- A
4. Dim Warning As Long
   
5. Dim mip As String
   3 a1 _* k4 _  }5 Q4 g$ E
6. Dim Status As Boolean
   4 E' Z+ k. Q$ a" \8 a) A& Z
7. Dim Newpath As String
   # G3 [% ?6 \, o1 i3 \8 p5 X
8. Dim mipname As String
   , H& D* N' r* }" g
9. Dim vDepend() As String
   ; y$ K  B1 d  ~/ E
10.     Sub main()
    
11.     Set swApp = Application.SldWorks
    ( d4 b; ]  S. W0 K. l/ w+ M
12.     Set Part = swApp.ActiveDoc
    $ a. H! T. s6 F5 K4 ~  o
13.     Set swSelMgr = Part.SelectionManager
    - J2 _: U0 l/ |. T' o2 x, H
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    ' k, H1 i, p2 _# [) q2 |# F
15.         swComp.SetSuppression2 (3)
    % H! N: ?4 d; a
16.     Set swSelModel = swComp.GetModelDoc2
    
17.     Set swSelModelext = swSelModel.Extension
    # B4 V! {( A8 b: Q. R, l* r# K
18. 
    
19.     oldpathname = swComp.GetPathName
    ' u6 S* e1 M$ E* `
20. 
    
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路徑
    ' T9 C( v$ e* [8 e, l
22.     Debug.Print Path
    : A, T5 u/ L. j+ m  k
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后綴
    * k' \. r% Q4 P, }+ J( z( ~) Y$ J; Q
24.     Debug.Print ntype
    
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '舊文件名
    
26.     Debug.Print oldfi
    
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    : G2 z) ^- E( D
28.          mipname = InputBox("changename", "name", oldname) '新文件名
    
29. 
    
30.          mip = Path & mipname & ntype '新文件名帶路徑
    
31.          Debug.Print mip
    , Q8 ?; x6 \+ P; o) m. m& N
32. 
    % N0 w4 `/ a9 b' k! L% w
33.     If mip <> "" Then
    
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
    , T" ~$ r+ n+ _& `/ }' G
35.       Debug.Print Status
    
36.       '========================
    
37.       '更改工程圖文件名
    5 A, @6 u8 \8 ~3 D: G* D) F
38.       Debug.Print Path
    1 U. t: O' `  X
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍歷原文件夾中的工程圖文件
    
40.       Debug.Print tmpfi
    $ B5 G( o, f2 b1 `: \2 u. _2 U* F
41.       Do Until tmpfi = Null
    
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    
43.         Debug.Print tmpfiname
    & I2 `0 X5 Y5 \7 |& l
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    
45.         Debug.Print tmpoldname
    # B+ {7 D. R0 D. q# |
46.         If tmpfiname = tmpoldname Then '查找同名工程圖
    $ H- R6 ^$ {) W+ N3 J( y
47.         newdrwname = Path & mipname & ".SLDDRW"
    
48.         Debug.Print newdrwname
    
49.         olddrwname = Path & tmpfi
    3 k! M4 X. S. q3 p+ I) }! K
50.         FileCopy olddrwname, newdrwname '復制工程圖到新文件夾
    # k. W) H3 L4 P! z* Y
51.         vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程圖依賴
    
52. 
    / y; [1 i" P. V3 ~# z
53.         Debug.Print vDepend(1)
    
54.         bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替換工程圖依賴
    
55. 
    
56.         Debug.Print bl
    4 R7 j  c+ [% D( S( ~: e! {
57.          Exit Do
    
58.        End If
    
59.     tmpfi = Dir
    0 p3 |4 P4 Z% j" {% `+ ~6 r
60.     Debug.Print tmpfi
    
61.     Loop
    
62.     End If
    
63.     End Sub
    $ W' g2 _: b8 X! e/ K  Z

復制代碼

. J( u3 x4 f5 i$ T試了下這個宏（本人用的SW2018）報錯：
對象不支持這個屬性或方法（錯誤 438）
  z' Z( R5 f0 M% o: L3 F- J' a' `, n: YStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替換裝配體中的原文件）
% j; S% J! G7 s& Y% A. _1 B有哪位大佬能幫解答一下嗎？是不是SaceAs3語句的問題？

Lean_2017.feng

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

. G! a9 A3 ?) J'Usage
IModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)
5 W% [, h6 N$ I- M) z% U

0 X: X/ g+ R& Y) E+ r: B" d6 c) q) D'Func Declaration
5 r, n( u% z) F5 r* r, w; OFunction SaveAs3( _
4 b/ q2 }% `* |4 K) C& X   ByVal Name As System.String, _
   ByVal Version As System.Integer, _
: ?8 F  I0 V7 B0 @   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 _
) As System.Boolean
" S& m$ f: V; @# y( O2 L
& q) N  j4 Y9 G! EParameters
, a! s% X% b. p( D( |7 Z    Name
        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
; u- Y7 d" H# c        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
. v( C9 {4 |& K0 {    Options
% Y2 {9 w# P) Q. T3 l- [$ C        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
# I: p6 r! Q+ c) b    ExportData
        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
    AdvancedSaveAsOptions
2 h- \" [3 c' F4 t8 f        IAdvancedSaveAsOptions (see Remarks)
3 F. @2 V. s! s! L6 O9 i1 P    Errors
5 i- u1 E! J: X- f# ]- a! k        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)
Return Value
* L0 a) \0 V/ r0 }7 l    True if the save is successful, false if not

/ J6 i  \/ z1 j' b$ \- w2 A$ {/ Y1 k5 ?
內容摘自apihelp.chm（通常存于 xxx\SOLIDWORKS Corp\SOLIDWORKS\api\ ）
4 i9 N" }* [. ^' n8 K9 j9 w" ^
7 f: g! _  y# A5 U# H
/ g8 X' |( k  d' J
5 o) ~7 E5 W4 h' _