如果沒有安裝2018的朋友,可以是試試加下面一段代碼:
# P$ n, M7 q' C3 m+ u R; ISub 打開工程圖()
6 a( b0 X; s: J/ ` ~On Error Resume Next- s& ]# n( t a- w% }
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then
6 ^0 `: K3 y7 nDim OoC As ComponentOccurrence' {! ]! Y1 k, u7 O* N% d) i0 F
Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)
v9 b- X* h \ U! y9 o1 pThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")
6 t; e( N, N) \1 T* AEnd If
; L% b- T$ U+ q- U3 M8 J% u1 aEnd Sub P6 o/ r6 S! `. D7 z
/ \# y: @1 ~$ g( Q& J& {8 e0 u% |! @( z0 \
|