模型改名同時改工程圖

cszhouhx01

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

steve_suich

cszhouhx01 發表于 2024-9-25 21:43
( |" v- c+ n/ Q! u  B' L4 }樓主你好！我按著你給的代碼宏運行了還是有問題呢   運行報錯

6 y7 A% M- }3 Y7 _0 B: o+ Y" L% [提供一下你的宏，我檢查一下
4 F. A" z+ @0 n5 y9 D# T; d8 [5 W
) L" r5 M% x4 N- X9 I4 Z: m+ P7 [

cszhouhx01

Dim swApp As Object
Dim Part As Object
+ x3 w/ B! r- LSub main()( d; Q1 b; F0 ?# l- {
( Z$ h9 j6 K8 Z0 h% G' aSet swApp = Application.SldWorks
5 O9 d" S1 D( ESet Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
+ q5 |# ^+ q1 Y' u- }/ [' V- a4 O2 @; xSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
/ f$ U4 k% t; W: s3 q7 d: j! Q( uoldpathname = 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
     mip = InputBox("changename", "name", oldname)$ e* \5 I$ z- t; B" w
7 l+ g8 ~8 d  ]+ P, ]If mip <> "" Then
* L( k4 e* N; o' Q: A6 ]* Z  D2 W  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
8 j! M8 P& f. M8 {& R# L  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
- w& D& F: \7 f) z. I- l) @* C    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
+ z$ U6 ]' H1 s2 h0 o& o     Name Path & tmpfi As Path & mip & ".SLDDRW"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
- F0 a" T, t& X! b0 k: ]     Exit Do
1 u1 q8 K9 h* |5 z( r! B, J   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
' j* w( ?& k0 RLoop
End If  @/ K' \6 k  [/ y
End Sub2

2 G" k/ O3 i7 y
5 n, _1 E& z9 J/ N6 ]5 E你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號

怎么講

8 H) q! A0 K2 n6 Z8 L

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 發表于 2024-9-27 21:36
' ?2 a- U2 K) n' K3 zDim swApp As Object
$ g# w, g8 J$ d/ \; W1 P$ EDim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

7 {+ r( {( P( }  R; UIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
" |# }' Y' m7 L% I. F* F2 _正確的應該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then
+ o9 T( X7 k- a* ]9 Y- g