模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
' s# Y% B; x3 B* a

1. Dim swApp As Object
   
2. Dim Part As Object
   , n8 p& E, ~& W, E# z3 _
3. Sub main()
   
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   ! {2 O- L4 V6 i4 {9 r0 I) @% I
6. Set swSelMgr = Part.SelectionManager
   $ l# u* {- v# b( D- X8 |8 i( i
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   9 a4 u  X" }) `. d6 i& K7 X3 O" O
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   9 K4 ^- @2 H& t
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    , }- W9 L. L# M  ?5 b7 x: u9 b
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    7 h' c* g1 n5 W8 v
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    ( B; J) l9 n' J0 j# K7 R7 h* g
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    3 `( w. }. R+ L4 ~
16.   Part.Save
    $ x0 C$ F5 _$ _; h1 Z6 Z1 t  |
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    9 @3 y( ]2 Q- s% U: F/ G4 t
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"
    + t0 q4 Y3 Z4 H% C5 L
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    + T& h9 Q  c, g/ Z; d; L5 \( s
26. Loop
    & W) y: K! S$ f+ C8 w$ Q" p
27. End If
    & V: |! u  u  R
28. End Sub

复制代码

4 }: E  F' P, B% o6 Q, S. G, A4 M

steve_suich

shentu 发表于 2023-6-9 22:21
同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
1 X9 X' Z- M6 z/ x; r! }; T' ~Sub main()
5 @9 h" }) Y% A0 Z! l* c* ESet swApp = Application.SldWorks
8 Q8 W" g! s! J8 o- g0 P# WSet Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
5 H6 J* H" a# F! nSet swComp = swSelMgr.GetSelectedObject(1)
+ {) D: L* U$ M6 H8 Y! M" Aoldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
& {2 K+ i. J8 o* H& f+ F3 p  Part.Extension.RenameDocument mip
8 Q& b+ ^9 P. S0 n# g8 W; Z* l  Part.Save
3 z/ @) N+ x7 ^- X# ?8 @2 M& J  tmpfi = Dir(Path & "*.SLDDRW")
4 j7 u; x- e9 j: C  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
% C5 `& U: U& E5 {    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
  s, J5 m+ `& I7 e& m4 r: x     Name Path & tmpfi As Path & mip & ".SLDDRW"
9 S$ }! \6 L" W7 g' D; r$ C9 M/ J    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
# Z- a9 ~1 C3 L: F+ H   End If
2 G4 R7 `9 f9 D1 [) Jtmpfi = Dir
Loop
End If
$ e. p# D( L$ d( t/ xEnd Sub

1. 
   

复制代码

% B: l/ l# q6 g" H
- d! f' V* B; A+ h* C4 a: A+ T

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

sw的宏
# D( P) u: A4 T

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
' G% g/ U, D+ G- w8 M8 m能说一下怎么用吗？

0 p8 D+ r' k# U- N1 R, F6 ^1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
4 n3 C2 t7 B2 O1 D* H. b
( C! Q4 w- `) X6 n7 }4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
- n: {1 w8 e2 {
- n9 r& M" W% b9 R3 i2 n
+ I6 |8 T/ r5 c1 |& t0 N

顺子93

运行出错，08行有问题。错误91，对象变量或with 块变量未设置

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
$ y0 H" e7 V+ [' d7 n5 B* [, N0 dSub main()

1 Y4 T) N; t' n; P, }试了下，只改了part文件名，图纸没变，问题出在哪呢？
0 o+ }2 G6 o9 b" f' H9 p5 o9 B