AutoCADVBA二次开发

1、第11章 AutoCAD VBA二次开发自从1986年AutoLISP作为第一个用于AutoCAD二次开发的编程语言被引入到 AutoCAD中， 从此许多计算机软件开发商和用户用 AutoLISP编写了数以万计的实用系统和应用程序。 还有大量的 程序是利用 AutoCAD的外部文件(Script)对AutoCAD进行二次开发。对 AutoCAD来说这无疑是 一笔巨大的资源和财富，也是其赖以发展的基础之一。11.1概述11.1.1 AutoCAD 中实现 ActiveXAutoCAD ActiveX使用户能够从AutoCAD的内部或外部以编程方式来操作 AutoCAD ,它是通 过将AutoCA

2、D对象显示到"外部世界”来做到这一点的。一旦这些对象被显示， 许多不同的编程语言和环境以及其他应用程序 (例如Microsoft Office中的Word VBA或Excel VBA )就可以访问它们。在AutoCAD 中实现 ActiveX 接口有两大优点：(1) 更多的编程环境可以编程访问AutoCAD图形。在 ActiveX Automation出现以前，开发人员只能使用 AutoLISP或C+接口。(2) 与其他 Windows应用程序(例如 Microsoft Office中的Excel和 Word)共享数据变得更加容 易。对象是所有ActiveX应用程序的主要构造块， 每

3、一个显示的对象均精确代表一个AutoCAD组件，AutoCAD ActiveX 接口中有许多不同类型的对象。例如，直线、圆弧、文字和标注等图形对象是对 象；线型与标注样式等样式设置是对象；图层、编组和块等组织结构是对象；视图与视口等图形显 示是对象；甚至图形、AutoCAD应用程序本身也是对象。111.1.2 AutoCAD 中的 VBAMicrosoft VBA是一个面向对象的编程环境，可提供类似Visual Basic(VB)的丰富开发功能。VBA 和VB的主要差别是 VBA和AutoCAD在同一进程空间中运行，提供的是具有AutoCAD智能的、非常快速的编程环境。VBA也向其他支持VBA

4、的应用程序提供应用程序集成，这就意味着AutoCAD (使用其他应用程序对象库)可以是如Microsoft Word或Excel之类的其他应用程序的 Automation控制程序。在AutoCAD中实现VBA有四大优点：(1) Visual Basic编程环境易于学习和使用。(2) VBA可与AutoCAD在同一进程空间中运行，这使程序执行得非常快。(3) 对话框的构造快速而有效。这使开发人员可以构造原型应用程序并迅速收到设计的反馈。(4) 工程可以是独立的，也可以嵌入到图形中。 这样就为开发人员提供了非常灵活的方式来发布 他们的应用程序。新工程会被创建为未保存的全局工程。创建完成后，可以将它

5、嵌入到图形中或保存到工程文件 中。11.2 VBA 基础11.2.1 VBA 工程AutoCAD VBA工程是由许多程序模块、类模块和窗体组成的集合，他们同时运行即可完成指 定的功能。VBA工程可以保存于 AutoCAD图形文件内部，称为内嵌VBA工程；亦可保存为独立的 工程，称为全局 VBA工程，以*.dvb文件格式保存。对于内嵌VBA工程，当打开包含该工程的AutoCAD图形文件时，它将被自动加载。因此，在运行内嵌VBA工程程序之前，其用户不须在文件夹中去寻找工程文件并加载该工程，使得工程管理更加方便。全局VBA工程的功能较多。全局工程可在任何AutoCAD图形中运行，亦可在工程中打开或关

6、闭AutoCAD图形。全局工程容易与其他用户共享，且可制作成共享的宏 VBA为Visual Basic for Application的缩写。AutoCAD中的VBA是指必须依赖于已有的 AutoCAD应用程序才能运 行的Visual Basic程序。 宏是一个可执行的应用子程序，每个 VBA工程至少包含一个宏。资源库，因此应用VBA开发通用应用程序时，应将其保存为全局工程。但全局工程也有一些缺点，它不会随AutoCAD图形文件的打开而自动加载。所以，用户在运行全局工程程序之前须要知道哪个工程文件中包含了所需的宏，然后加载该工程文件，最后才能执行相应的宏。11.2.2 VBA管理器在当前Aut

