模型改名同時改工程圖

cszhouhx01

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

steve_suich

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

提供一下你的宏，我檢查一下

cszhouhx01

  X0 k) n0 n8 D8 j) X" rDim swApp As Object
( w1 v2 M* D" {( J  r+ ]1 K0 {Dim Part As Object
$ f* a9 g0 x( i4 |2 dSub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
4 H& c! }: Y* P5 j/ 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
+ G2 q5 r3 ^+ Y. Eoldname = 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
3 Y; X' d+ |8 sIf mip <> "" Then
, ?5 Z1 a. \6 I7 g5 l  G  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
+ S; P+ ~2 d9 I, ~# }* L  Part.Save
7 U$ b% e& q& Y, O& a. u0 T  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
4 V: C+ c* G* w- ~/ I& M% L9 f    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
5 b( z& _' b# {( l5 b# g6 l! Y    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
     Name Path & tmpfi As Path & mip & ".SLDDRW"
  K! Z. ]5 b# n/ F5 p* O$ ~    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
6 s( t' U) {; E( ?. d     Exit Do
   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
+ ]% [! P5 ]7 [# NLoop
End If  @/ K' \6 k  [/ y
End Sub2


你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號

怎么講

- F& }8 q& v: z1 M, n

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 發(fā)表于 2024-9-27 21:36
& y7 M# @. n' ?+ M  ~% }Dim swApp As Object
Dim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

6 f. \- B8 U8 p( N2 L6 c' eIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正確的應(yīng)該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then