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

steve_suich

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

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   
6. Set swSelMgr = Part.SelectionManager
   # @1 T* s$ }/ Y
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)
    3 l# \& h5 t( k/ U5 o
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    7 p& {/ B7 S  [: `; n1 P
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
      y) t" D3 P5 u7 K
17.   tmpfi = Dir(Path & "*.SLDDRW")
    
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    ) i' x- F3 ~' r
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    2 e9 b. m. |, T( n' M
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    
23.      Exit Do
    . u8 [0 p! Y+ |* z8 G3 L# {
24.    End If
    ) ~" C! p4 T$ _& U4 Q
25. tmpfi = Dir
    3 {. h- I# ]" Q+ y$ Z
26. Loop
    # x& b, M& e) H# E+ {6 P& r) E" F
27. End If
    
28. End Sub

復(fù)制代碼

% l5 L8 V+ K: J6 t

steve_suich

" V2 A) }! Q2 h' q0 n% ~

shentu 發(fā)表于 2023-6-9 22:21
同樣運(yùn)行出錯(cuò)。,。,。。。

Dim swApp As Object
0 F! X+ t8 }* ~7 QDim Part As Object
Sub main()
+ b. K: P, d. o& p. X; @Set swApp = Application.SldWorks
( Z8 X5 X+ E2 K6 L0 {$ JSet Part = swApp.ActiveDoc
# I; E0 t% j& K8 r6 ~6 l) O  USet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)
5 G0 f% z8 r, z  u9 v# Z" roldpathname = swComp.GetPathName
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
& z0 H$ r7 {/ z5 j& G9 ~1 pntype = Mid(oldpathname, InStrRev(oldpathname, "."))
8 i' ]; h" q  I/ l2 ?- k- |6 Doldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
* `' Z: L& f9 f6 K; K  Part.Extension.RenameDocument mip
  Part.Save
6 ?( \) N* N, X  tmpfi = Dir(Path & "*.SLDDRW")
0 y7 p; M8 Y% V8 Z/ u) C( n% F" I  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
' |/ x% ^$ v5 x' f2 T     Name Path & tmpfi As Path & mip & ".SLDDRW"
( @/ V9 f  o# Q. v. i) u+ T    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
7 {' a, D3 e) V5 O     Exit Do
, X/ q4 g: g- A2 O! r0 B6 w   End If
8 m9 u  I" ?1 }6 m' R, J# ptmpfi = Dir
Loop
1 y1 W. x6 Q3 C- @$ WEnd If
" i" K) t. q; Z, {, h- fEnd Sub

) D" K: i& H' e" J' ?3 }0 |6 x

1. 
   

復(fù)制代碼

  b1 S) q  i7 z! V  i

happilly

sw嘛,？.

da

你是chatgpt搞的？

steve_suich

happilly 發(fā)表于 2023-6-9 14:14
0 a* }+ `" J0 @# q& [8 `- qsw嘛,？.

sw的宏

行云亦

能說一下怎么用嗎,？

steve_suich

行云亦 發(fā)表于 2023-6-9 15:21
7 R  x, \! f( Y  i+ e7 Q1 T% ^( x能說一下怎么用嗎？

, n/ H6 D9 Y3 s4 D4 y1,、sw 新建一個(gè)宏文件,，內(nèi)容按上面的代碼。2,、打開一模型文件（裝配體或者零件）
* n7 d! W9 ^, X" P3,、在打開的模型界面的模型樹結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）

4、運(yùn)行剛才建好的宏文件,，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成,。
9 T; b" O6 H$ N% W% Y, h
$ \2 u1 W# Y& I/ Y8 G

順子93

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

shentu

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

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
' w0 }) A) j& g7 N' ^Dim swApp As Object
  d  e) Y9 Z: p, SDim Part As Object
Sub main()

3 H. Y" X) {  M9 a, X. O試了下,，只改了part文件名，圖紙沒變,，問題出在哪呢,？

8 ^' ?* }; q$ C, e