模型改名同時(shí)改工程圖

cszhouhx01

樓主你好！我按著你給的代碼宏運(yùn)行了還是有問(wèn)題呢   運(yùn)行報(bào)錯(cuò)

steve_suich

cszhouhx01 發(fā)表于 2024-9-25 21:43
樓主你好,！我按著你給的代碼宏運(yùn)行了還是有問(wèn)題呢   運(yùn)行報(bào)錯(cuò)

提供一下你的宏,，我檢查一下
8 m# ?7 q" O  J7 S

cszhouhx01

4 M$ X0 V# o# @Dim swApp As Object
Dim Part As Object
/ y, O" }( k* K3 K: NSub main()( d; Q1 b; F0 ?# l- {
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc4 t2 a3 y3 ~0 J9 @
7 _3 U" Y! }2 T/ oSet swSelMgr = Part.SelectionManager
& T8 M# K  m  ?+ f. p+ s+ g* V! z. G, hSet swComp = swSelMgr.GetSelectedObject(1)! D. @) D9 Z1 O4 s% c
oldpathname = swComp.GetPathName! t: i  S9 z% v% S$ R$ _# x
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
2 c" z- o3 P. c* B5 X. T' M' _& holdname = Left(oldfi, InStrRev(oldfi, ".") - 1)2 d! N5 r1 [/ I# B  M" H6 j
; e9 c% Y3 l7 P; P& b* D     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
. D) _7 L& E9 h! [2 K3 `; q  Part.Save
0 L% l5 J) F& [! S% G8 }  tmpfi = Dir(Path & "*.SLDDRW")
) m) A' ^  [' I5 f  Do Until tmpfi = ""- v4 j; l6 {8 v9 h# M5 [
; \1 |4 j+ t" _1 T! u    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"
    bl = swApp.ReplaceReferencedDocument(Path & mip & ".SLDDRW", vDepend(1), Path & mip & ntype)9 s+ K- S$ t8 i9 a& j' E0 B4 o2 @% w
$ s! o" ~) a- a# i) n; v) I     Exit Do
   End If
- H) O: y( f! G2 Gtmpfi = Dir* @: D+ V& b  H3 |; B
Loop
/ p* A+ U! o& ~; xEnd If  @/ K' \6 k  [/ y
End Sub2


你好   我就是按你這提供的代碼寫(xiě)的宏

前流氓用戶(hù)新號(hào)

怎么講

* c; R8 D5 N. h! |2 {

steve_suich

這個(gè)宏代碼確實(shí)有點(diǎn)奇怪,，同樣的代碼在不同的電腦上運(yùn)行有的可以,，有的不行。SW版本都是2016,，不好排查原因了,。

steve_suich

發(fā)現(xiàn)一個(gè)問(wèn)題，如果工程圖里面沒(méi)有參考任何模型,。那么這個(gè)代碼vDepend = swApp.GetDocumentDependencies(Path & tmpfi, False, False)就會(huì)報(bào)錯(cuò),。

steve_suich

cszhouhx01 發(fā)表于 2024-9-27 21:36
Dim swApp As Object
3 T, n, @$ _2 [- e! D2 {) oDim Part As Object
Sub main()( d; Q1 b; F0 ?# l- {

! w' {+ _* A9 V+ @: e0 H+ ?6 ^If Mid(vDepend(1), InStrRev(vDepend(1), "") + 1) = oldfi Then  缺少"\"
2 Z7 y* C7 o- R- Y正確的應(yīng)該是If Mid(vDepend(1), InStrRev(vDepend(1), "\") + 1) = oldfi Then
. q1 G6 O& p8 }) S$ m; z