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

Dustry

在論壇看到大佬 怕瓦落地2011 的帖子http://giwivy.com.cn/thread-1061682-1-1.html
% Y+ F% R7 o. o0 v2 G代碼：

1. Dim swApp As Object
   4 z" C% m( ^5 v) z9 }1 I
2.   Dim Part As Object
   5 T9 ~/ X1 B5 G, Z( h; Y2 N
3.   Dim Error As Long
   
4. Dim Warning As Long
   
5. Dim mip As String
   
6. Dim Status As Boolean
   
7. Dim Newpath As String
   8 ]$ v7 I& @$ Z6 c/ ?6 b
8. Dim mipname As String
   
9. Dim vDepend() As String
   ; l5 N  \! [& q" u4 @2 @- t$ y* ?: z/ _
10.     Sub main()
    ' s7 M3 G, i9 A% n
11.     Set swApp = Application.SldWorks
    ' Y5 K" x' q. b; {2 q
12.     Set Part = swApp.ActiveDoc
    
13.     Set swSelMgr = Part.SelectionManager
    : ]; ~' j) g$ M6 ?+ V
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    : f5 x5 `7 [' O1 C# z
15.         swComp.SetSuppression2 (3)
    6 W" ]* a; C- i1 h  e
16.     Set swSelModel = swComp.GetModelDoc2
    
17.     Set swSelModelext = swSelModel.Extension
    3 S1 [0 H( @; w! R9 ^. D8 [/ x" V
18. 
    
19.     oldpathname = swComp.GetPathName
    
20. 
    
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路徑
    
22.     Debug.Print Path
    
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后綴
    6 `4 I3 `$ |) {( Q
24.     Debug.Print ntype
    ' [5 m* D  b! ^8 W; j8 ?0 ?
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '舊文件名
    1 N. S% @. m2 l
26.     Debug.Print oldfi
    
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    , i, ?- b% W& V4 m
28.          mipname = InputBox("changename", "name", oldname) '新文件名
    4 z- Z7 k- g/ |% }
29. 
    
30.          mip = Path & mipname & ntype '新文件名帶路徑
    
31.          Debug.Print mip
    
32. 
    
33.     If mip <> "" Then
    6 D0 Y. M; r' t5 u
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
    # f4 `+ Q  O2 J2 D' X( Y$ \$ I9 P
35.       Debug.Print Status
    
36.       '========================
    
37.       '更改工程圖文件名
    
38.       Debug.Print Path
    
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍歷原文件夾中的工程圖文件
    
40.       Debug.Print tmpfi
    ' N/ [7 U* k# T
41.       Do Until tmpfi = Null
    
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    
43.         Debug.Print tmpfiname
    
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    7 n# Z, o7 n1 y5 k
45.         Debug.Print tmpoldname
    
46.         If tmpfiname = tmpoldname Then '查找同名工程圖
    ' b" q0 x& V2 |! ?
47.         newdrwname = Path & mipname & ".SLDDRW"
    
48.         Debug.Print newdrwname
    / m; A! E: R* _% E1 K1 J# `
49.         olddrwname = Path & tmpfi
    
50.         FileCopy olddrwname, newdrwname '復(fù)制工程圖到新文件夾
    
51.         vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程圖依賴
    
52. 
    
53.         Debug.Print vDepend(1)
    1 W: ^% m' [+ t6 D; Z& s9 d/ D0 w
54.         bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替換工程圖依賴
    , @) p3 m8 d0 \- {0 Y9 g3 Q) q7 B
55. 
    
56.         Debug.Print bl
    
57.          Exit Do
    
58.        End If
    4 L! P1 \2 Y6 Y1 X3 y5 u
59.     tmpfi = Dir
    
60.     Debug.Print tmpfi
    + @  s# |8 U/ q6 j: I5 w. b- W
61.     Loop
    ; e$ A0 ^! ]4 M+ R
62.     End If
    
63.     End Sub
    4 a- G& l: @" o( N" Q3 Q, L4 @7 R

復(fù)制代碼

4 q/ m, S; I/ q9 T  o6 K1 ]* s試了下這個(gè)宏（本人用的SW2018）報(bào)錯(cuò)：
對(duì)象不支持這個(gè)屬性或方法（錯(cuò)誤 438）
& g# T' v5 t' F+ M9 n% u& BStatus = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替換裝配體中的原文件）
有哪位大佬能幫解答一下嗎,？是不是SaceAs3語(yǔ)句的問(wèn)題,？

Lean_2017.feng

以下方法說(shuō)明，請(qǐng)自行測(cè)試：

'Usage
& c1 w3 ^/ Z' @+ B6 r8 h8 o( U, HIModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)


'Func Declaration
Function SaveAs3( _
   ByVal Name As System.String, _
   ByVal Version As System.Integer, _
, v- L5 M* Z/ p0 ]   ByVal Options As System.Integer, _
   ByVal ExportData As System.Object, _
3 P: U( Y# A" p2 a* {   ByVal AdvancedSaveAsOptions As System.Object, _
0 }4 h0 @  A  l" d, ]   ByRef Errors As System.Integer, _
8 t' g0 t( l- N; t/ v   ByRef Warnings As System.Integer _
/ @2 P) J0 |) l4 P. o" ^4 v2 `) As System.Boolean

" j6 u% k, F) U- |) p9 U+ w5 X% lParameters
; e$ }8 p( T) N# }" h0 y/ S' v    Name
! y# Y1 u/ X# e+ @$ T, `6 \        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)
3 ]0 k1 S6 x" P6 e' P    Version
        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
    Options
- e- @: J$ I8 k9 `/ W* h        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
    ExportData
: ]- N2 j' X& i- v5 b6 x4 K        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
9 q! l* f! n' n8 P6 s: O. k    AdvancedSaveAsOptions
        IAdvancedSaveAsOptions (see Remarks)
! l$ L% a/ [# ~" m3 d7 s1 B$ p& V    Errors
) u7 J2 m" e& z! q( r# O        Errors that caused the save to fail as defined in swFileSaveError_e (see Remarks)
    Warnings
8 ]# @, @% B0 u: T$ v        Warnings or extra information generated during the save operation as defined in swFileSaveWarning_e (see Remarks)
Return Value
6 o6 s: z7 W9 Y- g! K! b( i5 b    True if the save is successful, false if not
. @1 f; x! b6 y

內(nèi)容摘自apihelp.chm（通常存于 xxx\SOLIDWORKS Corp\SOLIDWORKS\api\ ）
9 s+ x) p, B8 `0 r
  K' t2 Y4 t2 E2 X) o
9 n( J. z* D$ I
0 T& R/ G! y# b