利用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启动错误”。