模型改名同时改工程图

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

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

Dim swApp As Object+ B1 g- W) Q: V4 q3 v$ Y7 F, B
Dim Part As Object
. B0 ?# V( i( n% l$ y
Sub main()
* M0 Q4 m! @; l! J! H& |
Set swApp = Application.SldWorks! l( u8 {5 S* Y0 y+ u* ?
Set Part = swApp.ActiveDoc
2 q! \4 g1 [" i/ o5 @% ^
Set swSelMgr = Part.SelectionManager5 s3 P0 T% V% o5 s. \; K
Set swComp = swSelMgr.GetSelectedObject(1)
; s- ~! [, _/ O9 v- p
oldpathname = swComp.GetPathName
6 P; l9 i9 J. W/ S- N. D
Path = Left(oldpathname, InStrRev(oldpathname, ""))7 _; B7 V' `2 m5 R3 i7 x
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
# x8 ?, n& z0 r% }
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)2 D$ o- t9 h) K8 t% F; Z0 t6 M
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)& r% z* D) z4 ], D
mip = InputBox("changename", "name", oldname)
2 s5 b2 z* p1 f3 |; l x* `0 @
If mip <> "" Then) Q# i1 t- K/ U% f0 V' | h
Part.Extension.RenameDocument mip
8 Z/ [! F7 l3 z6 L, x
Part.Save2 }; v2 ?! }" r+ n' @( e7 _
tmpfi = Dir(Path & "*.SLDDRW")$ v7 L3 m" Y2 R% G" j
Do Until tmpfi = ""9 J7 O) b! t6 _$ ^: X2 n
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False) X" |( S; u8 _8 l
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then- z5 C8 u# k# Q8 I" B' D$ H
Name Path & tmpfi As Path & mip & ".SLDDRW" 0 S+ `" N. |: }- d
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype) 6 L5 Q3 T7 O: {* ~ W ?
Exit Do% k& F% P+ H6 [, Q7 P
End If1 }: `8 U; r: q K3 X4 N/ g
tmpfi = Dir
5 c/ H5 I* m/ @6 C# ]8 n. e
Loop, s/ o+ I* r1 G+ d; \
End If- m' L- G! D* F Y# S- F) L- W. I
End Sub

复制代码

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

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

shentu 发表于 2023-6-9 22:21* {( d$ k8 z# w! R0 i! |$ H6 r( s5 B
同样运行出错。。。。。

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

% m8 `- \, x; R* o/ @

复制代码

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: q! W' u) G2 A1 |2 N/ Y' q, E
sw嘛？.

sw的宏

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

能说一下怎么用吗？

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

行云亦发表于 2023-6-9 15:21) ?6 s6 E4 R- B/ z# B8 C7 x
能说一下怎么用吗？

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$ e6 Z8 u9 `8 L
Dim swApp As Object1 }) Z% f. |2 g1 g, B; l
Dim Part As Object2 B# [5 ]( w8 j: v
Sub main()

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

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

模型改名同时改工程图

评分

点评

点评