模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
; m, V* J: _8 q: w2 P

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   1 e7 ]- z1 h# s! E% E
5. Set Part = swApp.ActiveDoc
   6 z  v2 u  S2 k' W
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   6 m* _  _# _( R/ N* f4 }
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   & H4 J0 q/ Y  R' F
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    6 V0 _" \  A9 q$ Y$ V
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    . Q8 f# K% q" t6 Z* K+ j0 n9 P
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    , Q! n, j  g" ~( p
17.   tmpfi = Dir(Path & "*.SLDDRW")
    / M! J8 }" @) l4 n" J& L& D
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    ' D$ a" P. S& G0 m9 u
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    + U' \, i: G& ~' @* H  V+ k& G3 ~
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    5 v/ J6 D+ x$ O& x/ i! o1 ]7 r
25. tmpfi = Dir
    & F  P- h+ Z4 p; g7 U
26. Loop
    ! L) M* D. y4 I% N, ]7 p; D! e
27. End If
    ' _9 d* I& b  g
28. End Sub

复制代码

5 w2 W0 H8 i/ V% _* j$ m- A

steve_suich

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

Dim swApp As Object
. w, J+ r9 f) }. I* ^: a3 n' Y8 CDim Part As Object
! u1 b  F. ~8 n8 w* T: L: j  TSub main()
Set swApp = Application.SldWorks
( h( j' Y& Q' m5 r$ i  kSet Part = swApp.ActiveDoc
" _* I  e! Y2 }1 e9 Y3 y" L2 KSet swSelMgr = Part.SelectionManager
; \+ ^8 O# w9 c9 m' Z% n: }$ o, TSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
9 D2 `+ J6 o6 Q  J6 o7 hntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
$ N0 e! b( f+ ?oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
; O) T+ R! Q1 U" ~3 JIf mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
1 W' j/ E+ X5 I! {4 H    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
, U) o1 m) j, w6 ]1 B9 X. |     Name Path & tmpfi As Path & mip & ".SLDDRW"
2 F& c# I0 ^. k) t    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
" S0 L) O: x6 t1 R4 J% J  Q  }     Exit Do
: x' Z. O5 o% }. t! |   End If
( n8 m- x0 y6 R; M, ], s$ |, [tmpfi = Dir
Loop
End If
0 `' ]# \' _+ o+ a* `7 ?  q# n0 SEnd Sub

6 g( G" S5 E' B( r; K9 ^

1. 
   * k2 N7 g0 v* O% i

复制代码

: ^" I' L) h# T. k

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

8 r  t$ q. K# y0 x* j& b3 isw的宏

行云亦

能说一下怎么用吗？

steve_suich

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

1 a. P/ l4 K. ^* [+ d1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
- Y, \- l1 @3 w  ?3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

* I3 a0 N8 v0 I1 t$ W0 U
/ j( l2 R% r/ J8 I5 F# \

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
4 n! N2 |' f) C5 w- U& |Sub main()

6 ^& k% q/ B& X5 L1 X2 {" v试了下，只改了part文件名，图纸没变，问题出在哪呢？
3 u* _" ?5 }$ K6 _$ g