模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
* S: v  I0 ~+ J7 `! D: P

1. Dim swApp As Object
   ; j) O3 g, e. N7 H( T4 Q8 B- S
2. Dim Part As Object
   
3. Sub main()
   # _3 j9 K* D; B1 X& {1 Y. M" I
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
   - f$ I$ w$ y4 n2 m- f. N6 v
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   6 }' `( a% d6 {" |& g
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    & D- Z" Y- G  O3 ?# i
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    6 n9 u) N8 s, a9 r
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    . o/ [7 q8 H; N# q( w2 D
16.   Part.Save
      g7 i5 a% T' E2 P, h1 j
17.   tmpfi = Dir(Path & "*.SLDDRW")
    * d+ _! {# X$ {0 S9 N
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    ! S3 {' ]( l8 L6 E
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    + C% M7 a( L, y# V' Q' P
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    % D  F0 n6 o5 x) j
26. Loop
    " x7 x5 X4 G# p  C% e* w1 N
27. End If
    7 [5 w7 x9 m* E+ Y6 T, f/ ]  Y
28. End Sub

复制代码

0 m% G, e! |  I4 A- [+ v0 ?* l

steve_suich

shentu 发表于 2023-6-9 22:21
! d2 }( T' @6 C; c同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
* N+ ^+ v  d; A3 g5 wSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
3 U/ a7 G  ?, p' z$ A3 E2 lSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
% k5 _. h# r- m  IPath = Left(oldpathname, InStrRev(oldpathname, "\"))
  T3 J" b. c8 D/ V0 r: X9 Zntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
9 C6 m6 W# n* a. Q4 voldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
5 v+ J% m6 p! h/ ^If mip <> "" Then
; w/ k) t7 _& P5 D. f  q4 ]  Part.Extension.RenameDocument mip
/ d' S, d3 t" [  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
) t. }; j8 `, O1 J% j5 A  ~  Do Until tmpfi = ""
2 J* Q$ L5 H8 z8 ^2 w- _$ K    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
( r1 k' \+ p2 _    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
( u8 u$ N& z: @     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
   End If
tmpfi = Dir
- m, ^5 o  D0 h: e8 j/ T- bLoop
7 v" U) o2 ?4 A: x  ?" HEnd If
End Sub

- H! I' p3 i' o# l# w- V2 \1 N

1. 
   

复制代码

8 ?0 i- i  {5 y9 a4 K2 [
  k, c2 |6 [4 d9 J! u: u

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
# |' o, Q$ O0 y/ U3 C# N' X- Ksw嘛？.

sw的宏
# h  Z" y( _/ Z* d; z) o% z! d

行云亦

能说一下怎么用吗？

steve_suich

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

# E& i4 N- P! C1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
1 O' E* {( o+ r' E9 M
# d, v. P5 i# ^' l2 V+ [4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

2 o( o" e1 X  i0 r3 S5 g9 ?- Q
, B  o/ T! i7 S. i6 O

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
: {% ?, Q6 |  `Dim swApp As Object
Dim Part As Object
Sub main()

: y# p. j. t* n( ~# Z$ `试了下，只改了part文件名，图纸没变，问题出在哪呢？
( F5 c  a9 x0 {
7 E( w. I3 b7 l3 _; ~+ `