模型改名同時改工程圖

steve_suich

先在模型樹選中所要修改的模型,，再運行宏,。宏內(nèi)容如下：
7 I! R7 k6 H* H& i/ m

1. Dim swApp As Object
   6 g& i1 y  R, U, p$ z5 C
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   , g  B8 u' F7 `% s* ], K  l
5. Set Part = swApp.ActiveDoc
   9 R- b% b/ R. z0 a
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   " x! F8 M% M0 U+ w  v
8. oldpathname = swComp.GetPathName
   " _3 g% l1 K& P1 ^! _% q
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   8 x- ^! y! f/ T
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    " t! U! Z5 [- s3 @5 w4 S2 R
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    3 n% o" O' K; }( N0 [# X
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    $ d% y8 E$ u$ T% E! r
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    2 }& P" F$ A; C3 U4 K; k5 A9 F+ H
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    5 S+ [" A, k0 C: `
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    ( r7 B3 j. d! [# W
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    9 x% H% q5 R  u) v& g
23.      Exit Do
    
24.    End If
    9 u: m# E. u7 Z& X1 \% f3 |
25. tmpfi = Dir
    
26. Loop
    1 }3 Z3 }/ q8 }" k  c$ s" F
27. End If
    6 v  X8 v4 y: R
28. End Sub

復(fù)制代碼

steve_suich

shentu 發(fā)表于 2023-6-9 22:21
2 Q+ D# d# O! S5 x% T& O' d& v2 I同樣運行出錯。,。,。。,。

Dim swApp As Object
6 i4 l( g  w! i$ {1 J% x# zDim Part As Object
6 \9 l) p; ?  M) wSub main()
Set swApp = Application.SldWorks
5 T! G% Y7 f8 g9 u5 P3 FSet Part = swApp.ActiveDoc
& u  \  I- g( d2 }7 d: R7 |Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
4 p1 K! W% s0 ^/ holdpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
. }0 R: N6 I1 o% [# ontype = Mid(oldpathname, InStrRev(oldpathname, "."))
' P, G% ?! e& N# u$ Foldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
" Z# I% w0 [8 L* p* c  Part.Extension.RenameDocument mip
  Part.Save
5 W: s- G  ~0 Z/ B1 K2 z  tmpfi = Dir(Path & "*.SLDDRW")
% w& P. m8 t- F3 v2 e9 Z  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
* I2 x% m+ U  D    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
$ i0 q. b' Y0 q/ h     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
6 t( q1 I5 k1 n   End If
tmpfi = Dir
Loop
End If
8 i0 F" j$ r: Y/ r4 |End Sub
6 B# r* o  G4 p  `

1. 
   

復(fù)制代碼

$ m- q) H0 d: R$ ]7 E2 c

happilly

sw嘛,？.

da

你是chatgpt搞的,？

steve_suich

happilly 發(fā)表于 2023-6-9 14:14
: U# v3 e. {1 V# s+ bsw嘛？.

sw的宏
% E# {+ W- }0 W2 b' x

行云亦

能說一下怎么用嗎,？

steve_suich

行云亦 發(fā)表于 2023-6-9 15:21
能說一下怎么用嗎,？

1、sw 新建一個宏文件,，內(nèi)容按上面的代碼,。2、打開一模型文件（裝配體或者零件）
3,、在打開的模型界面的模型樹結(jié)構(gòu)里面用鼠標(biāo)點選所要改名的零件（或者子裝配體）
+ W1 C1 h: q4 c" ?5 ^- r, T3 X. ]4 r! k
1 i. D3 y: \: P4,、運行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點確定---完成,。

/ I- F% z. ^  f; n$ p1 K
3 C3 o. {' k- E; t

順子93

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

shentu

同樣運行出錯。,。,。。,。

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
: a6 y: s3 E2 L5 b% VDim swApp As Object
Dim Part As Object
; F4 }! Z5 j8 e' c, ?Sub main()

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