模型改名同时改工程图

cszhouhx01

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

steve_suich

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

' B8 ?/ u6 F- L  W! [% R提供一下你的宏，我检查一下
% u. P- g6 g5 w2 J2 i( {
8 H1 b& H% T8 g$ y: E7 N2 v& e

cszhouhx01

Dim swApp As Object
Dim Part As Object
- L# \( |; G( }" WSub main()( d; Q1 b; F0 ?# l- {
; }. D9 a3 i5 a/ QSet swApp = Application.SldWorks
Set Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
) ?. H* h& _6 l7 f: }+ CSet swSelMgr = Part.SelectionManager
" T2 Z; N+ [* K3 w1 XSet swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
oldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
2 ^2 J4 E& t9 o4 f& l" ]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
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
If mip <> "" Then
+ C8 Z1 v( Z  @. t$ ~  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
3 o6 N! N1 N) R" [0 ^, a3 H' p$ q  Part.Save
9 L  o) m1 m, J" l+ M! Q3 N  tmpfi = Dir(Path & "*.SLDDRW")
  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
4 }' I+ u6 Q- u5 ^1 I: |3 t. E. W    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
5 N2 }/ G3 i2 q5 O4 g. \2 R8 ^    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
0 ~  w' N- ?. w1 B9 H     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
2 d, M3 K. D8 \" @/ [2 S4 s     Exit Do
9 X/ N. s1 g0 m2 Y# k9 @* p   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
Loop
End If  @/ K' \6 k  [/ y
End Sub2
& D  H5 c4 d. x9 U9 z3 ^

5 k7 R) g& |  k1 ?5 ~: O! t1 ~你好   我就是按你这提供的代码写的宏

前流氓用户新号

怎么讲
2 p! b8 v% x% S

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 发表于 2024-9-27 21:36
5 `4 Y% n$ W9 m0 R6 d2 JDim swApp As Object
Dim Part As Object
  g8 T. r& a; O0 K* \! ASub main()( d; Q1 b; F0 ?# l- {

If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正确的应该是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then
* b$ h, j! B/ i% `* l9 Y( g