模型改名同時改工程圖

steve_suich

先在模型樹選中所要修改的模型，再運行宏。宏內容如下：

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   5 N% x0 e2 V  r1 x; g
4. Set swApp = Application.SldWorks
   ' A* S/ j8 a1 ~& g3 S
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    + c; o. E& ~* K
15.   Part.Extension.RenameDocument mip
    8 O$ p; Y- I9 R$ D
16.   Part.Save
    0 k: i2 Y8 p" L% ^' q
17.   tmpfi = Dir(Path & "*.SLDDRW")
    ! {( }$ u4 g- Q3 Q
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    , [$ J% l1 E  T' L( R3 v
25. tmpfi = Dir
    7 o7 ?3 A3 F4 M
26. Loop
    ; l8 a* w1 ~2 X( H0 L. o" I0 g! c
27. End If
    
28. End Sub

復制代碼

( K% h( \8 o) A+ @* D" I: p

steve_suich

  O, Z- D+ l, B" I8 U2 v, n1 Z; u

shentu 發表于 2023-6-9 22:21
2 }6 y" w3 ], W7 r同樣運行出錯。。。。。

Dim swApp As Object
Dim Part As Object
Sub main()
+ y4 ~, Z  i  X+ g+ [Set swApp = Application.SldWorks
( c; F6 r% h. S0 o; SSet Part = swApp.ActiveDoc
5 N+ F' I5 d' r. j9 ?3 JSet swSelMgr = Part.SelectionManager
) ^$ P6 g3 `% i' LSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
5 O  e) V) b$ F8 s5 cntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
& @& `! s# D5 c3 J6 U/ B/ hIf mip <> "" Then
, ^4 c8 z9 j: x+ g  ^  Part.Extension.RenameDocument mip
) ?  }2 _! a) O1 T  Part.Save
& i' [6 C! D0 h7 t$ I) D9 s9 q1 V  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
+ A3 k$ O. g- x$ i& o    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
# v+ y, W1 q% C* M     Name Path & tmpfi As Path & mip & ".SLDDRW"
5 b2 f& H! }# }7 }+ G3 j    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
   End If
tmpfi = Dir
6 t( r4 {) b: T0 ?- Q  S2 iLoop
% |5 ], U5 l1 d5 j1 t* BEnd If
End Sub

  L4 v- Y% p  j. Z" R/ @9 _

1. 
   

復制代碼

; ]0 v# _2 @8 \" i/ o, b! ]
4 m' _& d: i+ d0 z9 r

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發表于 2023-6-9 14:14
1 i5 W2 _+ Q- q$ C6 Lsw嘛？.

! ?/ ]! |$ j) [6 _sw的宏

行云亦

能說一下怎么用嗎？

steve_suich

行云亦 發表于 2023-6-9 15:21
能說一下怎么用嗎？

4 q, q8 b1 V( `: i1、sw 新建一個宏文件，內容按上面的代碼。2、打開一模型文件（裝配體或者零件）
3、在打開的模型界面的模型樹結構里面用鼠標點選所要改名的零件（或者子裝配體）
- ?" J# ^, N8 W$ U6 W
4、運行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點確定---完成。
( ]% o, }( u) h7 z, [

# B6 L7 j4 m5 N. g: z' y5 D7 ]

順子93

運行出錯，08行有問題。錯誤91，對象變量或with 塊變量未設置

shentu

同樣運行出錯。。。。。

人外有人

steve_suich 發表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
: f9 g# E. u5 Y/ Z7 NSub main()

' x0 d# E5 Q; V; W+ p試了下，只改了part文件名，圖紙沒變，問題出在哪呢？
1 ~9 j/ U6 ?- ^6 H