模型改名同时改工程图

steve_suich

先在模型树选中所要修改的模型，再运行宏。宏内容如下：
% d7 |  a  o4 v" G. {& W6 a4 w2 U

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
     ~: o, e: V7 x5 e
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
     E- U  l2 B; N8 @+ c6 B
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    / r" N; L6 O# b. x: Q7 V
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    3 w' s# H- R: J& e; h4 {
14. If mip <> "" Then
    6 J9 @8 l- P0 c+ g# q0 ^
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    ( B% c' R$ b9 x/ F! C
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    # h% t8 `8 {  c  r
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    5 `* f8 Q4 ?* p6 B# ]. x
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    . g  L1 D; u- x, ?  l: F8 Y9 s
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    1 J; P' y/ M5 Q+ I# R
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    5 o3 L! t# D9 h
26. Loop
    3 L! X( i1 w3 k4 p
27. End If
    ' ?1 _" H3 Z* X* R* s
28. End Sub

复制代码

steve_suich

shentu 发表于 2023-6-9 22:21
2 ~+ Z/ K& B' X同样运行出错。。。。。

Dim swApp As Object
# r* C4 V3 G2 k9 M. cDim Part As Object
Sub main()
Set swApp = Application.SldWorks
- U3 G- @; g' n+ v% c% h5 r, ^+ `Set Part = swApp.ActiveDoc
2 r$ x/ j( O$ p# S( m. W7 ySet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
+ S" \6 t+ d" [7 ^5 noldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
9 \2 ?8 ]: d- P: o' x& e' a3 n2 [ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
3 J9 J& Q. `, Z# m+ ?# ?) l( T7 toldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
  y' F- g- L  R: f8 J% y. y: k. P     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
  Part.Extension.RenameDocument mip
* j1 \9 W+ r4 L* C+ D# o2 R  Part.Save
- K. E+ D5 ^9 o  d  tmpfi = Dir(Path & "*.SLDDRW")
; s# [4 f8 p* V& D( s; o  Do Until tmpfi = ""
7 Z0 H) m" E+ s  p" O    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
# o1 l0 `- p2 R" U     Name Path & tmpfi As Path & mip & ".SLDDRW"
6 s  \6 G/ g3 e- a  R# O    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
5 _' a* f7 R2 O  G5 p& w7 e     Exit Do
   End If
6 C; ~; e3 v4 x  K8 W. Otmpfi = Dir
Loop
# h, D3 s/ Z# h: n* X- ?: nEnd If
2 u3 ~, v. x* B) D5 VEnd Sub

' T4 N2 F+ E. l

1. 
   6 Z' K; B0 C# {  t1 c

复制代码

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
' l0 ~- Z" t1 ^9 |  J# isw嘛？.

1 U8 L0 h" E' s# Z- n% qsw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
2 u4 ^' ?( w0 ]) f$ R能说一下怎么用吗？

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

; b1 j! q& I' Z7 f3 o4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。


% ^3 [3 q' Z5 y) W

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
Dim swApp As Object
* r0 v4 K9 z( K- pDim Part As Object
6 x7 o; i0 }" @Sub main()

1 N4 t6 x) b7 h- m, b0 }4 l" [试了下，只改了part文件名，图纸没变，问题出在哪呢？

/ ]9 L8 f6 v( ~8 g# u6 C9 h