模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
/ A, y+ B- A1 u: R

1. Dim swApp As Object
   ) u8 t0 P# k, Y" h- a$ @8 u
2. Dim Part As Object
   % L" l! c4 T8 Q) |$ D* a+ E
3. Sub main()
   
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   1 n8 y+ t: J3 p9 d0 {
8. oldpathname = swComp.GetPathName
   & J7 [4 i5 V* v4 M0 ]1 B
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    2 o7 W  S; p* T) X; P& M) a
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    1 y; m2 j0 U3 n0 z& E( A4 M& ?) R/ N
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    ( g  `# n4 d) {3 Y/ D. o3 E
17.   tmpfi = Dir(Path & "*.SLDDRW")
    , l& s6 n% q9 U5 l% l
18.   Do Until tmpfi = ""
    6 X5 I. B% t9 q
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    . A. n4 y+ e6 y6 T
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    6 v  O# K9 T* l2 u
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    " h- ~/ O! D2 i$ Z! r2 u
23.      Exit Do
    $ t4 i- \% }: W
24.    End If
    
25. tmpfi = Dir
    
26. Loop
    
27. End If
    
28. End Sub

复制代码

- U1 T+ b) i0 q. M

steve_suich

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

Dim swApp As Object
Dim Part As Object
( u" M- ], A  a4 a& X: u  ZSub main()
+ q$ m2 X6 R, A' t/ O, c" zSet swApp = Application.SldWorks
( s+ U9 Y# E& G+ Q! j% \Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
, ?) Q8 a) m, V( DSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
/ K5 ?3 r- o* M/ N( o9 V, p  S: qoldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
5 ?% w& A- |8 n5 s' e& ^! F( K! [     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
* A$ c( t) e) ?. ?+ G# `, k  tmpfi = Dir(Path & "*.SLDDRW")
# V. f" i: w' M( H  l( ~  Do Until tmpfi = ""
1 r- ^1 V, v5 p5 r7 P- K    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
- O( W0 M* l0 a6 q* C. N    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)
9 f1 F1 z1 I3 ~! j8 ^: v' \6 M     Exit Do
% S2 [# h7 O9 Y% T   End If
" {/ f# Y0 T/ J( N; w( t7 v2 ]) wtmpfi = Dir
Loop
End If
End Sub
. {8 C9 R" B5 Y
. z5 U6 F2 A8 X3 {9 ~1 t

1. 
   / }7 ^- s7 I1 b8 Y; O9 \; ~

复制代码

9 ~, t  c" G: n" \/ y2 I
' O0 R3 H2 b1 r2 y1 g" ]- Y* a

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
& {' t# t  F  [: R7 Q- j( ssw嘛？.

# @) _& O) j4 A# ^$ qsw的宏
) q/ u4 x6 z+ @6 I% ]

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
/ e* _( H. Y2 m7 }& y能说一下怎么用吗？

1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
8 F5 q. c: a, u: k1 O  W5 |3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
1 x+ s0 P! a: L0 w
2 ~! p" C* n! i# s4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
7 k' q* u# ]7 `

0 }/ Z3 J- D' K- i3 d

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
4 X- H9 D. J9 [; |+ O* a* }8 cDim swApp As Object
Dim Part As Object
Sub main()

+ e7 ?( ^. r0 U试了下，只改了part文件名，图纸没变，问题出在哪呢？