模型改名同時改工程圖

cszhouhx01

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

steve_suich

cszhouhx01 發表于 2024-9-25 21:43
" l1 N& u! @& C' Q* {. S樓主你好！我按著你給的代碼宏運行了還是有問題呢   運行報錯

9 ?7 N8 M) F4 ^2 I8 o2 [提供一下你的宏，我檢查一下

/ {! ~7 _! d; G' p

cszhouhx01

( R( ?5 y4 a% L4 L& PDim swApp As Object
! \: c  D/ z8 b2 t2 H/ Y5 N! ?Dim Part As Object
1 E# k& H$ d; _% H* o. oSub main()( d; Q1 b; F0 ?# l- {
! k( e3 k/ G1 s& v9 \- K6 R) TSet 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
9 u) V2 P/ `% e. w; s4 ]oldpathname = 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
( w/ A8 W( t1 ?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
% g! b- a8 i) Q2 C) E' ~     mip = InputBox("changename", "name", oldname)$ e* \5 I$ z- t; B" w
If mip <> "" Then
8 M5 S3 ~# q1 n% a5 B  k  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
0 m0 _( g. G! T8 c# v5 z  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
6 A4 I+ ]9 k* _$ s; w    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
# _6 h2 q( e$ r  `) Z    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
0 I! Q1 B/ c* R4 c* H     Exit Do
   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
  w0 U7 u4 [& m9 }1 C' a& KLoop
7 k  U5 M, s1 k" x/ EEnd If  @/ K' \6 k  [/ y
. t) C3 X6 K( A6 Y. `7 i& g  cEnd Sub2


: K- |( {0 J3 O1 d) m你好   我就是按你這提供的代碼寫的宏

前流氓用戶新號

怎么講
) h7 E/ g! h" e+ ?9 i* G/ Z

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
4 _# ~' G$ g& [; p( lDim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

2 g( `8 B$ i# A, o1 F8 ^If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正確的應該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then