模型改名同时改工程图

cszhouhx01

楼主你好！我按着你给的代码宏运行了还是有问题呢   运行报错

steve_suich

cszhouhx01 发表于 2024-9-25 21:43
楼主你好！我按着你给的代码宏运行了还是有问题呢   运行报错

- M' G+ {( M( R' T提供一下你的宏，我检查一下
/ ?+ o% {: O$ H/ L
" i9 A. S' ^7 _  v. h/ |

cszhouhx01

Dim swApp As Object
Dim Part As Object
0 ^4 D! D  O6 F2 |' m! jSub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
Set swSelMgr = Part.SelectionManager
& z+ B2 z: U! j8 QSet swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
1 ^% I0 h. v; T0 s1 U6 Moldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
/ X3 @3 Z% z2 q' H7 f' f: i/ l" o% EPath = Left(oldpathname, InStrRev(oldpathname, "\"))
ntype = Mid(oldpathname, InStrRev(oldpathname, ".")): f% I; o3 ^. B# V/ i  N- Y( I5 s
! C- a0 B% P$ ioldfi = Mid(oldpathname, InStrRev(oldpathname, "\") + 1)& _! r& R0 n4 o
! H3 K, O0 K1 j. p. \7 E0 Roldname = 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 W" h+ Q( w" J: yIf mip <> "" Then
  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
% E& r' A( X3 z& f: x5 N. B& o  Part.Save
: E6 p: [$ W" ^! n$ D1 K  tmpfi = Dir(Path & "*.SLDDRW")
! P$ V! E4 A/ Z4 n; @; ^. ~7 t$ q& e' a  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
0 `6 h" I0 T7 H  g" \/ S    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
+ w( o5 u1 ^1 f; P" U    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
2 }1 _) }' @8 j9 W* {     Name Path & tmpfi As Path & mip & ".SLDDRW"
* c- M. r+ H0 s    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
, G3 o$ V8 w- X* O2 S     Exit Do
+ Q7 p3 ]4 o9 l3 ^   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
Loop
End If  @/ K' \6 k  [/ y
End Sub2

* A' S+ }& G4 L' }# a: x0 N
你好   我就是按你这提供的代码写的宏

前流氓用户新号

怎么讲
* E# ?3 M- l/ L; u# X6 E
) b1 `. I+ V( f7 |

steve_suich

这个宏代码确实有点奇怪，同样的代码在不同的电脑上运行有的可以，有的不行。SW版本都是2016，不好排查原因了。

steve_suich

发现一个问题，如果工程图里面没有参考任何模型。那么这个代码vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)就会报错。

steve_suich

cszhouhx01 发表于 2024-9-27 21:36
" u4 S! b5 p8 K: q! P# TDim swApp As Object
Dim Part As Object
" B- {! u5 y6 U* ?; V! x+ ], s2 nSub main()( d; Q1 b; F0 ?# l- {

# x5 v+ N4 f$ e5 sIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
0 v8 _# t# V: M1 |( t1 d2 T正确的应该是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then