7、oCAD进程中加载的所有 VBA工程均可用VBA管理器来管理，亦可用它来新建、 保存、加载、卸载、嵌入或提取工程。“VBA管理器”对话框如图11.1所示。启动“VBA管理器”对话框的命令调用方法为：命令行：VBARUN菜单栏：【工具】【宏】r【VBA管理器】与VBA应用程序开发、管理相关的下拉菜单如图11.2所示。图11.1“VBA管理器”对话框16格式廷）工具（X）批圈电）标注四 修改噬 窗口麒 帮助里）Express切st工作空间选项板有命的清除屏某CTRL+9CTEL+OStandardByL&yer拼写检查怎）快速选撵区）绘图顺序 查询卸右更新字段d） 丁块编辑嚣耍）外部参照和

8、块在位编辑$屈姓提取僵）一加载应用程序H）.运行脚本宏0)宏 Qfl). ALT+F8AuUUSF 谷)*加裁工程显示闰像口kOA管理器世）新建此SW）kVisual Baic编辑器ALT+F11tg 命名 UCS Qf).CAD标准僵）向导蕈艰置9）.数字化伙卜自定义©选项一图11.2 与VBA应用程序开发、管理相关的下拉菜单1.创建新VBA工程创建新VBA工程的步骤如下：（1）打开“VBA管理器”对话框。（2）选择“新建”。新工程将以默认的名称“ ACADProject ”创建。如要更改工程名称，必须进入“ Visual Basic编 辑器”中，在“工程属性”窗口中更名。其操作方

9、法步骤如下：（1）单击"VBA管理器”中的"Visual Basic编辑器”按钮（如图11.1所示）或用菜单选择“Visual Basic 编辑器”（如图 11.2 所示），打开"Microsoft Visual Basic ”，如图 11.3所示。（2）在VB的“工程资源管理器”选中“ ACADProject（Global1） ”，单击右键，在弹出菜单中选择 “ACADProject属性，”选项，打开“工程属性”对话框，在“工程名称”中输入用户欲更改的名称，如图11.4所示。图 11.3 Visual Basic 编辑器图11.4 “工程属性”对话框2. 保存新

10、VBA工程每次保存图形文件时，都将保存其内嵌工程。而全局工程必须使用 VBA管理器或VB编辑器来 保存。使用VBA管理器保存工程的步骤：(1) 打开VBA管理器，并选择要保存的工程。(2) 选择“另存为”，将会打开“另存为”对话框。(3) 选择用于保存该工程的文件的名称。(4) 单击“保存”按钮。3. 加载VBA工程将工程加载到AutoCAD图形中时，所有的公用子程序(也称为宏)均为可用程序。每次打开图 形时，内嵌在图形中的工程就会被自动加载，而以*.dvb文件格式保存的全局工程必须明确加载方能:每次加载工程时，都将自动加载此工程引用的任何其他工程。此外，AutoCAD在启动时会自动加载任何名

11、为acad.dvb的工程文件。加载已有VBA工程文件的步骤如下：(1) 在“VBA管理器”对话框中单击“加载”按钮，弹出“打开 VBA工程”对话框，如图11.5 所示。图11.5 "打开VBA工程”对话框(2) 在“打开VBA工程”对话框中选择欲加载的工程文件。(3) 单击“打开”按钮，再单击“启用宏”按钮。打开VB编辑器即可查看、编辑或运行该程序。注意：用户在加载工程时，均会显示“禁用宏”或“启用宏”的选项提示，作为防范病毒的提示，如图11.6所示。若启用了带病毒的宏，程序中的病毒会一并运行；若禁用该宏，工程仍可被调 用，但不能运行该工程中的任何程序。图11.6工程加载防范病毒提示

12、提示4. 卸载VBA工程卸载工程可释放内存，并使已加载工程的列表保持在易于管理的长度。但不能卸载内嵌工程或 被其他已加载工程所引用的工程。卸载VBA的步骤如下：(1) 在“VBA管理器”对话框中选择欲卸载的工程。(2) 单击“卸载”按钮。11.2.3 VBA IDE在AutoCAD中加载VBA工程后，即可使用 VBA交互式开发环境IDE来运行、调试程序或删 除错误，亦可在IDE中继续编辑该工程的程序代码、窗体和部件引用等元素。1.打开 VBA IDE可用以下两种方法打开 VBA IDE :命令行：VBAIDE菜单栏：【工具】【宏】r【Visual Basic编辑器】VBA IDE界面如图11.

