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

steve_suich

先在模型樹選中所要修改的模型，再運(yùn)行宏。宏內(nèi)容如下：
# h0 z$ D5 S+ O/ i

1. Dim swApp As Object
   1 o. c) B; K) y2 u- F
2. Dim Part As Object
   
3. Sub main()
   6 L' X% F; |; K9 Y. f
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   ' {+ K% d* N6 C  E0 B+ g
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   * m( ~- Q- k$ `2 M
8. oldpathname = swComp.GetPathName
   
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    8 S  ]7 E& p5 p( V. Z3 h
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    ( R0 z% C0 S" p# c( z& h
15.   Part.Extension.RenameDocument mip
    8 e) |$ R: D0 S' S1 p- B- y7 O
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    ) b1 B4 w  O$ z3 K9 f
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    8 [5 Y' a% S1 d" |; a
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    # N0 j. @- d9 ]
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    
24.    End If
    5 v4 d6 o+ K& I/ i. M
25. tmpfi = Dir
    
26. Loop
    
27. End If
    
28. End Sub

復(fù)制代碼

, n8 _* L' e+ |7 U1 I: H

steve_suich

4 m6 x) ]6 ^+ p: i7 R1 p) e

shentu 發(fā)表于 2023-6-9 22:21
' {/ K! A) X- `- T' |7 ?9 L同樣運(yùn)行出錯(cuò)。。。。。

Dim swApp As Object
% r6 s* ^! V* y; u* g+ ^Dim Part As Object
Sub main()
; A5 q9 z3 K8 {Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
! M5 t) C6 H  S  [; |oldpathname = swComp.GetPathName
1 d- g8 c8 n8 |4 B. [+ q( jPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
- b$ X- ~1 u; d( w6 H% d7 \oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
: s2 G* P1 z+ Q, c7 b0 J     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
" V$ b! n* Z9 `9 `- H+ S# R% w0 g  Part.Extension.RenameDocument mip
& W' I" C" ?8 J; m* {3 u. @  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
! }7 i0 D: K6 a) }( T0 u  p  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
/ I9 C( D0 ^- j1 `, C' v$ `2 W    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
, p6 \' t8 k5 _) c' J     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
5 c6 @! F* D4 _7 e0 X; Z! f8 z5 O   End If
tmpfi = Dir
Loop
End If
End Sub
0 H% e# o+ S" C9 y+ p; O
3 V, @$ c9 A9 K. C4 o

1. 
   

復(fù)制代碼

' D1 k, o6 _8 K* w
# M. k  \8 ~: C. J* K/ K

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發(fā)表于 2023-6-9 14:14
6 n0 Z2 `4 M. N1 D7 j; Wsw嘛？.

sw的宏
: m) Q# Q$ `/ u+ h

行云亦

能說(shuō)一下怎么用嗎？

steve_suich

行云亦 發(fā)表于 2023-6-9 15:21
9 m; Q0 U/ ]8 F9 u/ O* k2 h0 I能說(shuō)一下怎么用嗎？

2 {3 T7 {( Z& \1、sw 新建一個(gè)宏文件，內(nèi)容按上面的代碼。2、打開一模型文件（裝配體或者零件）
: y& f5 L8 T$ v0 f# H1 E* Q) `) |3、在打開的模型界面的模型樹結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）

4、運(yùn)行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成。
# s  ?2 x& m4 w) `3 O2 m3 o

) P, a; |( b3 T8 d8 @. s

順子93

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

shentu

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

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
7 u9 s. v" d1 H7 ]7 g4 aDim swApp As Object
Dim Part As Object
! f6 J: K9 z& h& R" L  o  VSub main()

試了下，只改了part文件名，圖紙沒(méi)變，問(wèn)題出在哪呢？
" U. B4 a+ C4 ^