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

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    poj 3253超时
    poj 3617输出格式问题
    dfs的返回条件
    hdu1010感想
    2018.7.19训练赛总结
    2018.7.12训练赛 -G
    汇编实验16 编写包含多个功能子程序的中断例程——浅谈直接地址表
    新的一年来了,先看一看自己的编程能力吧!
    汇编实验15:安装新的int 9中断例程
    汇编实验14:访问CMOS RAM
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503120.html
Copyright © 2020-2023  润新知