模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
" i/ s( [4 w9 m/ I- ^

1. Dim swApp As Object
   + W( d) c& o! O: ^% u, G$ h
2. Dim Part As Object
   
3. Sub main()
   4 V  P5 Q+ h7 M
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   ; a# I3 N7 R( l! |5 o' ~  o; X6 D
6. Set swSelMgr = Part.SelectionManager
   ' [+ T% T: x! j$ T
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   & O! D9 P1 u6 d" T. M  g6 Y- O6 O
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    2 [; }  H: L" {6 \# {  Z
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    + ?9 V# E2 w: Y& N) n" ]- L
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    % g1 _# T. C% v. s/ M
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    . B0 b' g5 q! G2 b+ L. w. J
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"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    - R$ v! s& w( `" ~
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    + x5 A7 l6 s! U: X# v: V" u* X
26. Loop
    
27. End If
    
28. End Sub

复制代码

steve_suich

shentu 发表于 2023-6-9 22:21
" Y  V  D5 M; C# \+ Z# O  W同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
Sub main()
. d6 H4 l' K0 k" n! |* uSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
/ O2 A& g( b* a# x9 K% y% c; JSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
0 n" W9 E9 t* Aoldpathname = swComp.GetPathName
( R0 ?. M2 N1 kPath = Left(oldpathname, InStrRev(oldpathname, "\"))
2 L% V$ E* Y3 ~ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
6 E  X& G3 X8 \7 h3 Z     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
2 [- P3 D# x9 `- q, [$ G1 a3 s1 P  Part.Extension.RenameDocument mip
  Part.Save
% u3 I& F! s6 S7 O5 _' U  w  tmpfi = Dir(Path & "*.SLDDRW")
0 |& K# [6 Q: T7 a9 `( C  Do Until tmpfi = ""
    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)
- e5 r5 k/ w6 j4 s: r) f( S     Exit Do
   End If
tmpfi = Dir
6 C# F* z0 n4 x  q( W8 {Loop
9 _+ q. Q9 e: t4 t! o9 LEnd If
End Sub

1. 
   + u1 H# q- {9 G

复制代码

- v0 I! A& g- l

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
$ n# P/ O) Q. @+ E5 _; A7 asw嘛？.

sw的宏

行云亦

能说一下怎么用吗？

steve_suich

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

; I! @/ i$ h* E8 [* `4 y1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）

- B0 y* T7 D9 }' o4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
% N* E- ^5 K6 ^8 U) pDim Part As Object
Sub main()

试了下，只改了part文件名，图纸没变，问题出在哪呢？
( b) q* F! {. j, `* \