模型改名同時改工程圖

steve_suich

先在模型樹選中所要修改的模型，再運行宏。宏內容如下：

1. Dim swApp As Object
   
2. Dim Part As Object
   
3. Sub main()
   + b0 ?; m: h- O' h/ e7 [2 @
4. Set swApp = Application.SldWorks
   
5. Set Part = swApp.ActiveDoc
   & y6 N* J5 ~/ _# M) f6 t
6. Set swSelMgr = Part.SelectionManager
   
7. Set swComp = swSelMgr.GetSelectedObject(1)
   ' |: ?' T; Z4 S" R. [
8. oldpathname = swComp.GetPathName
   " R- g1 R7 i; T
9. Path = Left(oldpathname, InStrRev(oldpathname, ""))
   . ~8 i+ _# h. I# _8 |1 }
10. ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
    
11. oldfi = Mid(oldpathname, InStrRev(oldpathname, "") + 1)
    
12. oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
    ' l% _: i, T6 ~
13.      mip = InputBox("changename", "name", oldname)
    . x( [, M$ z8 H" d9 h' H8 p
14. If mip <> "" Then
    " H8 E& _2 G2 H
15.   Part.Extension.RenameDocument mip
    
16.   Part.Save
    
17.   tmpfi = Dir(Path & "*.SLDDRW")
    % b- c+ n; z) Z3 R
18.   Do Until tmpfi = ""
    
19.     vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    + g1 ~; \# b4 m: q3 \+ U
20.     If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
    - k; J0 f  m1 M* T% n
21.      Name Path & tmpfi As Path & mip & ".SLDDRW"
    
22.     bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
    7 ]+ v) u3 R+ [
23.      Exit Do
    
24.    End If
    
25. tmpfi = Dir
    / t0 P6 E  D- c; i$ n9 t
26. Loop
    
27. End If
    # }  S5 c9 }1 B+ E5 b
28. End Sub

復制代碼

  m4 ]. k) X' B5 O6 [# y% o3 t0 v9 U
( P! P8 r; b' i) t0 |1 N6 P

steve_suich

shentu 發表于 2023-6-9 22:21
同樣運行出錯。。。。。

Dim swApp As Object
4 J/ q8 M" K/ N" @' xDim Part As Object
Sub main()
, u0 t$ u2 n! W! z+ [4 NSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
, ~' k; d# g* m, lSet swSelMgr = Part.SelectionManager
3 p+ j6 p3 C$ _0 U, H7 {Set swComp = swSelMgr.GetSelectedObject(1)
+ c2 Z9 ]4 d$ b/ X! p2 x3 p9 G  ^oldpathname = swComp.GetPathName
/ r3 Z9 k! F1 {, }Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, "."))
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)
1 e: c: n1 h. E* N+ J% `; W2 N     mip = InputBox("changename", "name", oldname)
If mip <> "" Then
; L! W: B4 v0 y- }5 J5 z4 }  Part.Extension.RenameDocument mip
( e" o% |5 D4 [( n, i' T  Part.Save
( q7 q; G  K, b  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
# ]) P% Q; l& u3 V) }    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then
     Name Path & tmpfi As Path & mip & ".SLDDRW"
2 w7 c6 b) [! Q( i' [    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)
     Exit Do
7 E, v7 |+ s4 _4 i+ [   End If
tmpfi = Dir
Loop
End If
/ [8 l1 s, \1 `/ d+ e7 K  AEnd Sub
! D) L* D' j6 P2 z" ]* B) Z: [
* Y: u/ ]& i1 d' p6 C( A

1. 
   

復制代碼

7 A/ L) i2 e4 K: k  t- b  a

happilly

sw嘛？.

da

你是chatgpt搞的？

steve_suich

happilly 發表于 2023-6-9 14:14
sw嘛？.

0 a8 Y: Z9 l2 y$ s) |2 Ysw的宏

行云亦

能說一下怎么用嗎？

steve_suich

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

3 q/ ]0 a# N' r5 X- W1、sw 新建一個宏文件，內容按上面的代碼。2、打開一模型文件（裝配體或者零件）
5 C: w  x/ U. `3 C3、在打開的模型界面的模型樹結構里面用鼠標點選所要改名的零件（或者子裝配體）
' ?$ @9 X# a% u  t) i3 h
4、運行剛才建好的宏文件，---彈出輸入框--輸入新的名字--點確定---完成。
& s; E4 @7 C5 s  f: T6 G

順子93

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

shentu

同樣運行出錯。。。。。

人外有人

steve_suich 發表于 2023-6-10 09:20
Dim swApp As Object
Dim Part As Object
9 M6 o6 v! k' P+ _Sub main()

試了下，只改了part文件名，圖紙沒變，問題出在哪呢？
1 G% T4 r% h8 s  Z; r" E0 F
+ D  a! Y6 t9 m1 m) w