模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
  t* Y# p/ Y' X; M# Q+ w

1. Dim swApp As Object
   
2. Dim Part As Object
   ; R  t6 I) S& r1 Q
3. Sub main()
   8 y5 `0 K1 W  T; m* N6 L
4. Set swApp = Application.SldWorks
   , |! h1 z& Z6 O. o+ v
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   9 g+ u# ^. ]- B% t5 E. g
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    " G) y: `! W: f
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    , J# D; n  j7 \& x
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    3 r2 V  y/ {. p& }2 }
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    3 y* c; a3 e! Q: V
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    ( v9 ]0 v4 ^+ G2 I! g2 e- Z
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    - i  _, H) o( a' [& e# g  X1 W* h) c
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
      O- a1 h0 X9 u( H8 f# O* E& k$ g
24.    End If
    
25. tmpfi = Dir
    
26. Loop
    8 s) X- d0 A7 S- n
27. End If
    
28. End Sub

复制代码

) X1 q9 B/ _* H3 z$ B* _

steve_suich

, v* V' ~9 d  D1 J5 w. f# P* {

shentu 发表于 2023-6-9 22:21
- M: [! C2 y4 G: u' o同样运行出错。。。。。

Dim swApp As Object
" j0 r$ q2 f1 u, O% x) ?Dim Part As Object
Sub main()
) }9 Q  p$ ?: ]- G- iSet swApp = Application.SldWorks
* ]) w7 i; j5 r8 dSet Part = swApp.ActiveDoc
1 g0 p* T% G  }/ F0 s  WSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
' i6 t  S: h1 _: X% `& Yoldpathname = swComp.GetPathName
; |: {4 N5 B0 a0 M) |; D" g1 A4 tPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
1 Y9 F& j/ ]+ Y/ u1 d9 [3 P4 |0 F     mip = InputBox("changename", "name", oldname)
) v' S9 k7 v/ R9 d+ iIf mip <> "" Then
! J# C: c  A/ \  Part.Extension.RenameDocument mip
* X5 u& n5 @' K% ^' v  A  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
* f6 i0 O) U! A    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
% H# V1 ]5 [. X- ]    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
+ n; o5 c& r& i& H1 `4 n6 [/ ?( s   End If
tmpfi = Dir
Loop
( u* }9 e) E& f- tEnd If
End Sub

1. 
   

复制代码

5 }% v2 u# t4 i6 X
2 ]* ~1 |3 w' d5 Q% i  }

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
- h/ u" }, j- Z; N2 tsw嘛？.

  u% k* v. ^2 u/ X, Rsw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
/ u0 \( \9 M" L/ u& J+ @# y能说一下怎么用吗？

1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
( ]- c! V& s/ z' r' r
4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

# [$ U/ v% s% F) F" s* M) C' C+ C
: g5 |4 m2 v% |% k( ~! U

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
5 `5 B4 w/ S. p% R, m2 }: p. h1 vDim Part As Object
4 Y( @6 \$ Z5 c9 r) gSub main()

+ c5 \% x* A3 [! @8 M* y试了下，只改了part文件名，图纸没变，问题出在哪呢？
3 b* z( F; h' R