模型改名同时改工程图

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

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

Dim swApp As Object& ?; o( u( U; }) l* `% l- Y; m
Dim Part As Object+ A9 ?& p- n3 _2 i# k' V1 v
Sub main()
1 R$ M% g0 g% R; d, f9 \
Set swApp = Application.SldWorks
9 R4 B7 V; y, Y7 @& t
Set Part = swApp.ActiveDoc) ^& E5 ^ P$ W# Q3 o( R
Set swSelMgr = Part.SelectionManager+ N" v. T: { }8 @& K
Set swComp = swSelMgr.GetSelectedObject(1) # _4 {- P z7 h3 F K
oldpathname = swComp.GetPathName
8 {8 w) ^4 B+ {- U2 q' a2 h. K
Path = Left(oldpathname, InStrRev(oldpathname, ""))0 C! {4 i" Y% _& x$ M: p$ ^
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
+ F0 i& Q' Q' M$ s, b; [: e
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
: i5 F( A. C: }+ X( U) l
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)3 q0 Q: E& E/ X
mip = InputBox("changename", "name", oldname)
3 I* T6 C9 W9 R$ q$ G4 {
If mip <> "" Then
! d- u/ d9 K7 @$ r( k8 p+ W5 X! k3 `0 t
Part.Extension.RenameDocument mip & n6 o/ L- A& l/ R' ]5 b
Part.Save1 t# ~* R4 e6 C7 c
tmpfi = Dir(Path & "*.SLDDRW")
: {0 A% y* i; v0 p. }
Do Until tmpfi = ""' s, u5 K8 V( w- x: _4 }
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
8 j! g" W6 {& Q4 V4 |/ f
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
1 Z# e, e; v$ ^% u
Name Path & tmpfi As Path & mip & ".SLDDRW" ' M; r* b1 {) k2 G* p& g( ]
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype) . R5 h! n2 y) m3 G: Q0 u- z
Exit Do* |. _% x8 W V& H
End If9 u* o0 l* h4 B3 k4 S
tmpfi = Dir
# p, K% R) {' N- O; ~! f5 w
Loop, a2 _- Q' W# H' B$ ]+ {3 a
End If" C4 o$ [. L4 q) m7 y5 m7 F- a
End Sub

复制代码

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

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

shentu 发表于 2023-6-9 22:21
/ F8 G& d2 e. _ Z" f( Z同样运行出错。。。。。

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

+ w: ]4 Q, g# y" p; h7 L- ^

复制代码

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:143 ^3 v8 A! R( h: [6 E7 I# y
sw嘛？.

sw的宏

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

能说一下怎么用吗？

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

行云亦发表于 2023-6-9 15:21- `, }1 w# P/ @( z( w. \. P
能说一下怎么用吗？

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
3 t' \8 M' Z: o1 E, FDim swApp As Object% l/ @' i8 ~- Q% k9 u2 Z6 z8 x
Dim Part As Object6 R+ D M- Q0 ~& W( Y5 I& E
Sub main()

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

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

模型改名同时改工程图

评分

点评

点评