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

steve_suich

先在模型樹選中所要修改的模型，再運(yùn)行宏。宏內(nèi)容如下：
# a) e& J$ f6 t, x

1. Dim swApp As Object
   ( B& V1 j$ R2 h. y' k7 L  n; e' z7 c
2. Dim Part As Object
   " R5 V( |! T1 Q  A, Q  \+ L
3. Sub main()
   
4. Set swApp = Application.SldWorks
   ) C, O( R! o0 l8 L/ E* J- ~5 `
5. Set Part = swApp.ActiveDoc
   5 b4 O  E5 G; E7 J
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    : b% T* X5 q1 @$ e  e4 H) f  q
13.      mip = InputBox("changename", "name", oldname)
    3 t  Y7 i3 n4 ~9 G
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    " I$ X! h' i2 M
16.   Part.Save
    ; J, I% k8 F* F; ]+ M* U8 Q' x
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    : S, M0 r3 ~  _( P9 B5 v! d7 \
25. tmpfi = Dir
    
26. Loop
    
27. End If
    
28. End Sub

復(fù)制代碼

) m7 |- c0 ?3 S7 X% G8 F7 a; i

steve_suich

shentu 發(fā)表于 2023-6-9 22:21
; F) L+ j$ s6 Z$ ]' z: ?8 z同樣運(yùn)行出錯(cuò)。。。。。

Dim swApp As Object
Dim Part As Object
9 z/ R; L2 T4 M& n1 y3 ]: HSub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' {; W1 L: w) o7 w0 O2 C/ YSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
oldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
- x: f9 E+ |+ j5 D1 d8 V+ _ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
& P+ Q# k6 ?) I: Foldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
0 H/ Y8 ?8 g+ x9 V" R+ v, z/ Z' TIf mip <> "" Then
  Part.Extension.RenameDocument mip
" l/ e- I+ h+ V+ U  J$ W  Part.Save
# R# G7 a' t/ l* F  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
* m0 r1 I& G) \  W+ ~  A# h0 C    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
, C9 [- G6 y# t! G- ?2 s9 i    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
9 L! G+ j! {$ W     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
2 t3 E  N& R7 r7 a7 G% i; z     Exit Do
: q1 {$ k: h/ S2 b& C3 h   End If
tmpfi = Dir
Loop
End If
End Sub

" g: J3 W1 ^+ a) h6 L

1. 
   

復(fù)制代碼

# E( h& \6 R' g; q

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發(fā)表于 2023-6-9 14:14
sw嘛？.

3 Z: ~# J" h0 x# O+ @  j$ Xsw的宏
- n' S2 h$ z8 @

行云亦

能說一下怎么用嗎？

steve_suich

行云亦 發(fā)表于 2023-6-9 15:21
$ L; z  Z% M% I* I0 C能說一下怎么用嗎？

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

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


3 X" W2 m! W8 L

順子93

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

shentu

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

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
; t% D, F) c$ E& oDim swApp As Object
Dim Part As Object
Sub main()

8 y0 E  ~; ~: M$ i, B2 N8 ]0 y試了下，只改了part文件名，圖紙沒變，問題出在哪呢？
/ f+ n# s3 L- r+ y1 y4 h  _- Y5 H