• 利用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
    文章千古事,得失寸心知。


  • 相关阅读:
    55 回文判断 (20分)
    AS3中 Event 类的target和currentTarget属性
    byteArray的深复制会造成类型丢失
    关于tink的碰撞检测类【3】
    去读代码
    debian安装nvidia驱动后命令行界面分辨率降低的问题
    1801A React
    TS入门
    项目实战【vue,react,微信小程序】(1710C)
    Go语言核心36讲11
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503120.html
Copyright © 2020-2023  润新知