模型改名同時改工程圖

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   7 a6 S- B/ K4 i% o( I# R2 {
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, "."))
    ) ~# W% v+ Y% z  A
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    % Z% n- \) L8 W3 ?4 @% V
15.   Part.Extension.RenameDocument mip
    9 u7 T* v+ L5 I! z5 v! |
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    9 X% G5 j& L" c& V. C# ]0 Y
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    * G0 i; a3 u# J, r
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    - [# o$ s% y+ K7 \5 _; O1 y
23.      Exit Do
    ' x; B. H2 I# E4 P
24.    End If
    
25. tmpfi = Dir
    : t7 {" x7 @- ^! z% n9 D+ e# r" @
26. Loop
    : l$ S" m3 ]- I# [6 |. m
27. End If
    : K4 N2 q6 l- a3 ]; U& r/ b: ~: c
28. End Sub

復制代碼

, \  E) [: Z# D4 ?. J

steve_suich

shentu 發表于 2023-6-9 22:21
% C2 ]" y1 G: F同樣運行出錯。。。。。

Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
( F  }2 Q, y6 g! m( Z" [Set swSelMgr = Part.SelectionManager
" [0 t% ?* L! T: ?; f5 C5 o0 aSet swComp = swSelMgr.GetSelectedObject(1)
: T6 J* s, I5 @oldpathname = swComp.GetPathName
2 K6 G; U8 X. n% [! A" ZPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
) v6 x# q5 N( F" @4 g5 Voldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
8 q% h0 ^0 R& q; k' h" m/ q4 |9 d7 S, @oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
% a2 w0 u" `% M, N7 O" |: s     mip = InputBox("changename", "name", oldname)
( T9 k( }# N2 Y. K. A4 FIf mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
" f2 X' |* G* z! a. l5 z$ O: i  tmpfi = Dir(Path & "*.SLDDRW")
6 Y1 B9 c, U7 L  ~  Do Until tmpfi = ""
9 Y; M0 _2 d( D$ `6 e    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
7 U' M) F8 L+ P# p! T( t0 m    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
/ g8 Q8 p6 \  X/ E     Exit Do
' X/ `4 Z/ `% c: ?0 z2 D   End If
tmpfi = Dir
Loop
' S  k$ q8 x: G4 z3 L% _End If
End Sub
1 _+ t& k, r( R! s! A, v) k' t8 m0 F
3 D1 f" a8 f( F) a; ?

1. 
   ; X' o" t# Z% v' v

復制代碼

* m4 Q, X8 q1 {

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發表于 2023-6-9 14:14
sw嘛？.

# F+ ^4 e- S2 ^" j5 \- `+ hsw的宏
2 S% R9 D; e* a! X. k: a! M

行云亦

能說一下怎么用嗎？

steve_suich

行云亦 發表于 2023-6-9 15:21
( T. R" l) w+ W7 _能說一下怎么用嗎？

1、sw 新建一個宏文件，內容按上面的代碼。2、打開一模型文件（裝配體或者零件）
1 e) R; v1 L9 l6 r  I3、在打開的模型界面的模型樹結構里面用鼠標點選所要改名的零件（或者子裝配體）

) d9 \: r3 ^9 z1 r+ E5 @4、運行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點確定---完成。
) C& x' B/ w  d' c& B& r3 ^7 a
$ I( u4 P& s. x) s

順子93

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

shentu

同樣運行出錯。。。。。

人外有人

steve_suich 發表于 2023-6-10 09:20
& d0 v+ V9 r0 }- B% k/ Y& m3 YDim swApp As Object
Dim Part As Object
+ p8 p4 f1 S* ?$ T* l9 B+ H: F( e) dSub main()

試了下，只改了part文件名，圖紙沒變，問題出在哪呢？
8 j7 ?( D6 H. U