模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
! z9 b' Z# ]. o  Y- o9 c" i- J5 s- D

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   , u) T0 A2 G- S/ T$ \4 b1 M# P0 s
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   ' Y. P2 y6 ]0 t1 ]0 z  u, ^! W. v
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    9 M9 e: K1 F- U
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    9 @: k  z! S0 I: E  j$ x8 ]
18.   Do Until tmpfi = ""
    " a" C  J6 E, f' J% y
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"
    & A* Q& e* d3 T+ o
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    - B& M, |7 ?. E* Z) B9 C: P% G3 s$ |
24.    End If
    
25. tmpfi = Dir
    2 i3 z8 v0 ?) i0 k$ R" s
26. Loop
    9 G# A( Z2 ?3 y" {7 C- L3 U
27. End If
    * s2 X6 r' m* q8 X
28. End Sub

复制代码

8 e2 _/ M7 a3 p2 F2 I1 t. P( z

steve_suich

shentu 发表于 2023-6-9 22:21
5 i. z: ?6 x$ q5 J同样运行出错。。。。。

Dim swApp As Object
; I0 Y. h& d& ~& @- p- IDim Part As Object
( ?" j- T2 K0 c8 jSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
, ~; N" U& Q' D, ASet swSelMgr = Part.SelectionManager
; }' K3 k+ K" H+ n$ WSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
0 L3 g" ~0 K# M, moldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
! B; C  p2 R$ N2 D3 c* I4 ?3 G! c     mip = InputBox("changename", "name", oldname)
9 v' ?/ W0 L" k" }5 eIf mip <> "" Then
( A) T0 P! E! E1 C) [& T. o/ X  Part.Extension.RenameDocument mip
% Q3 \: F% s) O4 H/ W6 W5 Q  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
! a2 a1 p( q" Q; i+ E( x: h  Do Until tmpfi = ""
% }8 O2 F  i6 H2 p" v! F    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
" l* M' p6 R0 b   End If
. j6 W' n& W5 utmpfi = Dir
Loop
End If
End Sub

1. 
   

复制代码

: w( h) d2 X9 B* h* y

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
. |  ^5 l4 I2 ^9 y& Ysw嘛？.

$ ?$ U; U( ~! i$ W+ bsw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
) g! {; `2 l" e$ P1 \0 E能说一下怎么用吗？

1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）

1 R0 e/ h' g% K/ P' T4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

4 a4 }0 a/ y; ?1 ~% ]4 D- d0 X
" U+ `3 D) `& {9 w

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
1 s2 C) x3 C3 ^8 k$ {Dim swApp As Object
Dim Part As Object
; D! f. ?# Y: v/ ^$ p. k! R* ZSub main()

试了下，只改了part文件名，图纸没变，问题出在哪呢？
/ J/ J  j- o4 W: C1 x  E