模型改名同时改工程图

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   % d. c, r$ G' R: [
3. Sub main()
   : p/ Z! F+ z: o$ V. l6 w# O
4. Set swApp = Application.SldWorks
   2 e- B) Y9 J' ?- s0 ^% ]/ l% q
5. Set Part = swApp.ActiveDoc
   ( t& A4 r* e( s/ s' ?4 z$ l# W
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   3 ]# V; i3 G" q/ k
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)
      I6 h8 K- m$ N& W9 X
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    ) f9 R: b% |# J3 t
15.   Part.Extension.RenameDocument mip
    % m0 ^; D3 b% q& p0 [; h
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    ' O, N  z! m" e# @* i) `' V
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    2 L& r1 I  \6 W* O; T
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    
26. Loop
    1 H2 b- [  ?- W* n* J+ O
27. End If
    $ U4 B0 k) x" m. g6 x: V5 @* o
28. End Sub

复制代码

: H9 Q0 s' h) P/ q2 Q; X" z
2 p4 Y- u( M- z+ L$ v5 s+ y! H  T& ]# c

steve_suich

5 D) _% j& {/ X4 u3 e3 k

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

Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
0 o5 V5 ~& B5 Coldpathname = swComp.GetPathName
- `7 J- s! _' w, I% j$ W; h; SPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
3 n& T2 N  r9 V/ P8 s3 uoldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
8 n9 v8 L/ o1 G3 q- PIf mip <> "" Then
. m  L* l0 i8 D- P* P  Part.Extension.RenameDocument mip
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
0 Q' N0 e% Z1 }4 w    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    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)
     Exit Do
. @% T  {- |7 N5 J- P, G   End If
tmpfi = Dir
  a" T8 T" W% [( j6 kLoop
  u' I9 ]/ j0 _/ X+ Y" n1 s) qEnd If
$ \4 E9 X3 q) K" O% r6 y' O4 `7 VEnd Sub
3 Z$ P  A6 N" C& ]0 @# g/ s

1. 
   4 q1 J5 V2 e1 ]4 j, `

复制代码

4 s* j- ]- U- n# F! h

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
' _% s! _9 Y6 i$ v  P0 ~8 a$ Bsw嘛？.

3 T! G& \0 P: m# I( Gsw的宏
) Q6 D8 {6 O+ w' I- D' Z

行云亦

能说一下怎么用吗？

steve_suich

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

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

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
5 r; V& A' b- Z5 P

; r4 @! R4 Q, t* z. ]

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
, m: S; a. M2 c4 k, U7 |Dim swApp As Object
Dim Part As Object
Sub main()

& `, l/ F. U/ {. o$ t- a7 Q; l试了下，只改了part文件名，图纸没变，问题出在哪呢？
1 i; k- m6 T3 s4 d* b! K8 U
1 `( o1 R. @6 h4 ~