模型改名同時改工程圖

cszhouhx01

樓主你好！我按著你給的代碼宏運行了還是有問題呢   運行報錯

steve_suich

cszhouhx01 發表于 2024-9-25 21:43
樓主你好！我按著你給的代碼宏運行了還是有問題呢   運行報錯

提供一下你的宏，我檢查一下
' S; ?. u8 R; e: j/ ]. e7 V- u
) C0 ]' J$ I8 X8 E, V

cszhouhx01

Dim swApp As Object
0 g7 u6 _7 w1 A9 w6 C0 zDim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
) ~2 n, h/ O- g, }5 L3 Q, iSet Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
9 V( @! L7 e2 |9 ASet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
. U/ c, F9 m+ U4 _" yoldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
Path = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, ".")): f% I; o3 ^. B# V/ i  N- Y( I5 s
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)& _! r& R0 n4 o
oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)2 d! N5 r1 [/ I# B  M" H6 j
. b/ L% p, q- A9 {     mip = InputBox("changename", "name", oldname)$ e* \5 I$ z- t; B" w
* h- N  ~9 Q5 |  J6 [5 P/ u  xIf mip <> "" Then
; h% A( H" ]9 ?& ?& |1 {. \  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
  Part.Save
# Q3 Z+ {8 @, T) U1 O3 R" d- v3 l  tmpfi = Dir(Path & "*.SLDDRW")
; W, t  k8 B/ K$ T4 l/ G  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
+ ?: g' ^) W" m8 H  C    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
& y% D  r/ p& {0 T5 Y     Name Path & tmpfi As Path & mip & ".SLDDRW"
7 a, h+ Z7 B$ D# V    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
     Exit Do
+ e2 }8 W- C2 P8 J   End If
" j$ U1 Z) V0 htmpfi = Dir* @: D+ V& b  H3 |; B
Loop
( l6 |( i" d' G' _+ \End If  @/ K' \6 k  [/ y
End Sub2


! v# x: f1 z  L) r$ ~; O你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號

怎么講

/ }+ e/ z; p3 O  v" B

steve_suich

這個宏代碼確實有點奇怪，同樣的代碼在不同的電腦上運行有的可以，有的不行。SW版本都是2016，不好排查原因了。

steve_suich

發現一個問題，如果工程圖里面沒有參考任何模型。那么這個代碼vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)就會報錯。

steve_suich

cszhouhx01 發表于 2024-9-27 21:36
Dim swApp As Object
0 J3 n# J/ X$ x5 Z2 cDim Part As Object
0 _% `+ m3 y& X0 j, A5 T2 qSub main()( d; Q1 b; F0 ?# l- {

If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正確的應該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then