模型改名同时改工程图

steve_suich

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

1. Dim swApp As Object
   # g( W. V9 z/ \6 |1 o! z
2. Dim Part As Object
   7 u: U0 {: j4 x: [
3. Sub main()
   
4. Set swApp = Application.SldWorks
   - T8 q' Q* Y$ i) J9 f1 G
5. Set Part = swApp.ActiveDoc
   : C- j9 @! c  r5 _; q
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   & @3 F$ C6 z! {  e& ?" w' x
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   * B3 G# ], c/ G: w; j- x
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    8 e, D! X7 ^, p0 u6 h
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    ! t* y- |+ A+ z" t" ]; H+ M
13.      mip = InputBox("changename", "name", oldname)
    . e' E( w# N: w" z% a
14. If mip <> "" Then
    : \9 S2 L, G6 [& k" i6 R3 J/ r
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    ) R6 f9 {4 ~7 U2 t8 ?3 ?* n
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    # R, \' Z, k1 K2 h$ C* O' i* `
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    3 y5 ?) v# O; Y! h% }. Z: g8 f
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)
      _& i5 F: X' V8 O# I! Q
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    ; L: s( l7 E; i( F
26. Loop
    ' w( _8 {( ?& ]8 S8 K' D
27. End If
      m$ b( f5 x; K# ]  l0 Y' h
28. End Sub

复制代码

  v9 w8 {/ E1 h0 K* v+ \) s9 `
# m) f3 g7 S' R9 L; ?) }

steve_suich

shentu 发表于 2023-6-9 22:21
( P' g. ]. X, ^8 P$ c同样运行出错。。。。。

Dim swApp As Object
( i8 t4 d7 \" r& L% m" o+ hDim Part As Object
Sub main()
! x2 b" s8 b  {* dSet swApp = Application.SldWorks
; l% c' H8 a: A- s6 t1 a2 k) ZSet Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
  k" ]+ o0 m6 ASet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
" C* J* C# k/ ~* Mntype = Mid(oldpathname, InStrRev(oldpathname, "."))
; i0 n/ a4 s( P& `; {9 L4 L: {. I" doldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
) M/ p' X% U) \( x- e     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
$ ?9 x4 _1 n2 N  Part.Extension.RenameDocument mip
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
) `( v2 k3 ?# J( q6 @4 F! U6 |    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
% ~+ p9 J: k6 F' i) y    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
9 d9 C& x/ S+ h" h/ F7 e     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
3 q% C# Z1 \- }5 G4 T   End If
2 g. `# B  P# y  O# Ztmpfi = Dir
Loop
- t9 t% M) K7 ]6 f3 \: S/ {End If
6 S4 J" e1 s, s  w+ w1 q/ Y7 nEnd Sub

1. 
   7 L2 }: b9 @% y$ G. F

复制代码

  B9 T5 A5 g: B% w5 y

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

  b6 x$ I4 {+ i) X# t/ Msw的宏

行云亦

能说一下怎么用吗？

steve_suich

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

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

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
( A1 c) |! m1 x$ ^# ]- H
; x) b/ X- j( g  `5 o

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
$ L. n+ N+ i! {7 `  v/ }4 u$ |Dim swApp As Object
$ T$ B, d! H# |# ?; I' q2 E% eDim Part As Object
6 i% C, V( H) p$ l9 ISub main()

% p" T8 y% |, n7 ~1 @/ e7 }试了下，只改了part文件名，图纸没变，问题出在哪呢？

) z2 l% h: D" C& e. B/ {% S( E