模型改名同时改工程图

cszhouhx01

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

steve_suich

cszhouhx01 发表于 2024-9-25 21:43
2 X0 A9 `& Q  M- N: ~) c( t  g+ S楼主你好！我按着你给的代码宏运行了还是有问题呢   运行报错

6 U- r# I% `5 f1 A2 Q2 }提供一下你的宏，我检查一下

/ D* Y5 }2 C; y/ B0 r2 B/ ^! j4 a

cszhouhx01

  h! [3 e  N! b! F/ HDim swApp As Object
- N9 V7 z6 c# W0 {! t& |+ MDim Part As Object
0 N: q) [# s4 ~" mSub main()( d; Q1 b; F0 ?# l- {
Set 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
oldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
2 [. R8 S8 r: [- D0 `' r: G, p5 IPath = Left(oldpathname, InStrRev(oldpathname, "\"))
7 x1 e. x1 w& y4 e/ V1 Bntype = 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
  Part.Extension.RenameDocument mip8 b: X. F' n' y  w
  Part.Save
  tmpfi = Dir(Path & "*.SLDDRW")
* h. Q0 D: ^& P5 }" B: Q  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
; n" S7 l0 |5 e. a- R2 G    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
2 G4 Y4 D; q6 x* f& g. g9 D     Name Path & tmpfi As Path & mip & ".SLDDRW"
) w, Y- j- M. e4 R! V0 C4 P    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
5 n3 V4 a6 i6 w) r' ?   End If
1 O$ Z- w1 y4 _tmpfi = Dir* @: D+ V& b  H3 |; B
Loop
End If  @/ K' \6 k  [/ y
End Sub2

1 `4 c4 i5 u' j! E+ }" c6 @0 h2 r
9 G) C$ D8 R( k你好   我就是按你这提供的代码写的宏

前流氓用户新号

怎么讲

( v5 i: B) B! e4 `

steve_suich

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

steve_suich

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

steve_suich

cszhouhx01 发表于 2024-9-27 21:36
$ W% @1 E1 h% m& TDim swApp As Object
Dim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

2 _5 c  x8 C# e" j, zIf Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
正确的应该是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then