利用VB与AutoCAD链接进行CAD二次开发

利用VB进行AutoCAD二次开发，首先应该将VB于CAD进行链接：在编写VB代码之前，在VB编程环境中引用CAD对象库，在编写VB程序代码时，创建CAD对象启动运行CAD程序。

VB与CAD进行链接后，就可以利用AutoCAD对象及其下级对象的属性和方法，完成用VB语言在AutoCAD环境中的图形绘制和编辑操作，引用CAD对象库：在VB环境中选择“工程-引用”命令打开引用对话框，选中AutoCAD2004对象库，电脑上安装了什么版本的CAD这里就会出现对应的对象库。创建CAD对象的典型代码如下所示。

Dim acadapp As AcadApplication

Private Sub Form_Load()

On Error Resume Next

Set acadapp = GetObject(, "AutoCAD.Application")

If Err Then

Err.Clear

Set acadapp = CreateObject("AutoCAD.Application")

If Err Then

MsgBox ("CAD启动错误")

Exit Sub

End If

End If

acadapp.Visible = True

End Sub

上面代码中的set语句将AutoCAD对象引用赋给变量acadapp，用来创建CAD对象的实例，如果AutoCAD已经启动，则getobject函数返回对该对象的引用，如果AutoCAD启动，则利用createobject函数启动新的CAD对象。如果AutoCAD未能创建，则消息框提示信息“CAD启动错误”。