Question

对（已经打开的）非vb程序打开的autocad文件如何用vb程序进行操作

1.autocad程序在vb程序运行之前已经处于运行状态，并打开图形文件
2.在运行的autocad程序中打开其他图形文件
3.要求不关闭已经运行的autocad程序和已经打开的图形文件
4.希望能给出具体操作。。。最好是代码

Answer 1

On Error Resume Next
Dim CadAPP As AcadApplication
Dim CadDoc As AcadDocument
Set CadAPP = GetObject(, "Autocad.Application.16") '获取已经在运行的CAD程序 .16表示cad2004或者2006版本
If Err Then
Err.Clear
Set CadAPP = CreateObject("Autocad.Application.16") '如果获取失败，新建一个启动
End If
Set CadDoc = cadapp.Documents.Open(省略)