模型改名同时改工程图

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

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

Dim swApp As Object4 u% ?7 `! V1 q$ K8 U& }
Dim Part As Object
" x7 n U6 m2 v1 ?
Sub main()
9 U% f. R3 D5 n' |8 ], c) u
Set swApp = Application.SldWorks
0 A+ l# B% _& \* E
Set Part = swApp.ActiveDoc
+ h- u0 K- n7 S% G9 T6 x
Set swSelMgr = Part.SelectionManager
' t& w6 P w& x4 e
Set swComp = swSelMgr.GetSelectedObject(1)
1 T5 ~6 G7 c7 _
oldpathname = swComp.GetPathName
0 { V; [0 Q9 s7 J
Path = Left(oldpathname, InStrRev(oldpathname, ""))
! u# P% U( S& [3 F2 x% ]
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
h% ]8 `0 ^7 Y2 g& P+ ?/ x
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
- ?( R( R7 N' x& z! I% V
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
) i' q! Q# r P: D
mip = InputBox("changename", "name", oldname)5 o" N; F7 e/ c( ]* w/ z$ ]
If mip <> "" Then
- Q" N/ r# x& b6 ]
Part.Extension.RenameDocument mip 1 l5 B0 I4 A+ c
Part.Save6 y6 W1 k- |" B0 \' s* e9 ~
tmpfi = Dir(Path & "*.SLDDRW")7 \4 ?( x. \* i% L! v
Do Until tmpfi = ""% v4 D, S: Y& `! j2 [4 m
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
3 X3 M2 V7 Y& u3 {/ G
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then8 ?6 M- `2 {9 g {# O+ w
Name Path & tmpfi As Path & mip & ".SLDDRW"
B& n- T( l* v' M
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype) # `8 a3 @8 g7 s. N
Exit Do
, e9 V! e0 |% D
End If2 L( ^* ~/ k: B- R% _& H' h P
tmpfi = Dir4 K! A% w8 M! W2 T6 T
Loop
" i# j! q$ ] [4 A- J5 W
End If) w* o- @0 M1 q4 p1 R
End Sub

复制代码

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

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

shentu 发表于 2023-6-9 22:21
; p% i9 j/ I$ q# Q同样运行出错。。。。。

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

( L$ P) L/ {: m6 k- _( l& W$ z9 q% I

复制代码

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:145 ]: x `$ S1 E* |+ w4 Q1 O) m$ d
sw嘛？.

sw的宏

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

能说一下怎么用吗？

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

行云亦发表于 2023-6-9 15:21
4 V; l2 R6 K& M能说一下怎么用吗？

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:20
( M2 n5 ~4 l2 UDim swApp As Object" t0 a) r$ A" E0 `. N! s' X+ ]
Dim Part As Object0 T' u/ R9 ]) f1 x: S
Sub main()

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

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

模型改名同时改工程图

评分

点评

点评