如果没有安装2018的朋友，可以是试试加下面一段代码：
u1 ]: l( h3 X; b! D6 ZSub 打开工程图()* w3 p3 {4 t* `7 s& K; v/ T
On Error Resume Next, I( \" b8 i4 D3 W6 z
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then$ C1 s3 g6 F5 h0 x6 b. q) W
Dim OoC As ComponentOccurrence( a+ }3 i$ B" n, o
Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)3 ~( `; x& B6 G2 }$ k8 Z, I( J
ThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")4 _9 a8 p- l/ x; W# w7 I3 O- S w
End If1 m) o4 c/ j7 m9 D$ t" C) N
End Sub! [# A2 u9 f7 S2 o
2 x0 k- g' i! E3 Z
8 s' ]* L0 I' ~5 \2 g
|
楼主: 狙击手GY
发表于 2017-7-30 21:46:46
