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