--------------------------------------------------------------------------------
我在用VB设计程序中涉及到-VBA，现在我设计中需要单独将AUTOCAD中的画图的那个黑色的部分提取出来，显示在屏幕上，在VB中的通过引用CAD，定义CAD的对象。定义的代码如下：请问大家如何才能实现这一功能呢？谢谢指点！
Dim objcad As Object
Const CLASSOBJECT = "autocad.Application"
Set objcad = CreateObject(CLASSOBJECT)
objcad.Visible = True
Dim docObj As AcadDocument
objcad.Application.Documents.Open STR0‘STRO为存储图纸的路径
Set docObj = Nothing
Set objcad = Nothing
置顶卡
请点击此处下载
