模型改名同时改工程图

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

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

Dim swApp As Object( z/ p7 N$ u& y+ d
Dim Part As Object
; R2 ^* z7 l; O- O
Sub main()" _/ |9 a6 D7 o& Y5 }' ?
Set swApp = Application.SldWorks8 B3 a$ K( n% g0 A& m- M
Set Part = swApp.ActiveDoc* J' O4 N! r; w1 }' B e
Set swSelMgr = Part.SelectionManager
1 n0 y! S7 r7 j e6 M
Set swComp = swSelMgr.GetSelectedObject(1)
4 x0 q1 q- U5 Q, l1 ~' H
oldpathname = swComp.GetPathName
9 w+ X! g% j' A+ q B
Path = Left(oldpathname, InStrRev(oldpathname, ""))/ J* S1 W, c& }6 g$ L7 }* Y, a; }
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
4 ?$ g5 ^$ C& X) l3 Y. `6 ^0 h
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
: t- `3 w {5 e9 L9 z) ?
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
: M7 I$ M) U9 F* U
mip = InputBox("changename", "name", oldname)7 ~$ w* C. b! f- c
If mip <> "" Then
: A* I$ P9 J: _0 P
Part.Extension.RenameDocument mip # ]& L/ R) i9 V" L4 \$ h6 C
Part.Save; H4 I* |# h0 j$ ^& q) `
tmpfi = Dir(Path & "*.SLDDRW")
6 D6 \/ _; o0 M# D( {+ z# }) d% @6 R7 e
Do Until tmpfi = """ Y6 K5 v4 b( V: {' c
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False), U; d I7 I+ c Q1 r9 p* N
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
/ j6 Y4 X7 _3 q2 o( W' K
Name Path & tmpfi As Path & mip & ".SLDDRW"
8 S7 _+ v0 O2 y: y- d* h* o9 N
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
" \; _+ ^6 K1 D# _2 t8 r
Exit Do! P! ~3 M! L0 u* o( R
End If+ S% x. ?1 n ~
tmpfi = Dir
' o/ c5 {4 P9 q: y' Q
Loop
* B; y! f' y" I: J; v$ z) L$ H4 _
End If/ [) M0 o+ D+ ~; X; ]
End Sub

复制代码

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

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

shentu 发表于 2023-6-9 22:21- r3 M/ }: j: r8 q! u, 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

4 o S# o7 ?- f, x+ H" w# `( e

复制代码

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- \: @2 }5 S7 n! d" H& h
sw嘛？.

sw的宏

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

能说一下怎么用吗？

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

行云亦发表于 2023-6-9 15:219 v+ C+ u: F" ^/ `: i T
能说一下怎么用吗？

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 }+ \* T$ }2 S' n, e! ^& r
Dim swApp As Object
/ Y) L! }- W+ q7 F$ z, tDim Part As Object' S& P8 R$ N% e: g$ D
Sub main()

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

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

模型改名同时改工程图

评分

点评

点评