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

Dustry

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

1. Dim swApp As Object
   8 S5 G$ k  N4 J+ L* U9 r) {$ D
2.   Dim Part As Object
   
3.   Dim Error As Long
   
4. Dim Warning As Long
   * W& ~, K$ ^* Y: x
5. Dim mip As String
   . l9 Y4 \( Q0 I' l# l6 B# U
6. Dim Status As Boolean
   4 I7 _) B2 H* E! u- N
7. Dim Newpath As String
   - a1 M5 M5 @7 R) U/ k' V  M; E
8. Dim mipname As String
   & }5 W, w+ a2 a0 P
9. Dim vDepend() As String
   3 K5 S* n$ _0 b
10.     Sub main()
    
11.     Set swApp = Application.SldWorks
    $ @+ W9 d, a3 p
12.     Set Part = swApp.ActiveDoc
    
13.     Set swSelMgr = Part.SelectionManager
    
14.     Set swComp = swSelMgr.GetSelectedObjectsComponent4(1, 0)
    . F0 V$ H, _* ^: K& C$ L7 F5 t6 N
15.         swComp.SetSuppression2 (3)
    5 N2 W+ N) M$ N+ z
16.     Set swSelModel = swComp.GetModelDoc2
    
17.     Set swSelModelext = swSelModel.Extension
    
18. 
      y& {4 j/ k  ]9 }  F; @
19.     oldpathname = swComp.GetPathName
    5 N$ I. w. V' c2 d' r/ |
20. 
    . }% I8 u* w  z/ O  N- s
21.     Path = Left(oldpathname, InStrRev(oldpathname, "")) '路徑
    / Y% C4 D; X# K' _/ n& F4 `
22.     Debug.Print Path
    
23.     ntype = Mid(oldpathname, InStrRev(oldpathname, ".")) '后綴
      q! t; q+ D$ X4 o$ b& S
24.     Debug.Print ntype
    ' `+ i- z) v' l* q2 i
25.     oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1) '舊文件名
    4 d/ l7 a2 V4 k% a
26.     Debug.Print oldfi
    
27.     oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    $ Q& w" l$ v2 a: z: C
28.          mipname = InputBox("changename", "name", oldname) '新文件名
    " A( ?- W( N2 v; Z8 p
29. 
    
