100字范文,内容丰富有趣,生活中的好帮手!
100字范文 > vb外部调用autocad_利用VB与AutoCAD链接进行CAD二次开发

vb外部调用autocad_利用VB与AutoCAD链接进行CAD二次开发

时间:2021-07-07 15:07:36

相关推荐

vb外部调用autocad_利用VB与AutoCAD链接进行CAD二次开发

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

VB与CAD进行链接后,就可以利用AutoCAD对象及其下级对象的属性和方法,完成用VB语言在AutoCAD环境中的图形绘制和编辑操作,引用CAD对象库:在VB环境中选择“工程-引用”命令打开引用对话框,选中AutoCAD对象库,电脑上安装了什么版本的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启动错误”。

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。