--------------------------------------------------------------------------------
我在用VB设计程序中涉及到AutoCAD-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