模型改名同时改工程图

steve_suich

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

1. Dim swApp As Object
   : W2 \$ s: K: l7 O
2. Dim Part As Object
   
3. Sub main()
   7 y% ~, s# O: f3 j  |  q, s* z
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   % h# x7 U0 `' P3 M
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    0 \' U' X; t1 K. _3 ~+ p
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    ; H0 U3 Y7 P: s( L
13.      mip = InputBox("changename", "name", oldname)
    9 M' W, M# O( d
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    ; p" y1 R" e+ Y* D& Z. ^: g
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    & z- y  Z1 c& A: _( H" h+ n* w# p
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
      \, E+ A% H7 ~) E2 _3 o( s
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    % y- \( j/ Q) k) m( v" j7 u
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    . h0 Q1 Y0 H4 u4 a. \' @% w
26. Loop
    
27. End If
    & B. @* l1 h  U
28. End Sub

复制代码

steve_suich

shentu 发表于 2023-6-9 22:21
+ i/ ?4 C8 ?# X$ J同样运行出错。。。。。

Dim swApp As Object
) D. R. M0 o% e7 U! ?" LDim Part As Object
Sub main()
9 _5 |3 o# a9 W- dSet swApp = Application.SldWorks
+ L; `4 d. h# D- A0 \) t0 f- TSet Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
% @9 |5 o1 v) q/ coldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
; R, C0 ^' T' o0 soldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
& M% G4 j. T3 e! woldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
6 K5 Y( X! }) [3 y6 hIf mip <> "" Then
% n5 _9 i$ |  }& w" O" t$ k) V  Part.Extension.RenameDocument mip
% A+ D" J9 `) M/ d3 K3 B  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
0 O( V4 z8 A, k4 E, Q  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
9 `/ Y' L; O7 A' Q& m: h    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
9 }2 c+ d$ I8 |4 J! Z2 ?     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
( M+ l/ _* y! n% o- B. j# L, m* Z     Exit Do
   End If
tmpfi = Dir
Loop
, H4 I" A3 [) f" J) @* Y+ BEnd If
End Sub
% v6 x: r' W# e7 A6 M. g

1. 
   

复制代码

* g$ B) ^% F$ D% F

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

sw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
( i  d# v9 h' p4 K# n5 M能说一下怎么用吗？

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

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
1 K2 x  {$ E0 q1 P; h

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
Sub main()

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