模型改名同時改工程圖

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   - c$ \9 g  F0 L5 j4 y
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   4 }6 f* }0 [- S- t7 _  R
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   ( E% _. `  H6 X8 x) t1 J% s
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    " c. d  J- B5 _$ K  H. v" q
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    & I7 W6 F3 P& }! n" O6 m9 U8 p
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    6 y+ [1 j* X& E0 `- j1 B
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    ) J/ Z% F, _9 J5 j1 I6 {" e% d
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    ! L* @+ B% I% o8 r& O, z1 L
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    8 s4 W% ^2 @0 x" p6 [
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    
26. Loop
    8 d4 b0 d* T# K/ @; C+ z
27. End If
    ( ?0 v' w( g: U8 i
28. End Sub

復制代碼

! N3 F5 e% l* l* e/ O/ D

steve_suich

9 u5 _, e- _5 i  a& m. g& x

shentu 發表于 2023-6-9 22:21
) W. ?* a3 \; I9 H2 U7 N同樣運行出錯。。。。。

Dim swApp As Object
Dim Part As Object
/ U) s% P0 _7 N% NSub main()
- O, p5 O$ @5 M# Y* T$ z2 O! Y$ zSet swApp = Application.SldWorks
  E7 b1 f; S4 }Set Part = swApp.ActiveDoc
& \* s, ^8 |% z* S3 `Set swSelMgr = Part.SelectionManager
7 F! t: ]1 |' _) [Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
5 k' Q& f- r+ ~; J/ W2 Y& yoldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
6 _% H  ?" l4 y* D6 O$ t2 V  Part.Extension.RenameDocument mip
  Part.Save
1 L9 D1 A% `$ G: U6 r( ^' T  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
  e! G0 y: e- ?# u# Z) {1 `    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
. D% K4 M2 ?  M2 a. q    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
1 b! a% l& S; h) E8 w4 j     Exit Do
   End If
tmpfi = Dir
2 o, e# {5 k( d7 S4 D5 zLoop
End If
8 j: P& T. h/ T: ^4 sEnd Sub
/ v+ u  c, V2 a* K3 W

1. 
   

復制代碼

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發表于 2023-6-9 14:14
! \! J( u9 H$ e( xsw嘛？.

( w) r$ o2 a+ m# S0 zsw的宏

行云亦

能說一下怎么用嗎？

steve_suich

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

  G0 B2 F4 M% j: S3 M3 v1、sw 新建一個宏文件，內容按上面的代碼。2、打開一模型文件（裝配體或者零件）
3、在打開的模型界面的模型樹結構里面用鼠標點選所要改名的零件（或者子裝配體）
7 }8 \& ^+ Y6 U% u. v1 I8 h" Y
4、運行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點確定---完成。
% ?% T5 d, l# ]; ]( q8 a
# B) w! v: n) [

順子93

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

shentu

同樣運行出錯。。。。。

人外有人

steve_suich 發表于 2023-6-10 09:20
  y: a4 [8 @! H+ E' H5 ^Dim swApp As Object
! T- u% z6 v, S- ^7 ]  u7 {Dim Part As Object
Sub main()

" z8 I( w; |3 ?! K8 b2 T; D試了下，只改了part文件名，圖紙沒變，問題出在哪呢？

2 @( v& C# [/ X& p# b; S