VB与CAD的连接

xueren

我在利用VB开发CAD时,只有一个窗体需要创建CAD对象,我先引用CAD,然后添加了一个窗体,在该窗体的代码窗体输入以下代码,VB中也是通过的,但并没有显示连接到了CAD界面,还是一个空白窗体!请各位帮忙指教一下!!(这段代码是来自一本参考书,但并没有达到效果,很是郁闷!!)


dim acadapp as acadapplication


private sub form_load


on error sub resume next


set acadapp=getobject(,"AutoCAD.application")


if err then


err.clear


set acadapp=createobject("autocad.application")


if err then


msgbox("error!")


exit sub


end if


end if


acadapp.visible=ture


end sub

petty

Dim AcadApp As AcadApplication
Dim AcadDoc As AcadDocument
Dim ThisDrawing As AcadDocument
'由工程直接调用启动程序
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If err > 0 Then
err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If err Then
MsgBox err.Description
End
End If
End If
Set AcadDoc = AcadApp.ActiveDocument
Set ThisDrawing = AcadApp.ActiveDocument
AcadApp.Visible = True
On Error Resume Next
' 交由AutoCAD控制
Me.Hide
ThisDrawing.Application.ZoomAll

esri

呵呵，我想你大概是想把CAD的图形显示窗口当做ACTIVATEX控件来用吧，可惜CAD并不支持。它只能做到库的挂接，具体的显示界面还是CAD本身的。VB所做的只是幕后操控罢了！