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

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

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

Dim swApp As Object$ i! c" w' f4 m$ u1 G+ a L
Dim Part As Object
3 C8 }& F2 f H7 K
Sub main()9 e: j( {! n% o0 r' k% H0 D; m/ T* p
Set swApp = Application.SldWorks
0 i3 Q- M. h# C D5 s
Set Part = swApp.ActiveDoc! C' {/ y% V( p& L$ n
Set swSelMgr = Part.SelectionManager! Z$ e# P5 n9 E8 S) V
Set swComp = swSelMgr.GetSelectedObject(1) * J! u8 T+ ^4 w% D
oldpathname = swComp.GetPathName3 {" D& `( _* V/ T# p) m6 ]% H$ a9 x' Y: l
Path = Left(oldpathname, InStrRev(oldpathname, ""))
( X4 b9 o3 w# N6 T5 R# T) Y- D7 m/ _8 `
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))# o% r R" d- i9 l
oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
5 ^# X% a+ F" ?2 g
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
5 f% p5 M! X- ?$ C; O/ _% X
mip = InputBox("changename", "name", oldname)1 ?* {! A+ t2 z; R& u* S
If mip <> "" Then
" X8 q+ |$ \. r2 P
Part.Extension.RenameDocument mip 5 j- j" v- Q8 N0 F
Part.Save
' k: n5 @% Z7 e4 g5 _
tmpfi = Dir(Path & "*.SLDDRW")
- H7 B. }* u& j9 F. v. p
Do Until tmpfi = "", l) ?. b1 _1 [6 j' v9 m
vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)1 C% t/ k! P2 v7 N+ Q& w
If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
& z' t$ ?/ d y+ V7 r, ?
Name Path & tmpfi As Path & mip & ".SLDDRW"
- O) @5 I R/ D/ y6 K
bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype) ( }$ K& @3 C j; ?
Exit Do
7 l+ i4 z4 `6 a* ^% S& O# S
End If
H& l0 ?! B4 c4 V4 r
tmpfi = Dir, s" n E% f8 A. E
Loop
7 U R/ G. ?! v" S- g3 [* v9 S a
End If4 R; |$ s' q3 D( u! b7 S; B
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:212 ^& N7 E9 Z2 [, m/ T
同樣運(yùn)行出錯(cuò),。。,。,。。

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

o4 J% r5 G) E& S# o

復(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/ C+ ~) R- U7 T1 [2 ?) C6 H) Y
sw嘛,？.

sw的宏

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

能說一下怎么用嗎？

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

行云亦發(fā)表于 2023-6-9 15:21- h: s2 Y/ k! g7 |
能說一下怎么用嗎,？

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)行出錯(cuò),，08行有問題,。錯(cuò)誤91,，對象變量或with 塊變量未設(shè)置

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

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

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

steve_suich 發(fā)表于 2023-6-10 09:20
. G! e1 t" a' i+ QDim swApp As Object% q( @* ]; u3 p5 B
Dim Part As Object
0 @4 i r" ]1 B8 h( p- WSub main()

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

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

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

評分

點(diǎn)評

點(diǎn)評