陈伯雄
发表于 2017-7-30 21:46:46
我说过:但愿您是这样的一个,而不要半途而废才好。
到现在,很可能 Mechanical.Mr. 先生半途而废了,也许一开始就确定会“废”了。因为他自己在说什么,可能自己都不清楚...
可惜、可叹
这种事情发生的几率也太高了一些,咋回事呢?
mastereatapple
发表于 2017-7-30 22:42:50
16,17版的没用过不太清楚,但是18版中是有打开工程图这个选项的。
MIBYF
发表于 2018-6-11 18:05:07
如果没有安装2018的朋友,可以是试试加下面一段代码:
Sub 打开工程图()
On Error Resume Next
If ThisApplication.ActiveDocument.SelectSet.Item(1).Type = kComponentOccurrenceObject Then
Dim OoC As ComponentOccurrence
Set OoC = ThisApplication.ActiveDocument.SelectSet.Item(1)
ThisApplication.Documents.Open (Left(OoC.Definition.Document.FullFileName, Len(OoC.Definition.Document.FullFileName) - 4) & ".DWG")
End If
End Sub