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

steve_suich

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

1. Dim swApp As Object
   7 N5 |  B, j7 V( {4 A7 E' @5 i
2. Dim Part As Object
   7 G( E" n0 s# f4 X3 e4 `
3. Sub main()
   % m( y* h( \0 W% y; l
4. Set swApp = Application.SldWorks
   " Z7 Q' k4 |8 y8 F/ [6 d
5. Set Part = swApp.ActiveDoc
   6 k, Y* U; \3 }. o
6. Set swSelMgr = Part.SelectionManager
   1 |# T3 u( Y/ ^4 x# E! e
7. Set swComp = swSelMgr.GetSelectedObject(1)
   
8. oldpathname = swComp.GetPathName
   / [' h0 ?7 _- u: j
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    $ b. D" p+ e" Z! q1 i; l* L
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    ; @) m1 C; d" d7 h8 ?) w
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    
13.      mip = InputBox("changename", "name", oldname)
    
14. If mip <> "" Then
    
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    0 p+ a: x( j) [2 e: y
17.   tmpfi = Dir(Path & "*.SLDDRW")
    3 Y* s( e9 D% J# r
18.   Do Until tmpfi = ""
    + T4 y, m9 A8 I5 w- ]6 U. m; W- ^7 k
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    $ C4 A' i7 s: v* s! \) J
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)
    ! c  y2 z4 ?9 Y  K
23.      Exit Do
    8 {+ h/ V4 k0 x1 _
24.    End If
    , r1 O4 p& G* M- D3 B- v
25. tmpfi = Dir
    * \# \- Z/ _* \0 x3 o' C
26. Loop
    
27. End If
    $ R6 G, c; H' M9 E
28. End Sub

復(fù)制代碼

0 w, R3 |4 g7 C( S- u8 H

steve_suich

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

Dim swApp As Object
Dim Part As Object
  G" v3 z7 G; |/ o% u/ b9 h! \9 ~  mSub main()
* ?" B$ w6 V4 F9 j6 r% qSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set swSelMgr = Part.SelectionManager
5 p9 [+ h0 P9 [2 D- }- hSet 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)
1 Y: j1 a1 }2 {/ |' t# l8 K     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
* i$ V* L0 e5 m/ `4 ]  Part.Extension.RenameDocument mip
) T, p0 Y: g& p$ f7 B- k0 X# ?  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
! k9 e/ D( g4 {6 _5 Y( o! U    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
8 v7 o! Z, }/ Q' @     Name Path & tmpfi As Path & mip & ".SLDDRW"
4 F6 J0 c4 m7 q( y7 s7 S    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
   End If
tmpfi = Dir
$ `! @8 C& `+ {- RLoop
End If
End Sub
" M  W& l( r  {7 z

1. 
   0 k9 |8 a" S0 K. _

復(fù)制代碼

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

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

, F6 ~+ u" H) ?) H8 A1 Usw的宏
) T* G0 b$ d* f$ [

行云亦

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

steve_suich

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

6 V! j! Y  k; e1 |. ^' p% I2 l, F1、sw 新建一個(gè)宏文件，內(nèi)容按上面的代碼。2、打開(kāi)一模型文件（裝配體或者零件）
' ], ^4 J  ?$ R, y# \3、在打開(kāi)的模型界面的模型樹(shù)結(jié)構(gòu)里面用鼠標(biāo)點(diǎn)選所要改名的零件（或者子裝配體）
% ^3 f* ]3 E" e4 X* y
" J8 E! Z# G* X) [4 {8 g, m4、運(yùn)行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點(diǎn)確定---完成。
' n- U. z: Y  G' G
3 M# M, x2 f( z8 H3 n$ J! p

順子93

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

shentu

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

人外有人

steve_suich 發(fā)表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
Sub main()

試了下，只改了part文件名，圖紙沒(méi)變，問(wèn)題出在哪呢？
/ ^9 B) a1 c& F% e6 U; K" e
1 K. O" C* }2 f' I& Z