模型改名同時(shí)改工程圖

cszhouhx01

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

steve_suich

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

提供一下你的宏,，我檢查一下
8 }" ~, q5 ~( [9 n
: |2 G$ A; U& f

cszhouhx01

Dim swApp As Object
$ U% }0 p- ~& [Dim Part As Object
# }4 v: u% ?$ H( \Sub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
+ A! {; X" v8 i" ]/ v/ d( L+ a. qSet Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
: ]! M' j  g, ~* O& aSet swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
. m' Q) [" @7 m1 K* ^' [. Soldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
1 R6 J0 z" ]1 U# L' P7 p- WPath = Left(oldpathname, InStrRev(oldpathname, "\"))
* Y3 m* \0 D" u: b  w, b- o4 W1 ontype = Mid(oldpathname, InStrRev(oldpathname, ".")): f% I; o3 ^. B# V/ i  N- Y( I5 s
oldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)& _! r& R0 n4 o
% S4 \. j' b: a- g, Y- e9 {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
" {( J/ t9 F( m  Z4 j; U& eIf mip <> "" Then
  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
# G( Y  I% [, U+ W4 D6 o# u  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
4 o) X6 {8 N4 k4 v3 A     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
     Exit Do
   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
Loop
End If  @/ K' \6 k  [/ y
' t% ^: i- c" A0 j8 x1 ]End Sub2


* c/ T! c9 y- x- M' O你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號(hào)

怎么講
: ~5 V& I8 i- x% ~8 K* q/ v
$ u4 K0 F0 P! n6 r* Y

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 發(fā)表于 2024-9-27 21:36
Dim swApp As Object
Dim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

3 y/ k$ f! ^: C1 EIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
3 v: w7 ^( y& L/ Z正確的應(yīng)該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then