模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
4 ]# S8 `. ~1 _! x1 e

1. Dim swApp As Object
   % H/ w2 w6 h  i% |/ }  S
2. Dim Part As Object
   
3. Sub main()
   5 @& y$ _$ Y4 ?0 l
4. Set swApp = Application.SldWorks
   # B; r. R; ^0 r1 H8 l* X: s
5. Set Part = swApp.ActiveDoc
   3 w5 c/ M* I- g8 V) D& R
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   # s; c7 }, ^9 M1 O8 N8 l5 P
8. oldpathname = swComp.GetPathName
   9 V4 }, M8 G7 U( {
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   2 t5 Q/ K7 N  v  C
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    , S4 u7 |9 Y5 v3 F4 q" w6 `
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    5 I! Q: w3 I+ ^3 P  D8 e
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    8 ~& ~2 }- v- z' y9 O
14. If mip <> "" Then
    / ^- Q8 g' v/ F# }. i3 J; U/ n- P
15.   Part.Extension.RenameDocument mip
    5 W8 k" D+ v* Z
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    4 S! v. j) b! A, `' [9 G' P% n' W
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    3 u* \/ {& M( B5 y; R# e
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)
    ; Z: A6 }3 d- s' V
23.      Exit Do
    ! X  d$ F0 j' W6 g8 B  @
24.    End If
    4 [) `: f" x6 k2 @- q
25. tmpfi = Dir
    ' ]  q3 c) z/ t5 w7 P. ?8 Z
26. Loop
    7 N& {* H* ]7 E5 F$ k! i5 l$ K( ]& B
27. End If
    
28. End Sub

复制代码

7 C2 f9 e% A, q; L* i8 u- b/ ?- e
  ]8 ]# A1 G# B& U' a, d

steve_suich

9 |3 `9 S8 c% Z9 C, G

shentu 发表于 2023-6-9 22:21
" u$ B8 }. E$ V# B同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
+ m" |) |; _: Y6 j6 [+ n3 n: A$ XSet Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
8 n* S/ B# u. p8 l* W8 @/ @0 C9 w% CSet swComp = swSelMgr.GetSelectedObject(1)
0 U  y- n- V1 N! yoldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
1 F; R; E& Z' C0 S) Intype = Mid(oldpathname, InStrRev(oldpathname, "."))
, V: U  B) }% Y9 woldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
) B- T6 N; M. o( v4 Z. J$ W  j# goldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
5 H/ k0 p2 E% ]( [: T1 F     mip = InputBox("changename", "name", oldname)
; ]5 g/ |: L) v! @" s* @& W+ TIf mip <> "" Then
( b' j) t% I: r' A9 ~  Part.Extension.RenameDocument mip
  Part.Save
7 B. r/ z5 R9 |+ p  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
) j) w8 k0 y+ }- R/ H7 Z8 ?( j    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
1 y! B6 C# e8 p! I7 D    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
9 k3 ]/ Y1 y8 a   End If
tmpfi = Dir
; X( M! g& `) P: U( tLoop
4 F8 d1 }9 @& P5 P7 q& a) uEnd If
End Sub

1. 
   4 u, ~# J% F) P# z+ g) W" Q

复制代码

# L! I, B1 t3 V$ m6 N# W

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

/ c( v$ a; {  g! \$ H' V( Y3 nsw的宏
* ~& p3 C3 Q( S4 [

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
6 {  ?1 S. |5 N0 |% t  G* y; c& M  c能说一下怎么用吗？

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

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
. V+ X4 t. l8 v6 _

+ V8 q$ v% T/ M1 y

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
Sub main()

试了下，只改了part文件名，图纸没变，问题出在哪呢？

, S/ Q0 v0 q5 {: y8 p- H/ L