如果没有安装2018的朋友,可以是试试加下面一段代码:
+ k. k/ W/ h0 N8 m" NSub 打开工程图(): e5 P9 m4 J# \; p4 L7 M
On Error Resume Next* b- z& G2 i3 Z* j! o
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then
1 X j8 N( [7 A* E" G6 X7 @" v' nDim OoC As ComponentOccurrence- Y& q4 I& ^) G" t3 m; f: z
Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1); E6 }# i8 K2 T0 d2 M$ Q# }
ThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")
) N @, {- A; t* c! E$ G$ m# vEnd If
- m: `+ ~) m' x$ p( |$ ZEnd Sub% J# N2 e1 I1 G5 `: ~0 F
! q! \/ a9 J( }) f0 m; ?8 I' T. g+ L8 x9 B& s, m M, B! R7 v
|