模型改名同时改工程图

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   2 Z! A9 T& a& l' S  L: F9 i: g
4. Set swApp = Application.SldWorks
   6 ^% J6 x; K6 O9 b( Y- [7 ~4 }
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   . H3 w' x% h$ \) u6 M% r/ j3 i
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   2 G: K8 T5 @( Q/ G4 D* H5 q
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    1 `: d, ^; p, D% A
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    # m. z  O7 S( G- P. I9 v, |
13.      mip = InputBox("changename", "name", oldname)
    1 X+ A6 J1 K+ \) M1 P3 b
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    % Q1 }, e" M2 w; i! d
16.   Part.Save
    2 i5 P" W4 b; \1 W: L
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    ! a* O& `2 m3 G2 O8 ~$ k) g
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)
    , |% \3 z$ V. Y0 h# H7 T
23.      Exit Do
    
24.    End If
    " T& A& d! |  j) q3 j  u
25. tmpfi = Dir
    
26. Loop
    4 K6 Z' U( @- Z; G1 I/ ]  V
27. End If
    
28. End Sub

复制代码

' ~) |( g% H/ o0 ?; q
1 G, \2 Q! ?, y7 v

steve_suich

shentu 发表于 2023-6-9 22:21
同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
5 v3 {+ V% [8 d1 C* t, xSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
1 S) A/ k0 }. _Set swComp = swSelMgr.GetSelectedObject(1)
. f  d  n9 p" t0 h; D5 Holdpathname = swComp.GetPathName
7 D+ H' ^7 g* i7 c3 IPath = Left(oldpathname, InStrRev(oldpathname, "\"))
6 f: S9 m- ~+ c7 M9 L+ C) Q8 ^ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
  Part.Extension.RenameDocument mip
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
9 r; a) _6 }4 w, |" \6 n  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"
7 y- `5 Z' h9 G" v    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
4 ^8 y2 S3 w) `' M) O   End If
. C+ m. i# ?( M, n7 t3 j6 Xtmpfi = Dir
$ S8 ^' {! |" C. b! Z& s+ tLoop
  c. e" n, z& X+ p0 \# B& mEnd If
End Sub

: p" Z" o3 g: j3 r

1. 
   

复制代码

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

3 _1 B, b$ }! U4 }; j. Csw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
/ x  L& v$ ?7 x& P* W# n+ @能说一下怎么用吗？

1、sw 新建一个宏文件，内容按上面的代码。2、打开一模型文件（装配体或者零件）
3、在打开的模型界面的模型树结构里面用鼠标点选所要改名的零件（或者子装配体）
$ l% b0 G$ w0 A
) u3 K9 l9 A& l3 F9 J8 T9 y4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。
; a& I2 [$ H0 R& r0 W
; J0 f* h7 D3 N" }- Z

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
1 e5 _4 ]' X0 MDim swApp As Object
, i9 a9 W4 D5 A7 |9 u% I, WDim Part As Object
Sub main()

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