关于vb对autocad二次开发学习笔记.pdfVIP

关于 VB 对 AutoCAD 二次开发学习笔记 □ By OYLS 基于 VB 对 AutoCAD 的二次开发，主要是通过运用 VB 编程对 AutoCAD 软 件中的基本绘图操作进行控制，了解 AutoCAD 软件中的常用命令。在编程过程 中我们要借助 AutoCAD 软件中的 “帮助文件 ”，即 “AutoCAD开发人员帮助 ”文档。 一、 获取 VB 对 AutoCAD 的控制权： 先定义变量 acadApp,acadDoc: Public acadApp As AcadApplication Public acadDoc As AcadDocument Function boot_CAD() As Boolean On Error Resume Next Set acadApp = GetObject(, AutoCAD.Application) If Err Then Err.Clear Set acadApp = CreateObject(AutoCAD.Application) If Err Then MsgBox 您没有安装 AutoCAD ，或安装版本错误！ , vbOKOnly + vbInformation, CAD 简易绘图系统 boot_CAD = False BtOK = False Exit Function End If End If Set acadDoc = acadApp.ActiveDocument acadApp.Visible = True boot_CAD = True End Function 需要说明的是，我们只有先对 CAD 获取了控制权以后才能有效地运用 VB 编程 方式进行 CAD 的基本绘图操作。不然，以后的各种对 CAD 的操作将无法得以 实现。 二、 基本绘图思路： 先了解所绘对象的基本属性，可以说，也正是由于对象的各种属性才构成了 一个特性为一而标准的实体。对象的属性特点我们可以事先通过 CAD 帮助文件 查找得出。接下来我们就应了解创建方法，同样，我们也是通过 CAD 帮助文件 进行查找。可以看出，在整个绘图编程过程中我们都离不开 CAD 帮助文件，所 以我们应当对其充分利用。 三、 介绍直线画法： 先了解到直线 Line 的创建方法： RetVal = object.AddLine(StartPoint, EndPoint) 可以看出，创建一直线我们所需的参数有 StartPoint,EndPoint 也就是开始点与结 束点，并且： StartPoint： Variant (three-element array of doubles); input-only The 3D WCS coordinates specifying the line start point. 因此，在定义 StartPoint 时应为一数组，且为 double 型，以后多数数组也都为这 一类型； EndPoint： Variant (three-element array of doubles); input-only The 3D WCS coordinates specifying the line endpoint. 因此，在定义 EndPoint 时也应为一数组，且为 double 型；值得注意的是，这里 的 StartPoi