模型改名同时改工程图

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   8 G, A. l/ M8 Y8 w5 Q0 ~
3. Sub main()
   
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   : Y! L9 Y( w9 P0 W
6. Set swSelMgr = Part.SelectionManager
   & _6 F  ]6 H! |, y* P* Q: R
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   0 _/ f  R' x) b3 [' M: b
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    * O- O0 \/ ~) W$ V% t
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    3 e( ]% _7 U: t5 U) S8 f0 s( v
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    , T( B! E& K0 z" E
18.   Do Until tmpfi = ""
    % N% v/ K' B- K8 R# k2 B5 N
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    . \% O* D) {% c
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    - @: U; s6 ~  h- r
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    & A6 d$ ]8 P9 ~) n
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    
26. Loop
    
27. End If
    
28. End Sub

复制代码

" t/ Y$ t( @% `$ D9 w: N

steve_suich

- h+ w) y* w$ G( B! W! V

shentu 发表于 2023-6-9 22:21
$ I7 m  P) P6 R7 J$ C$ @同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
. x4 Y) r$ e( [: m" U1 NSub main()
; q5 n/ q3 q$ p. ]Set swApp = Application.SldWorks
! {8 e- y5 c7 dSet Part = swApp.ActiveDoc
) w/ @) m! `- R/ ^) nSet swSelMgr = Part.SelectionManager
4 e' k4 {% ]* Z! b# e- w* z% sSet swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
( \, x  U% A3 v  X& D/ Fntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
9 J, G( Z! D% i4 g$ [( k3 \! l# CIf mip <> "" Then
  Part.Extension.RenameDocument mip
6 O- S& @2 ]' w+ s  Part.Save
% n. c  g/ |: l- j0 [0 m  tmpfi = Dir(Path & "*.SLDDRW")
4 ]: J% _9 _  E- a2 K  Do Until tmpfi = ""
, ^& G! L. o3 p, t$ i    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
9 X( c7 _/ p5 v3 O; _    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
4 u; v5 m4 c0 `" y8 e7 B( x    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
   End If
tmpfi = Dir
Loop
End If
End Sub
1 J9 g' C) h9 r! f/ S2 Y

1. 
   - p& [+ L$ f7 ^4 U$ R

复制代码

8 G6 L4 f3 [: m

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 发表于 2023-6-9 14:14
3 q* u% Z7 ?. d* P& e  A, ]2 Ssw嘛？.

sw的宏

行云亦

能说一下怎么用吗？

steve_suich

行云亦 发表于 2023-6-9 15:21
  b7 P  c2 Y& d2 x能说一下怎么用吗？

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

4、运行刚才建好的宏文件，---弹出输入框--输入新的名字--点确定---完成。

顺子93

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

shentu

同样运行出错。。。。。

人外有人

steve_suich 发表于 2023-6-10 09:20
8 K' S+ F: V+ w' E/ S$ ~Dim swApp As Object
2 e; G3 j, ]: v: w  ~4 g4 @4 BDim Part As Object
Sub main()

9 L7 V4 @3 ]1 ]3 q) v试了下，只改了part文件名，图纸没变，问题出在哪呢？