模型改名同时改工程图

cszhouhx01

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

steve_suich

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

4 @- k7 Q$ Q9 e% U+ O- {提供一下你的宏，我检查一下
- E$ @2 Z1 S; N2 Z$ f! U
9 p& G  H3 ^4 D- Y$ i

cszhouhx01

Dim swApp As Object
. I0 Y; a" L9 ~$ _; \, wDim Part As Object
( N% w9 p0 e# H/ ESub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
. U$ Q) ?" I" ]9 F( wSet Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
Set swSelMgr = Part.SelectionManager
Set swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
oldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
" z* Z5 O7 `3 U* V6 CPath = 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
" B. q) r: d9 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
; x  ^; i6 t  ?1 K0 _* s6 pIf mip <> "" Then
. i9 ?* N, t. p2 [( h/ {$ V  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
  Part.Save
9 i) w. P! f3 U! A1 d  tmpfi = Dir(Path & "*.SLDDRW")
6 E& h: Z9 k% p4 ~9 w  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
9 a' N0 L. c: ]5 S5 S! F    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
5 z1 ^0 J0 h" W    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
     Name Path & tmpfi As Path & mip & ".SLDDRW"
" c, w  G  [. W! }    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
3 U0 B( T+ f1 x; S$ e     Exit Do
% P8 G/ X' `. R9 Z4 g* @9 J' p   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
3 `2 n# _. p( DLoop
2 _  |. I, R6 Z5 AEnd If  @/ K' \6 k  [/ y
$ J' o" I9 k" o  ?" O' L: _End Sub2


' I# J3 ]: E+ a! Y8 m% H1 H* Z你好   我就是按你这提供的代码写的宏

前流氓用户新号

怎么讲
6 Y* q% f2 G3 H9 F6 }
: n6 x$ c! b1 f. e3 g

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 发表于 2024-9-27 21:36
5 w0 y2 X7 v5 J+ _# L# N& NDim swApp As Object
Dim Part As Object
% g3 B2 W# G6 N1 M' b* `2 ?( bSub main()( d; Q1 b; F0 ?# l- {

. R. x5 }" A2 N5 HIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正确的应该是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then
/ o% i, p6 C1 Z- ^, w, ^