如果没有安装2018的朋友,可以是试试加下面一段代码:
/ y. y P" B m/ |8 TSub 打开工程图()
1 x( z* e7 |6 vOn Error Resume Next% l1 M# V, N5 W& p3 g: f
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then* j3 T7 ]0 R, f
Dim OoC As ComponentOccurrence
' V! u# {" @- X9 Y3 z3 `6 NSet OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)
6 F/ I1 M) c, [4 @4 c3 U7 w$ E) DThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")% K% N- Y6 ?. l' T
End If& @6 a' { G: x i; N4 o
End Sub+ a' o' U- I0 b! d) H
9 V3 n9 x( s$ B8 x1 Q
: |; Y$ ^8 x! {% g1 M# e |