模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
' j+ m- f& U- Z; }' D" ]9 v

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
     K' l# P: K  P: I
5. Set Part = swApp.ActiveDoc
   $ M+ B% h/ _" U8 a  a. m* t
6. Set swSelMgr = Part.SelectionManager
   4 B- h* Z/ {2 S% U
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    ; g( `* d; l; S5 k$ q
13.      mip = InputBox("changename", "name", oldname)
    + t" P- w6 r; K
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    $ y$ I0 C0 v2 b. N6 o& G  D3 _
16.   Part.Save
    7 a3 d! f8 C. K# J
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    5 w& z" b1 Y6 ^& ]3 k' u( u
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    ' v3 ?2 B: }2 q$ {, \2 {# o* t% a
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    1 M0 H) ~& N) ~- V  w& Q6 G
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    7 }. T+ ?/ Q5 t! v" p$ m
24.    End If
    
25. tmpfi = Dir
    + [/ k. s0 w* F& z0 u  u
26. Loop
    
27. End If
    5 Q  i+ W/ T" t( ?
28. End Sub

复制代码

- U  s) I7 m6 Y+ G+ x7 b) |, w
$ J7 z. `1 i) g- f' b8 E

steve_suich

shentu 发表于 2023-6-9 22:21
  b8 c# }, P% Q9 |同样运行出错。。。。。

Dim swApp As Object
1 o# W3 i; `5 t( `' [Dim Part As Object
2 m+ X$ f& d, s" I+ I4 gSub main()
7 s) T: x  |: \1 ^, E8 ^Set swApp = Application.SldWorks
9 V3 U6 }" L8 Y: t4 \3 LSet Part = swApp.ActiveDoc
% d6 T( L' q2 N2 A8 q  l' wSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
, Q: \* g7 X7 x8 n% o6 Aoldpathname = swComp.GetPathName
" z$ _7 J% w1 w, VPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
% T( X  a; f9 C! U& b) X- koldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
6 z$ f% j. _7 b' R" W     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
8 \+ g: [* d9 y1 F+ Z  Part.Extension.RenameDocument mip
. h+ X! `% v: m  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
$ {: ?# h% p( c; K( c  Do Until tmpfi = ""
: g$ i$ Q* z7 {5 {& g8 o    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
& I2 A( b6 J* B( M& D     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
2 {6 X5 D5 g! l6 Q: H5 V( M; m     Exit Do
   End If
tmpfi = Dir
9 ]0 \2 V+ ~. g# j0 j- xLoop
End If
/ u# G) x( Y" h' ZEnd Sub
  z# k0 {3 k$ G$ W# i1 q( Y

1. 
   

复制代码

7 v; ^3 ?/ `7 M; A. ?- s8 [
( L# u- T7 g) u" h, F8 b- V

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
! \2 V6 H" c0 G5 ~, J; rsw嘛？.

# @5 I/ I% X, ^+ g# m" bsw的宏
4 B6 b" D& Z; T) Z; V/ ]

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
能说一下怎么用吗？

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

/ I8 ~2 O: Y% N% Y; Q4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
( v* a# S1 O' g$ V( I( xDim swApp As Object
Dim Part As Object
5 Q) f+ w! V/ i) H) r5 aSub main()

% Y! [$ M5 y- j" n( }6 S试了下，只改了part文件名，图纸没变，问题出在哪呢？