模型改名同时改工程图

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

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

Dim swApp As Object5 K7 D- W: Z7 m, h- Y
Dim Part As Object8 E w0 y+ `( H3 E
Sub main()
* A7 \. H' l+ p+ F
Set swApp = Application.SldWorks
9 @+ \0 v( h/ Y- U' {' d3 Y
Set Part = swApp.ActiveDoc
; y8 V+ _% C; \9 |6 k$ b
Set swSelMgr = Part.SelectionManager3 c) s; D3 {& W9 C7 f! G4 b
Set swComp = swSelMgr.GetSelectedObject(1)
. q% G0 l% L: k. X# [- m
oldpathname = swComp.GetPathName3 S# l; r0 n F) D1 O! S
Path = Left(oldpathname, InStrRev(oldpathname, ""))! e, i5 h$ O" F2 j' x1 y
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))+ N! }9 W; G: U# n6 P i$ a$ d
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)) ~/ L4 g# s) [" g, R8 n1 y
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
2 P2 u% \7 _# h% A- x
mip = InputBox("changename", "name", oldname)
; {; _ A- {7 H/ R
If mip <> "" Then
/ H& I3 L; a K1 A3 `) f) E7 A
Part.Extension.RenameDocument mip ( t, P/ c7 A) H, g, ^
Part.Save
" d( ~$ P) A# y( K/ H
tmpfi = Dir(Path & "*.SLDDRW")
* ?" E2 d4 o% P& N; X3 }
Do Until tmpfi = ""$ r5 G; {- d3 d- u) r: J+ C5 C# A
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
2 E; E: W+ x& k+ H) t9 v
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then/ d& q4 j8 x, R0 \
Name Path & tmpfi As Path & mip & ".SLDDRW" 5 S0 s4 j2 z1 b, M& r4 a
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
$ M/ Q- o- t9 t' y" F0 R3 Y$ D% n
Exit Do
; n3 \8 b7 H: C; }; j% q
End If8 ~# j) ^: L8 G% _2 H! D' D
tmpfi = Dir
! H+ B( J( G* M, e+ w
Loop
3 \; b* G; K! J! s `% e
End If) \; \; \8 c9 E/ O! O; [# l' y
End Sub

复制代码

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

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

shentu 发表于 2023-6-9 22:21/ ^, R) j+ C0 ]3 v7 t
同样运行出错。。。。。

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

$ A+ N- C& Q$ V% V

复制代码

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; c: }2 ?: R! y0 n7 H2 d4 k9 G
sw嘛？.

sw的宏

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

能说一下怎么用吗？

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

行云亦发表于 2023-6-9 15:21
+ p6 X( V+ b) K. P0 \能说一下怎么用吗？

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
% g# y' J- q3 TDim swApp As Object! c) `5 n) D7 R' x( R
Dim Part As Object
9 j# b! l z; ZSub main()

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

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

模型改名同时改工程图

评分

点评

点评