13、7所示，在其中可对所有已加载的工程进行编辑。图 11.7 VBA IDE 界面2.工程信息在VBA IDE中，“工程”窗口显示的内容包括：所有已加载的VBA工程，这些工程所包含的程序代码、类别、窗体、与工程相关的文件，本工程所引用的其他 VBA工程，这些工程所在的位置（路 径）等，如图11.8所示。“工程”窗口的顶部为包含3个按钮的工具条，通过切换按钮可显示不同的工程元素。选中工程模块中的“窗体”后，单击“查看代码”按钮可显示该工程模块的程序代码；单击“查看对象” 按钮可显示该工程元素对象的外观，如窗体界面。“工程”窗口在默认状态下是打开的。若不可见，可在IDE中用菜单操作"【视图】

14、【工程资源管理器】”来打开。IDE 为 Integrated development environment 的缩写，即集成开发环境。查看对象切换文件夹查看代码图11.8 “工程”窗口3.工程元素每个工程均由若干不同的元素构成，包含对象、窗体、标准模块、类模块和引用等。(1) 对象 对象是工程中的基本运行实体。VBA中的对象可分为两类，一类是由系统设计好,可直接使用或对其进行操作的对象；另一类是用户定义，可用程序建立用户自己的对象。对象是具 有特殊属性(数据)和行为方式(方法)的实体，它由属性、事件和方法这(2) 窗体模块窗体模块分为两部分，一部分是作为用户界面的窗体， 的代码。窗体是放置其他

15、对象的容器，常用于创建工程的自定义交互式对话框。(3) 标准模块 又叫程序代码模块， 简称模块。该模块完全由代码组成， 体或控件相关联。(4) 类模块 类模块既包含代码又包含数据，每个类模块定义一个类。对象，调用类模块中的过程。3个重要方面构成。另一部分是执行具体操作这些代码不与具体的窗可在窗体模块中定义类的4.添加新元素用户可在工程中添加新元素，比如插入新的窗体、模块或类模块等。添加新元素后，用户可修 改元素的性质(例如元素名称)和编写程序代码。用户命名新元素时，应遵循规范的命名惯例，即“见名知义”，提高程序的可读性。在工程中添加新元素的步骤如下：(1) 在VBA IDE的“工程”窗口中选择

16、要添加元素的工程。(2) 从“插入”菜单中选择“添加用户窗体”、“添加模块”或“添加类模块”选项，将新元素添加到该工程中。新的元素加入到工程后，会以默认的属性出现在“工程”窗口中。5. 编辑元素元素的编辑包括对属性、代码和对象的编辑等。(1) 元素属性编辑 在“工程”窗口中选取被编辑的元素，“属性”窗口中将显示其属性，如图11.9所示。将光标定位于“属性”窗口右边的属性值栏，即可修改为需要的属性值。(2) 代码编辑 在“工程”窗口中选取被编辑的元素(窗体、模块或类模块)，再单击窗口顶部的“查看代码”按钮，即可打开程序代码窗口并编辑程序代码，如图 11.10所示。届牲-Vs«jrF&#

17、171;rBlVserForail UserFOrmV按宇母序1按分类序.（名称）UserFormlAEckColor OBOoooooraBorderCalor 00000121EorderStyle0 - fmB or derS tyl eNoneIlCapti on圆椎台与圆柱相震展开CADCycle0 - fmCycl tA1U orm 5Dr awEuff«r32000EgblwdTfutFcut黑体FereColor moooooisaH«i ght241.5HelpConteM tIE0色 pS cr ollB ar s Vi m i bl 03 - fmSc

18、rollEirEEothLeft0IHcus «IconQJon«)0 = f m M QU5. eF o i nt er D e f aul tPi ctur e(Hom)Fi ctur eAli gnmeiit Pi etur eSiiMod.ft2 一 fm-P i c f ur eAl i gnm entC ent er 0 fmPi ctureSi reMlodeClipFi cturTilingFils*Ei ghtl oLeftFals«0 - finScr olLE sNcn«ScrollHeiclitQ图11.9“属性”窗口图11.10

