模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：

1. Dim swApp As Object
   7 {0 a/ ]5 C, D1 N+ s
2. Dim Part As Object
   
3. Sub main()
   ; ~/ _% K! A1 g$ w
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   ; A, T4 i8 E. D/ |: z! d% y" A$ r
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   # U2 H) X1 J' p5 Q$ h8 h
8. oldpathname = swComp.GetPathName
     ]$ w' b% y0 D" R" j1 O
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   - }. E' C% C2 Q0 H
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    + p4 m- D$ X. ~
13.      mip = InputBox("changename", "name", oldname)
    " }1 N% t" N0 J* H
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    5 n& |; s7 g' v, U* a
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    3 s  Q/ _' C8 M( \
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"
    9 v! O: f! d& k( ~
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
      X6 M$ q% \2 n' V5 t4 Z
25. tmpfi = Dir
    % M$ `7 _; i2 ~: X1 E
26. Loop
    
27. End If
    
28. End Sub

复制代码

steve_suich

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

Dim swApp As Object
# ?' S' t7 I( D; z1 uDim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
- B0 m8 H3 I; z' r; mSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
9 Q2 E6 U/ s3 V* `  U6 Rntype = Mid(oldpathname, InStrRev(oldpathname, "."))
- g1 M' ]( c- V# Z& N: Uoldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
( k& C% \7 R+ h3 b     mip = InputBox("changename", "name", oldname)
" X2 g# f: x9 N! UIf mip <> "" Then
  Part.Extension.RenameDocument mip
, h. j0 A6 `# ^0 x2 m3 V3 E  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
( Y( E2 T8 y+ _! W  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
+ u  f) ^' m! d% y/ A' v9 q5 s    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
& ^3 e; n$ p% m" r  {1 d& B     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
( M; C/ C2 y& }) f$ {     Exit Do
- F# f2 e3 L- q   End If
tmpfi = Dir
# i3 A2 E! H2 D9 W! ]) g# NLoop
End If
% @6 J) }$ C; hEnd Sub

1. 
   

复制代码

* M9 Q) Y+ [* O, ~9 F: T! E, N

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
4 F' r* z) o/ Z, p* }sw嘛？.

# I2 a3 [5 a* @8 p# nsw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
) S" ^1 ^$ f0 b, d7 o能说一下怎么用吗？

; V9 f. |! H$ _1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
# ]* c& |- a9 w  p7 h: L3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
; y0 ^7 @( p5 Q+ l' E( O  i
4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
1 F! ?" k- ~% H, Q' h! N% K
4 c9 z+ }) g8 o( P( [8 x$ H; U4 O

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
$ A- p3 s, I- QDim swApp As Object
8 D7 `  \' k8 D2 F) pDim Part As Object
( d+ S) S) c; n  t- J2 B' WSub main()

试了下，只改了part文件名，图纸没变，问题出在哪呢？

+ z: p/ w  i5 l2 a, `% W" P3 y