模型改名同时改工程图

cszhouhx01

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

steve_suich

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

+ j  l4 x" R0 a! D# J' ^3 b7 z0 L提供一下你的宏，我检查一下

cszhouhx01

Dim swApp As Object
Dim Part As Object
3 b, T0 U3 \, dSub 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
/ T: S5 l9 `$ H  B  Z( rPath = 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
* n' ~' K* s; R7 |: ^oldname = Left(oldfi, InStrRev(oldfi, ".") - 1)2 d! N5 r1 [/ I# B  M" H6 j
/ `5 W8 n2 t$ w; |* ~4 [9 [     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
$ q( u$ q/ _7 m6 Z/ \6 M1 J  Part.Save
5 }8 f! E. E/ F/ e  tmpfi = Dir(Path & "*.SLDDRW")
& e& ]7 v- a; s8 y/ a; a1 h! C# u  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
    vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)
    If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then% I+ Y3 @) [4 D" ]
     Name Path & tmpfi As Path & mip & ".SLDDRW"
4 I) l( \, y% m3 l  ]    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
5 w% O  d: r+ K     Exit Do
   End If
tmpfi = Dir* @: D+ V& b  H3 |; B
Loop
End If  @/ K' \6 k  [/ y
End Sub2


) t# I  ^# z, }. a你好   我就是按你这提供的代码写的宏

前流氓用户新号

怎么讲
7 y7 s1 ?3 L! q$ U( Z* f
4 G+ Y0 w1 [% w9 X4 {