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

steve_suich

先在模型樹(shù)選中所要修改的模型，再運(yùn)行宏。宏內(nèi)容如下：
' T3 ~/ F7 T1 s4 G) U

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   ) E0 [7 N' P* M0 }& I( M5 J
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   7 ?- q! v9 g- Z" ?0 J
6. Set swSelMgr = Part.SelectionManager
   + Y* {+ [4 W" u; ~# _5 x1 q) R
7. Set swComp = swSelMgr.GetSelectedObject(1)
     ]) G9 e  m! f6 U" O  `2 g$ m/ a3 O9 O$ ~
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   ' l. n: Y6 _0 x( w. @: H
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    3 j; |& Z/ ~! ^/ d
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    ) x1 `$ G' K. ?! d7 d
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    / y- J3 p2 t/ |8 T! P  R
13.      mip = InputBox("changename", "name", oldname)
    7 }* w* g' a# i! E, w! f
14. If mip <> "" Then
    7 j2 k, ^# D- U' Y  X
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    1 h( [8 C6 B. @- y9 S1 @5 A! I
18.   Do Until tmpfi = ""
    " Z: j5 u/ a( S- x  w/ K
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    " D+ L. Z! c0 M- n6 X2 _
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)
    1 [8 e9 n, J& A
23.      Exit Do
    $ @8 E7 q  D. Z( x
24.    End If
    
25. tmpfi = Dir
    1 I7 f' c7 |5 \, @  H
26. Loop
    2 Z1 C5 x; Y2 c, G
27. End If
    6 S/ n) c/ {0 h: K8 J5 E
28. End Sub

復(fù)制代碼

0 C6 ?+ J* D/ w7 q1 x

steve_suich

/ V3 M; D6 [: h& n, k7 `8 h" o

shentu 發(fā)表于 2023-6-9 22:21
同樣運(yùn)行出錯(cuò)。。。。。

Dim swApp As Object
8 z' {" \- g0 _Dim Part As Object
. k( s4 M) F0 o) J2 t4 n. d. eSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
: f8 S  u1 ~: }; l3 S+ L/ D8 qSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
$ B0 ~; t4 z( C* h, V: P6 roldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
# D6 w5 o) Q' F- [     mip = InputBox("changename", "name", oldname)
7 U( z( W, J/ ~! XIf mip <> "" Then
+ K, ~5 v; s2 _9 w2 C  Part.Extension.RenameDocument mip
9 {* f7 a% b7 g& {2 }% g  Part.Save
% r7 e- [$ R$ `1 M* b5 r0 w  tmpfi = Dir(Path & "*.SLDDRW")
2 R5 |, m1 `$ d6 n9 d6 q# H) t; [  Do Until tmpfi = ""
9 `5 Z- i, N; F; S    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
( G3 d7 w5 X2 M: X    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
   End If
tmpfi = Dir
/ z3 Z* R8 }& OLoop
End If
3 U, w  x* g; B' |" }End Sub

) ]0 y) c) b9 g; n" B2 M

1. 
   ! j. p4 L5 y! K* g. T

復(fù)制代碼

. e7 p% c7 _9 p% g  \

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

sw的宏

行云亦

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

steve_suich

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

1、sw 新建一個(gè)宏文件，內(nèi)容按上面的代碼。2、打開(kāi)一模型文件（裝配體或者零件）
3、在打開(kāi)的模型界面的模型樹(shù)結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）
$ r+ l9 x. D. R7 q- T# f/ e
% W0 Q# T2 C0 d2 i1 J4、運(yùn)行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成。
9 U3 c6 F7 ?' A$ @7 @* B
6 `. `4 x# @6 B
9 c( k8 i, N3 T6 L$ 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
Dim swApp As Object
Dim Part As Object
7 ]6 Y+ D+ `6 X( z6 _* }. L$ ]8 KSub main()

9 g0 @- B5 g+ @4 n, P6 }6 f6 W試了下，只改了part文件名，圖紙沒(méi)變，問(wèn)題出在哪呢？