模型改名同時(shí)改工程圖

steve_suich · 發(fā)表于 2023-6-9 13:46:29

先在模型樹選中所要修改的模型,，再運(yùn)行宏,。宏內(nèi)容如下：

Dim swApp As Object8 G2 Z9 g0 g5 g- b" r! r* K
Dim Part As Object( K1 k- a, c! r7 W4 I
Sub main()5 |" N) y! P" C. }
Set swApp = Application.SldWorks
2 j o; r6 X7 m. m* X# G: G
Set Part = swApp.ActiveDoc% N5 P b% y. ]9 |9 i" X) n% B; ^: l8 ^ n
Set swSelMgr = Part.SelectionManager
: s7 k/ i7 M" X4 n# ^
Set swComp = swSelMgr.GetSelectedObject(1)
! O2 ~$ `! y. o4 ^9 J1 D
oldpathname = swComp.GetPathName, I7 b$ b( ~; X9 P' F
Path = Left(oldpathname, InStrRev(oldpathname, ""))
; m4 A. m, \+ g9 X( T
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))) F+ P/ U8 ^% D$ t
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)3 p9 H$ @% s7 g$ v0 m! M* L9 m
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1): f7 m. |: ~' _- O
mip = InputBox("changename", "name", oldname)3 E; P; g/ {; X! H3 ~/ ]
If mip <> "" Then
4 k4 C, f, {. d/ \! z
Part.Extension.RenameDocument mip
8 j) U9 b/ j& D: X- g! N" A
Part.Save
2 c1 @. {. l' b- l; ~% C; ?% R! ^# X
tmpfi = Dir(Path & "*.SLDDRW") O- o1 X7 x/ J5 S9 R
Do Until tmpfi = ""- f7 _& N( ?0 H# Q& N' V+ |* g
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
8 x8 P5 _% P; _& i9 k% H, F
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
3 x( Y- I8 c' [/ K4 n3 t
Name Path & tmpfi As Path & mip & ".SLDDRW"
) X1 k$ P3 l9 n7 L) _
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
6 f9 r$ v( D3 R( G' o3 ]
Exit Do' _3 g# ?! U! X) K3 w7 J0 n
End If
7 e0 _8 m% W0 P- `: M |2 d
tmpfi = Dir
4 n( w u; r6 `4 F: d, n
Loop
$ }: B' {1 S- g# s; I
End If
2 ?( `& j+ D9 e; k
End Sub

復(fù)制代碼

steve_suich · 發(fā)表于 2023-6-10 09:20:42

本帖最后由 steve_suich 于 2023-6-10 09:21 編輯

shentu 發(fā)表于 2023-6-9 22:21
# i" i! m: ]% L; y同樣運(yùn)行出錯,。,。。,。,。

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

5 I4 z! ~4 Q8 f* t3 P$ L9 ^' Y

復(fù)制代碼

happilly · 發(fā)表于 2023-6-9 14:14:20

sw嘛,？.

da · 發(fā)表于 2023-6-9 14:24:40

你是chatgpt搞的,？

steve_suich · 發(fā)表于 2023-6-9 14:28:38

happilly 發(fā)表于 2023-6-9 14:14/ c9 |0 z& l M7 ?: r; K6 j. ] [
sw嘛？.

sw的宏

行云亦 · 發(fā)表于 2023-6-9 15:21:17

能說一下怎么用嗎,？

steve_suich · 發(fā)表于 2023-6-9 17:21:12

行云亦發(fā)表于 2023-6-9 15:21: L/ L( r8 @4 s/ c( H% e( f6 }$ Y
能說一下怎么用嗎,？

1、sw 新建一個(gè)宏文件,，內(nèi)容按上面的代碼,。2、打開一模型文件（裝配體或者零件）
3,、在打開的模型界面的模型樹結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）

4,、運(yùn)行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成,。

順子93 · 發(fā)表于 2023-6-9 21:52:39

運(yùn)行出錯,，08行有問題。錯誤91,，對象變量或with 塊變量未設(shè)置

shentu · 發(fā)表于 2023-6-9 22:21:02

同樣運(yùn)行出錯,。。,。,。。

人外有人 · 發(fā)表于 2023-6-19 10:59:33

steve_suich 發(fā)表于 2023-6-10 09:20, F) x; }# [5 h" w: @( i/ f8 G
Dim swApp As Object, U) t% f$ |" f: K: q. o) l( _
Dim Part As Object T: ]" \/ Y: s( S( Y" X9 t) {6 V
Sub main()

試了下,，只改了part文件名,，圖紙沒變,，問題出在哪呢？

		自動登錄	找回密碼
密碼			注冊會員

模型改名同時(shí)改工程圖

評分

點(diǎn)評

點(diǎn)評