19、“程序代码”窗口(3) 窗体编辑 在“工程”窗口中选取被编辑的窗体模块，再单击窗口顶部的“查看对象”按钮,即可打开窗体窗口和控件工具箱，如图11.11所示。用户可在该窗口中增删对象、编辑对象的属性或编辑与窗体关联的程序代码。双击窗体窗口中的控件，可在程序代码窗口中显示与该控件相关的程 序代码。圈候台与圆柱相黄展开CAD.回台参数上底半径R比下底半径电=:.回柱参数:半径:.高度:轴间距K圆柱中心高K3=:倾角 the t a=帮助图 11.11口 窗 K力体 心窗 1a11.3 VBA二次开发实例在学习了 AutoCAD VBA 基础知识后，接下来介绍一个简单实例。通过该实例的学习，我们可 以

20、初步掌握开发VBA应用程序的一般过程。训练11.1应用VBA编写输入起点和终点坐标绘制直线的参数化程序。应用 VBA 程序绘制直线的方法为：AddLine(StartPoint, EndPoint)，其中 StartPoint, EndPoint 为起点、终点坐标，必须为 3元素列表(即数组)。操作步骤如下：(1)打开VBA管理器，单击“新建”按钮，添加名称为“ ACADProject ”、位置为“ Global2”的 新工程，如图11.12所示。选中该工程后，再单击"另存为”将之保存于D盘，名称为"DrawLine.dvb ”。图11.12 VBA管理器打开VBA IDE

21、 ,在“插入”菜单中选择“用户窗体”插入新窗体。打开“工具箱”(如图11.13所示)，点击“框架”按钮，在窗体中建立两个框架，分别用于起点和终点坐标的输入；再点击“标签”和“文字框”按钮，在两个框架中分别建立用于输入起点 和终点坐标的标签和对话框；再点击“命令按钮”按钮，在用户窗体中建立“确定”和“结束”按 钮。H:Vft 京理工教材 CAD 教材5.1 )DrawLine,dvbfrmLfne (UserForm)起点坐标 一 一 _ ：遂点坐标图11.13 “用户窗体”编辑窗口（4）打开“属性窗口” （如图11.14所示），在“用户窗体”中依次点击控件，在其“属性窗口 中设置相应属性。按表

