模型改名同時改工程圖

cszhouhx01

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

steve_suich

cszhouhx01 發(fā)表于 2024-9-25 21:43
* L5 k& X6 O0 x' @& \2 N" E* [7 ?( e樓主你好,！我按著你給的代碼宏運(yùn)行了還是有問題呢   運(yùn)行報錯

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

cszhouhx01

Dim swApp As Object
, \! Z% `. \+ ~  ]9 ZDim Part As Object
! E% F0 o2 s# l! j. b  kSub 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
' n  e3 |0 ?* G4 Voldpathname = 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
) e" d7 j5 ]) M! l1 }oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)2 d! N5 r1 [/ I# B  M" H6 j
5 L, j- H% C! c! T     mip = InputBox("changename", "name", oldname)$ e* \5 I$ z- t; B" w
If mip <> "" Then
  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
& ~3 K. T( w! e4 k& P  Part.Save
* C6 x# R( P1 e  tmpfi = Dir(Path & "*.SLDDRW")
0 V: @, z7 F$ \9 G8 I  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
+ ]; v6 g$ I' x* Q6 X" ]    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
     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
1 k* L/ W& V: S1 j     Exit Do
1 D8 k- N. z& K8 g) G5 J* X   End If
1 o" D8 G. Z4 qtmpfi = Dir* @: D+ V& b  H3 |; B
" ~" q4 X5 |" y/ ?- s; QLoop
9 ?# S5 i2 ^1 L$ CEnd If  @/ K' \6 k  [/ y
% G0 C) Q& i( R0 H6 r2 WEnd Sub2
1 r1 W! }2 a) X4 S- \0 |* @0 ?
$ Y: K, Q- d. k0 @; T0 d
你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號

怎么講

steve_suich

這個宏代碼確實(shí)有點(diǎn)奇怪,，同樣的代碼在不同的電腦上運(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
Dim swApp As Object
* s( t/ g9 y! g% q* K$ fDim Part As Object
- t0 G% ^# z0 F& w. d+ cSub main()( d; Q1 b; F0 ?# l- {

1 \5 ^$ x  P0 q0 ]4 e" q# ^. n. fIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
. x$ }& @) h3 ~0 f正確的應(yīng)該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then
* x7 T) U# B/ ^& p2 H2 B  y" n/ ]