30.          mip = Path & mipname & ntype '新文件名帶路徑
    / J. {( i' J4 T! C4 D( G/ X0 v
31.          Debug.Print mip
    
32. 
    0 p8 P3 P* [3 l* v; W: B+ _$ @
33.     If mip <> "" Then
    4 u: s% p2 d  k3 R' _
34.          Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning) '更改零件文件名（替換裝配體中的原文件）
    
35.       Debug.Print Status
    5 c# f% v6 S2 k- l) z1 Z1 c* ?
36.       '========================
    , r3 y5 s1 O! g& |% O
37.       '更改工程圖文件名
    
38.       Debug.Print Path
    + @8 p' E/ D. o" D8 g# I" F
39.       tmpfi = Dir(Path & "*.SLDDRW") '遍歷原文件夾中的工程圖文件
    
40.       Debug.Print tmpfi
    4 _6 e  u- ^% _9 h% J
41.       Do Until tmpfi = Null
    & V( a0 I: i* F; a' V
42.         tmpfiname = Mid(tmpfi, InStrRev(tmpfi, "") + 1)
    
43.         Debug.Print tmpfiname
    + L) z" J( a- }  S+ G* j7 w4 D
44.         tmpoldname = Mid(oldfi, 1, InStr(1, oldfi, ".") - 1) & ".SLDDRW"
    
45.         Debug.Print tmpoldname
    , N. ^0 {4 V7 r9 i+ {" x
46.         If tmpfiname = tmpoldname Then '查找同名工程圖
    
47.         newdrwname = Path & mipname & ".SLDDRW"
    
48.         Debug.Print newdrwname
      F. A7 X3 t* D) M1 Y, q
49.         olddrwname = Path & tmpfi
    5 j. z# q( E, H1 o' L* f
50.         FileCopy olddrwname, newdrwname '復(fù)制工程圖到新文件夾
    
51.         vDepend = swApp.GetDocumentDependencies2(Path & tmpfi, False, False, False) '查找工程圖依賴
    
52. 
    
53.         Debug.Print vDepend(1)
    , l& t# B: l9 t% @
54.         bl = swApp.ReplaceReferencedDocument(newdrwname, vDepend(1), mip) '替換工程圖依賴
    - J4 O, l/ i- h* N& s8 Q1 h
55. 
    
56.         Debug.Print bl
    4 n4 ~* w- O- X
57.          Exit Do
    
58.        End If
    3 Y5 j4 C0 `$ i% N& t0 }$ g
59.     tmpfi = Dir
    
60.     Debug.Print tmpfi
    ; U; E  N. X' G. M/ X; A8 i
61.     Loop
    $ A+ Z5 E0 Y1 n6 N
62.     End If
    2 t/ [; M. _% b8 [9 z
63.     End Sub
    

復(fù)制代碼

試了下這個(gè)宏（本人用的SW2018）報(bào)錯(cuò)：
對(duì)象不支持這個(gè)屬性或方法（錯(cuò)誤 438）
Status = swSelModelext.SaveAs3(mip, 0, 512, Nothing, Nothing, Error, Warning)  '更改零件文件名（替換裝配體中的原文件）
有哪位大佬能幫解答一下嗎,？是不是SaceAs3語(yǔ)句的問(wèn)題,？
0 Q3 ^: C! B% s$ \; z( m
: x4 L. [. o9 e# r" k7 T

Lean_2017.feng

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

0 q6 I; ]& N* K/ r'Usage
: w* x$ @5 n+ \- t# t( PIModelDocExtension.SaveAs3(Name, Version, Options, ExportData, AdvancedSaveAsOptions, Errors, Warnings)

1 u0 J; Z; x$ v5 w7 V; g9 ]6 t
'Func Declaration
Function SaveAs3( _
   ByVal Name As System.String, _
, U7 f: `4 x( V   ByVal Version As System.Integer, _
/ X2 C) Y& X3 ]6 e   ByVal Options As System.Integer, _
   ByVal ExportData As System.Object, _
# s0 [1 S! z& y2 Y( Y/ {* ]   ByVal AdvancedSaveAsOptions As System.Object, _
7 q% M3 b8 L) E$ n   ByRef Errors As System.Integer, _
2 V3 J. s" ]9 H7 c% M5 P( Z   ByRef Warnings As System.Integer _
) As System.Boolean

Parameters
    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
' M  z+ R2 f8 Q6 i        Format in which to save this document as defined in swSaveAsVersion_e (see Remarks)
    Options
. L- T6 z/ e2 E% M        Option indicating how to save the document as defined in swSaveAsOptions_e (see Remarks)
    ExportData
+ U: ]& [: P! {        IExportPdfData object for exporting drawing sheets to PDF (see Remarks)
( D- j% r# V- f6 D- d    AdvancedSaveAsOptions
        IAdvancedSaveAsOptions (see Remarks)
. D$ `* ~: Y7 O, {' m    Errors
        Errors that caused the save to fail as defined in swFileSaveError_e (see Remarks)
) I8 m+ M$ i' ~2 ~0 Z* a1 J    Warnings
2 |, @. q/ S9 h' N+ I3 ]3 y3 a) d        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
; [- s/ F3 C  b$ d& y5 K0 j
2 i, }$ x* G" {
% ~5 ?8 A+ s8 b' P3 I: ~) r內(nèi)容摘自apihelp.chm（通常存于 xxx\SOLIDWORKS Corp\SOLIDWORKS\api\ ）
( x' ]% w. R$ B1 |$ p

% c8 @3 b- P9 X% j+ [
7 e4 q" H- j7 l% q9 P