模型改名同时改工程图

steve_suich · 发表于 2023-6-9 13:46:29

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

Dim swApp As Object
/ u+ ?3 ^% Z& ~
Dim Part As Object0 c- P* ?: L) h8 p+ Z* i( ~+ |
Sub main()
[2 \" P, S3 N
Set swApp = Application.SldWorks- e3 g" M& g& x6 k: z
Set Part = swApp.ActiveDoc1 h) z0 m4 C) J' l( ]) p
Set swSelMgr = Part.SelectionManager7 L% E0 O* S. m+ Z- C0 _2 k
Set swComp = swSelMgr.GetSelectedObject(1) N2 ~) m9 H9 A# b% d T, d: l
oldpathname = swComp.GetPathName! b" V3 m+ n/ ~- K! O3 Y( g% S
Path = Left(oldpathname, InStrRev(oldpathname, ""))/ ]" \, x& H; u4 x
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
0 H7 \& O/ K6 w9 r5 a1 ?! }
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)9 d. y( G) x: j7 U
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
2 S) |( j+ \' O2 E1 {. H+ E
mip = InputBox("changename", "name", oldname)
) _3 L) Y4 w. Q: L+ A
If mip <> "" Then& o8 d. W( w! ^3 T% ]' L* V4 J
Part.Extension.RenameDocument mip
7 W/ m+ y" a* H; Z: {
Part.Save
& G2 J. g$ |, J/ q; | a
tmpfi = Dir(Path & "*.SLDDRW")8 u+ S2 M) Y1 `+ @) t9 e3 w
Do Until tmpfi = ""
) E2 D4 ^. r6 w% n
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
/ v5 b7 n& Z/ t( K/ d$ o2 ]! r
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
$ U. C# s0 ` a; Y! ^
Name Path & tmpfi As Path & mip & ".SLDDRW" 2 L+ ]; i# \1 H% X5 [) y+ T
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
. l/ u& ]! ^5 n1 q, b @
Exit Do- I; z* l( q: _( ] D- I$ I& G$ _
End If
% ^5 R8 \3 S3 w% K! o/ @
tmpfi = Dir
0 J# C( G& q4 T1 u* h0 v1 ]
Loop
5 b3 m0 \: b# K& w' @
End If0 f7 J6 d9 V- a L
End Sub

复制代码

steve_suich · 发表于 2023-6-10 09:20:42

本帖最后由 steve_suich 于 2023-6-10 09:21 编辑

shentu 发表于 2023-6-9 22:214 c( G. v6 m; X
同样运行出错。。。。。

Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
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")
  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"
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
   Exit Do
End If
tmpfi = Dir
Loop
End If
End Sub

2 o( p) z5 v6 J9 {* w* X4 c$ N6 ]# B; `

复制代码

happilly · 发表于 2023-6-9 14:14:20

sw嘛？.

da · 发表于 2023-6-9 14:24:40

你是chatgpt搞的？

steve_suich · 发表于 2023-6-9 14:28:38

happilly 发表于 2023-6-9 14:14: j" O( T& t/ g; c& \# T/ s
sw嘛？.

sw的宏

行云亦 · 发表于 2023-6-9 15:21:17

能说一下怎么用吗？

steve_suich · 发表于 2023-6-9 17:21:12

行云亦发表于 2023-6-9 15:21) G1 E. c5 i0 v, N5 i* h; T4 d2 x8 J& v
能说一下怎么用吗？

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

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

顺子93 · 发表于 2023-6-9 21:52:39

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

shentu · 发表于 2023-6-9 22:21:02

同样运行出错。。。。。

人外有人 · 发表于 2023-6-19 10:59:33

steve_suich 发表于 2023-6-10 09:200 Q4 Q/ b8 K- q# j
Dim swApp As Object
5 a# T! I @ ^9 Y/ `5 d1 @! VDim Part As Object
% p3 T9 V3 s% g5 ~0 t, X; ~: aSub main()

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

		自动登录	找回密码
密码			注册会员

模型改名同时改工程图

评分

点评

点评