22、 11.1所示设置窗体及控件的相应属性。E H：U匕京理工教材CAD教材(5.1 JWrawLinc.dvb - frmLine (UscrForm)' " d ' k参数化绘直线练习.捋点坐标:上咬 p-40-上邸4= _ |Jo z end= I n£ - fraSP|益称）£reSP &HS(W(W(WFftBordarC'clcr顺ooocm舞BorderStyle0 - fmE or dtrS tyl on«Caption起点坐标Con.tr oil ipTeKtCyclt0 一 fmCycleAllForms=

23、Enatl«dImsFont宋体FcreCfilor锵 wwomHei ght73HelpContextID0K*epScrollBarVi sible3 - f mS ct ol IB ar sB q thUft12(W<M)MlousePoiinter0 - fmM oue eP o i nt erD ePi ctureQjon.)Fictureftli pun ent2 - fmF i c twr eAl i gm* en 1PicturtSiztMode0 一 fmPictMrtSi zModetPictureTiling图11.14“属性”设置窗口(5) 双击&quo

24、t;确定”按钮打开"代码窗口”，在行Private Sub cmdOK_Click()入以下代码：一ThisDrawing.Application.Documents.AddDim StartPoint(0 To 2) As DoubleDim EndPoint(0 To 2) As DoubleStartPoint(0) = txtXSStartPoint(1) = txtYSStartPoint(2) = txtZSEndPoint(0) = txtXEEndPoint (1) = txtYEEndPoint =txtZEDim LineObj As AcadLine'设

25、置Line对象和行End Sub之间输'打开新图形'定义起点坐标'定义终点坐标'提取起点'提取起点'提取起点'提取终点'提取终点'提取终点'定义Line对象x坐标 y坐标 z坐标 x坐标 y坐标z坐标表11.1绘制直线的窗体及控件属性设置窗体及控件名称MB设置值窗体NamefrmLineCaption参数化绘直线练习框架NamefraSP, fraEPCaption起点坐标，终点坐标标签NamelblXS , lblYS , lblZS , lblXE , lblYE , lblZECaptionx_start,

26、y_start, z_start, x_end, y_end, z_end提不'输入直线起 点、终点坐标值文本框NametxtXS , txtYS , txtZS , txtXE , txtYE , txtZEText10, 10, 0, 40, 40, 40输入直线起点、终 点坐标值命令按钮NamecmdOK_Click , cmdEnd_ClickCaption确定，结束点击按钮Set LineObj = ThisDrawing.ModelSpace.AddLine (StartPoint, EndPoint)ThisDrawing.SaveAs("D:Line_Ex.d

27、wg") '保存图形和行End Sub之间输(6) 双击"结束”按钮打开"代码窗口”，在行Private Sub cmdEnd_Click()入代码“ End ”，用于结束程序。一步骤(5)、(6)输入的代码如图11.15所示。F5键来运行程序。AutoCAD应用程序将置于最前。此时可在图形中看到直线，且图形的文(7) 从VBA IDE的“运行”菜单中选择“运行子程序 /用户窗体”选项或按(8) 当程序运行完时，件名称为Line_Ex.dwg 。VHWt；京理工教材教材(51WTawLinddvb fnn一 " 口cadOEV Click| VF

28、rivate Sub cmdlnd Cli ck 0 EndEnd Sub1APrivate Sub cmdCK.Cli ckOThi sErawing. Application. Eocwnents. Aid '打开，新囹开Dim StartFoint ® To 2) As D&uble，定义起点坐标Dim EndPomt (0 To 2) As Double'定义舞点坐标StartFoint= txtlCS提取起点x坐标StwrtFoint (1) = UtYS'提取长点建标StartPoint(2) = txtZS，提取起点t坐标EnarOmt(

29、0 = txtKE'提取肄点x坐标EndFoiM (1) = txt¥E，提取终点淳标EndPomt (23 = txtZE'提取终点工坐标Dim LineObj A；J 定见Linei对象'设置Li m帝豪Set LineObj - ThisDrawing. NodelSpace. AddLiiie (StartFointj EndPoint)Thi sDr awing. Sava As (*E : LiikA_Ex., 保有宦戒End SutLitj专虹L>J图11.15实例的代码窗口注：VBA中的出错处理方法在VB和VBA中，使用On Error语

30、句来捕获运行时错误。此语句为系统设置精确的捕获。当错误发生时，此语句会自动转到专门编写的错误处理程序，系统的默认错误处理则被略过。On Error语句有三种形式：(1) On Error Resume Next(2) On Error GoTo Label(3) On Error GoTo 0当希望忽略错误时，可以使用On Error Resume Next语句。此语句捕获错误但是不会显示错误信息或者终止程序，而是移到下一行代码继续执行。例如，如果希望创建子例程来遍历模型空间并 修改每个图元的颜色，则在试图对锁定图层上的图元着色时AutoCAD将会抛出错误。这时不需要终止过程，而只需要跳过锁定

31、图层上的图元并继续处理其余的图元。On Error Resume Next语句就可以完成这个过程。当希望编写明确的处理程序时，可以使用On Error GoTo Flag语句(Flag为标记)。此语句捕获错误但不会显示错误信息或者终止程序，而是跳到代码中的特定位置。然后代码可以使用适当的方 式来响应错误。例如，可以扩充上一个样例，以显示包含锁定图层上每个图元句柄的消息。训练11.2应用VBA编写输入圆心、半径、起始角和终止角绘制圆弧的参数化程序。应用VBA程序绘制样条曲线的方法为： AddArc(Center, Radius, StartAngle, EndAngle),其中， Center为

32、圆心坐标3元素列表，Radius为圆弧半径，StartAngle, EndAngle为圆弧起始、终止角(弧 度)。按训练11.1的方法和步骤设计参数化绘制圆弧的VBA程序，其步骤依次为：打开 VBA IDE、插入用户窗体并设置属性、插入控件并设置属性、编写代码、调试运行程序、保存工程。参数化绘 制圆弧的窗体如图11.16所示，并按表11.2所示设置窗体及控件的相应属性。参数化绘圆弘练习-z_CetiPoirLt= 5Q ArcR= 如y_CenPoint= 奇 ：StaAng=: 如 z_CenPoint= q EndAng= 吊口K-:r-.r.-.r.rn-.r.-.»,- -

33、- - . . «-B1 一 - - -L . . _ '图11.16绘制圆弧的窗体参数化绘制圆弧的主要代码如下：Private Sub cmdOK_Click()Dim pi As Doublepi = 4 * Atn(1)'定义常数 itThisDrawing.Application.Documents.AddDim ArcCenter(0 To 2) As DoubleDim ArcRadius As DoubleDim StartAngle As DoubleDim EndAngle As DoubleArcCenter(O) = txtXCen.TextAr

34、cCenter(1) = txtYCen.TextArcCenter(2) = txtZCen.TextArcRadius = txtRadius.TextStartAngle = txtStaAng.Text * pi / 180EndAngle = txtEndAng.Text * pi / 180'打开新图形'定义圆弧中心'定义圆弧半径'定义圆弧起始角'定义圆弧终止角'提取圆弧中心X坐标'提取圆弧中心Y坐标'提取圆弧中心Z坐标'提取圆弧半径'提取圆弧起始角并转换为弧度'提取圆弧终止角并转换为弧度表11

35、.2绘制圆弧的窗体及控件属性设置窗体及控件名称属性设置值作用窗体NamefrmArcCaption参数化绘圆弧练习标签NamelblXCen , lblYCen , lblZCen , lblArcR , lblStaAng , lblEndAng , lblSAUnit , lblEAUnitCaptionx_CenPoint, y_CenPoint, z_CenPoint, ArcR , StaAng, EndAng ,。(角度单位)，°提示输入圆心坐 标、半径、角度值 及角度单位文本框NametxtXCen , txtYCen , txtZCen , txtRadius , t

36、xtStaAng , txtEndAngText50, 70, 0, 30, 20, 160输入圆心坐标、圆 弧半径及圆弧起 始、终止角度值命令按钮NamecmdOK Click , cmdEnd ClickCaption确定，结束点击按钮Dim ArcObj As AcadArc '定义 Arc 对象'设置Arc对象Set ArcObj = ThisDrawing.ModelSpace.AddArc(ArcCenter, ArcRadius, StartAngle, EndAngle)ThisDrawing.SaveAs ( D:Arc_Ex.dwg ")'

37、保存图形End Sub训练11.3应用VBA编写输入基圆半径和展角上限绘制渐开线的参数化程序。渐开线为常用工程曲线，在机械设计基础或机械原理教材中有详细介绍。在VBA中，可采用样条曲线拟合的方法绘制渐开线。在如图11.17所示的直角坐标系 Oxy中，渐开线上点 K的坐标为7187x = rb(sin 8 -6 cos8)J(11.1)y = rb(cos 8 +、sin 8)式中，上一形成渐开线的基圆半径；9 用弧度表示的渐开线上K点对应的展角，且0壬6苴6。渐开线的切线方向可用其斜率(导数)表示，即-dy dy/dmy =卫=cot ( 0)(11.2)dx dx/d图11.17直角坐标系下

38、的渐开线应用 VBA 程序绘制样条曲线的方法为：AddSpline(PointsArray, StartTangent, EndTangent)，其中，PointsArray为样条曲线(渐开线)拟合点的 3维坐标组成的列表(即数组，必须为 3的倍数)， StartTangent, EndTangent为样条曲线的起点和终点切向向量(必需为 3元素列表，切向必需与曲线 的走向一致)8。起点的切向竖直向上7181-183，可取(0, 1, 0)；根据式(11.2)可知终点的切向为(1, cot 8, 0)。可根据精度要求将所绘渐开线的展角上限等分为J个区间(程序中取J=10)，应用For, Next循环计算拟合点的坐标。首先按下式计算展角：展=禹/j , 1 =展(j=0, 1,2, , , j)(11.3)再用式(11.1)计算点K的坐标(XKj, yKj)。参数化籍制渐开线F.,-IV- 7 A 图11.18绘制渐开线的窗体绘制渐开线及基圆的窗体如图11.18所示，程序如下：Private Sub cmdOK_Click()ThisDrawing.Application.Documents.Add pi = 4 *