模型改名同時(shí)改工程圖

steve_suich

先在模型樹(shù)選中所要修改的模型，再運(yùn)行宏。宏內(nèi)容如下：

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   4 K& u0 z& P7 J% L
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   + r! v; s& X' }; n: X6 Z& ^
6. Set swSelMgr = Part.SelectionManager
   ! k/ i$ l: }) F" Z) U
7. Set swComp = swSelMgr.GetSelectedObject(1)
   ! h2 `4 A0 Q& J' W* Z9 @
8. oldpathname = swComp.GetPathName
   . Q, g: h9 W' i! T
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    6 ~/ P2 F, h. h/ L9 t$ |0 T
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    . I. k0 v5 k/ }. t4 _) ?
14. If mip <> "" Then
    ' S$ H3 c/ G1 `2 c$ _
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
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)
    6 V+ y( G  e( T; t$ E% u1 w- y' W
23.      Exit Do
    # F* e/ ?( O, I7 }
24.    End If
    - o2 l  ^& \3 v! n
25. tmpfi = Dir
    
26. Loop
    ' n. U  Q& g' H8 z; {# n0 U0 p4 K
27. End If
    
28. End Sub

復(fù)制代碼

+ ?- R; @, `$ \6 ?, s

steve_suich

shentu 發(fā)表于 2023-6-9 22:21
2 g$ v) |( l2 V$ Q, @同樣運(yùn)行出錯(cuò)。。。。。

Dim swApp As Object
Dim Part As Object
/ }7 c# a7 v  N: ASub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
- i, @% Z( E. a& |8 m5 ^/ |2 ^Set swSelMgr = Part.SelectionManager
/ ~$ f2 f& }9 \" _& c2 T$ nSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
7 o0 ^: d# F2 d- ?% ~( M: Intype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
- g% T6 f6 L% D% A. Koldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
. q$ Q: @* i2 [5 R9 e, l     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
$ O3 N* U' ~0 _9 ]    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
: e) W. _, `  @$ U- h) O    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
% R6 b) g/ F( E" c    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
* {" s( \# h  y' G" m7 X3 k   End If
, N- }. L- D8 R' z- W% ^9 V, R( d' Ztmpfi = Dir
Loop
End If
' E$ |" m, I, v! C& e( R4 {End Sub
) ]) u, u2 {, H5 c( }

1. 
   5 Y) v. O# w! J

復(fù)制代碼

8 w' t. I8 J9 V6 v

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發(fā)表于 2023-6-9 14:14
sw嘛？.

9 O" W2 h% v1 k7 \! psw的宏

行云亦

能說(shuō)一下怎么用嗎？

steve_suich

行云亦 發(fā)表于 2023-6-9 15:21
能說(shuō)一下怎么用嗎？

1、sw 新建一個(gè)宏文件，內(nèi)容按上面的代碼。2、打開(kāi)一模型文件（裝配體或者零件）
3、在打開(kāi)的模型界面的模型樹(shù)結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）
7 C1 I% J/ ~4 {$ r- u5 q+ N  o
4、運(yùn)行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成。
7 k+ \5 `6 ]+ }8 y  w, @9 V  Q
' @0 T1 Y# {0 }  ^
% u; d3 _* M8 G9 E

順子93

運(yùn)行出錯(cuò)，08行有問(wèn)題。錯(cuò)誤91，對(duì)象變量或with 塊變量未設(shè)置

shentu

同樣運(yùn)行出錯(cuò)。。。。。

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
6 s3 I! ?# i% x0 z$ mDim swApp As Object
8 R* R) K  h8 Z( ADim Part As Object
% F; d# U) }: r) A6 H: f! p1 MSub main()

試了下，只改了part文件名，圖紙沒(méi)變，問(wèn)題出在哪呢？

6 E/ X; f5 `, Y4 k