AutoCADVBA二次开发

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

2、这一点的。一旦这些对象被显示，许多不同的编程语言和环境以及其他应用程序(例如MicrosoftOffice中的WordVBA或ExcelVBA)就可以访问它们。在AutoCAD中实现ActiveX接口有两大优点：(1)更多的编程环境可以编程访问AutoCAD图形。在ActiveXAutomation出现以前，开发人员只能使用AutoLISP或C+接口。(2)与其他Windows应用程序(例如MicrosoftOffice中的Excel和Word)共享数据变得更加容易。对象是所有ActiveX应用程序的主要构造块，每一个显示的对象均精确代表一个AutoCAD组件,AutoCADActiveX接口

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

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

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

6、。AutoCAD中的VBA是指必须依赖于已有的AutoCAD应用程序才能运行的VisualBasic程序。宏是一个可执行的应用子程序，每个VBA工程至少包含一个宏。资源库，因此应用VBA开发通用应用程序时，应将其保存为全局工程。但全局工程也有一些缺点，它不会随AutoCAD图形文件的打开而自动加载。所以，用户在运行全局工程程序之前须要知道哪个工程文件中包含了所需的宏，然后加载该工程文件，最后才能执行相应的宏。11.2.2 VBA管理器在当前AutoCAD进程中加载的所有VBA工程均可用VBA管理器来管理，亦可用它来新建、保存、加载、卸载、嵌入或提取工程。“VBA管理器”对话框如图11.1所示。

7、启动“VBA管理器”对话框的命令调用方法为：命令彳亍:VBARUN菜单栏：【工具】一【宏】一【VBA管理器】与VBA应用程序开发、管理相关的下拉菜单如图11.2所示。图11.1"VBA管理器”对话框格式也)工具必绘图标江如修改®)窗口®帮助也)Express工作空间选项板二命钝清除屏幕CTRL+9CTEL+O式豳th第0国aStandardByL&yer排驾检查需)快速选择建).鳍图顺序Q)查询)相更新字段d)丁块编辑器重)外部参照和块在位编辑&星性提取QC).加载应用程序H).运行脚本地)AuUUSF)显示圉像(X)新建加5也)|g命名峻CAD标

8、准向导口草图设置9).k数字化仪卜自定义©选项国)一宏®，加载工程工)，OA管理器出一ALT+F9VisualEasic编辑器也)ALT+F11图11.2与VBA应用程序开发、管理相关的下拉菜单1 .创建新VBA工程创建新VBA工程的步骤如下：(1)打开“VBA管理器”对话框。(2)选择“新建”。新工程将以默认的名称“ACADProject”创建。如要更改工程名称，必须进入“VisualBasic编辑器”中，在“工程属性”窗口中更名。其操作方法步骤如下：(1)单击“VBA管理器”中的“VisualBasic编辑器”按钮(如图11.1所示)或用菜单选择“VisualBasic

9、编辑器”(如图11.2所示)，打开"MicrosoftVisualBasic",如图11.3所示。(2)在VB的“工程资源管理器”选中“ACADProject(Global1)”，单击右键，在弹出菜单中选择“ACADProject属性，”选项，打开“工程属性”对话框，在“工程名称”中输入用户欲更改的名称，如图11.4所示。图11.3VisualBasic编辑器图11.4“工程属性”对话框2 .保存新VBA工程每次保存图形文件时，都将保存其内嵌工程。而全局工程必须使用VBA管理器或VB编辑器来保存。使用VBA管理器保存工程的步骤：(1)打开VBA管理器，并选择要保存的工程。(

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

11、框(2)在甘T开VBA工程”对话框中选择欲加载的工程文件。(3)单击“打开”按钮，再单击“启用宏”按钮。打开VB编辑器即可查看、编辑或运行该程序。注意：用户在加载工程时，均会显示“禁用宏”或“启用宏”的选项提示，作为防范病毒的提示，如图11.6所示。若启用了带病毒的宏，程序中的病毒会一并运行；若禁用该宏，工程仍可被调用，但不能运行该工程中的任何程序。国AutoCAD|X口：I教学资料1毕业设计二机电05毕业设计I王小燕Jonjo/LinZ,dvb包含宏口宏可能包含病毒口禁用宏可以保证安全，但如果宏是合法的,那幺就可能会丢失某些功能口详细信息通)0每次打开包含宏的工程时均询问一：禁用宣®

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

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

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

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

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

17、AEckColorOBOOOOOOFaBorderCalor知8Mo口。12也EorderStyle0一fmBorderStyleUoneIlCaption圆锥台与圆拄相要展开匚好Cycle0-fmCycltA1Uorm5DrawEuff«r32000而血电dTrutFcut黑体FereColormoooooisaH«ight241.5HelpConteMtIE0总crollBarEViEible3-fmScrollEirEEothLeft0Mqux工uonQJone)Mqum4winter口二fmH皿£eFointerDefaultPictureQlonw)Fi

18、ctureAlignmeiitPietureSiiMod.ft20一fmPictureAligrurientCenter.fuiPictureSixeMlojdeClipFicturTilingFils4EightloLeftFals«ScrollBarw0-ftnScrolLEsNcn«ScrollHeiclitQV图11.9“属性”窗口图11.10“程序代码”窗口(3)窗体编辑在“工程”窗口中选取被编辑的窗体模块，再单击窗口顶部的“查看对象”按钮,即可打开窗体窗口和控件工具箱，如图11.11所示。用户可在该窗口中增删对象、编辑对象的属性或编辑与窗体关联的程序代码。双击窗

19、体窗口中的控件，可在程序代码窗口中显示与该控件相关的程序代码。;，:一:二，武："二二二":丁丁二，:"二1-：二:：二:丫二t":":二二":二二，二圈候台与圆柱相贯展开CAD一圆台参数一一上底半径R仁:下底半径距二：二:二:力:匚:二:：纣-上注:二:：:亡:-:二二:二:-工飞二半径眸:轴间距g圆柱中心高!二I-倾角thetp-工具箱控件、A响星日B(?U巴二?下二工山二:门上丁秀二:二式光二，whTMLUZiF由二二;2图11.11“窗体”窗口11.3VBA二次开发实例在学习了AutoCADVBA基础知识后，接下来介绍一个简单

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

21、,在“插入”菜单中选择“用户窗体”插入新窗体。打开“工具箱”(如图11.13所示)，点击“框架”按钮，在窗体中建立两个框架，分别用于起点和终点坐标的输入；再点击“标签”和“文字框”按钮，在两个框架中分别建立用于输入起点和终点坐标的标签和对话框；再点击“命令按钮”按钮，在用户窗体中建立“确定”和“结束”按钮。京理工教材CAD教材(5.1)DawLMevb-参数化绘直然练习frmLfne(UserForm)f具箱起点坐标-x-star1-10F_end:|40-y_start=10y_«ftd=I40-i_5tart=or；i_end=r'o:控件|kAabl国图R6U口图11.

22、13“用户窗体”编辑窗口(4)打开“属性窗口”(如图11.14所示)，在“用户窗体”中依次点击控件，在其“属性窗口中设置相应属性。按表11.1所示设置窗体及控件的相应属性。理H：U匕京理工教材KAD教材(5JMrawUne/vb-frmLine(UserForm)J"口r委教化绘直建练可r,绎点坐标y_«id=|Jozend=In:确定：；结束：；akaXfraSPFraflie叵i按字母序按分类序1名祢J£reSPBackCGM酿其其其F&BcrdsrC'clcr阿SMMQ1踹BorderStyle0-fmEordtrStylon«起点

23、坐标CaptionCon.troilipTextCycle0-fmCycleAllForms=EnabledImsFont宋体ForeColor研801够Hei哄t73HelpContextID0KeepScrar?Visible3-fmSctolIBarsBqthUft12Mqss电工七心力(W<M)MluusePoiinter0-fmMoueePointerDePictureQjon.)PictureUipunent2-fmFictwreAligm*en1PicturSiieMode0"fmPictMrtSizModeCPictureTilingF虹E电图11.14“属性”

24、设置窗口窗体及控件名称属性设置值作用窗体NamefrmLineCaption参数化绘直线练习框架NamefraSP,fraEPCaption起点坐标，终点坐标标签NamelblXS,lblYS,lblZS,lblXE,lblYE,lblZECaptionx_start,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确定，结束

25、点击按钮表11.1绘制直线的窗体及控件属性设置,在行PrivateSubcmdOK_Click()(5)双击“确定”按钮打开“代码窗口”入以下代码：ThisDrawing.Application.Documents.Add和行EndSub之间输DimStartPoint(0To2)AsDoubleDimEndPoint(0To2)AsDoubleStartPoint(0)=txtXSStartPoint(1)=txtYSStartPoint(2)=txtZSEndPoint(0)=txtXEEndPoint(1)=txtYEEndPoint(2)=txtZEDimLineObjAsAcadLi

26、ne'设置Line对象I'打开新图形'定义起点坐标'定义终点坐标'提取起点'提取起点'提取起点提取终点提取终点提取终点x坐标y坐标z坐标x坐标y坐标z坐标'定义Line对象SetLineObj=ThisDrawing.ModelSpace.AddLine(StartPoint,EndPoint)ThisDrawing.SaveAs("D:Line_Ex.dwg")'保存图形(6)双击"结束"按钮打开"代码窗口"，在行PrivateSubcmdEnd_Click()

27、入代码“End”，用于结束程序。一步骤(5)、(6)输入的代码如图11.15所示。(7)从VBAIDE的“运行”菜单中选择“运行子程序/用户窗体”选项或按和行EndSub之间输F5键来运行程序。(8)当程序运行完时，AutoCAD应用程序将置于最前。此时可在图形中看到直线，且图形的文件名称为Line_Ex.dwgE京理工教材优AD教材(5VhawLine.dvb-fm，二一CkdOEvClickVPrivateSubcmd£MClick0EndL?JEndSubPrivateSubcmdCK.Click0ThixUrawing.Application.Bocumenta.Aid

28、9;十开品图11.15实例的代码窗口注：VBA中的出错处理方法在VB和VBA中，使用OnError语句来捕获运行时错误。此语句为系统设置精确的捕获。当错误发生时，此语句会自动转到专门编写的错误处理程序，系统的默认错误处理则被略过。OnError语句有三种形式：OnErrorResumeNextOnErrorGoToLabelOnErrorGoTo0当希望忽略错误时，可以使用OnErrorResumeNext语句。此语句捕获错误但是不会显示错误信息或者终止程序，而是移到下一行代码继续执行。例如，如果希望创建子例程来遍历模型空间并修改每个图元的颜色，则在试图对锁定图层上的图元着色时AutoCAD将

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

30、),其中，Center为圆心坐标3元素列表，Radius为圆弧半径，StartAngle,EndAngle为圆弧起始、终止角(弧度)。按训练11.1的方法和步骤设计参数化绘制圆弧的VBA程序，其步骤依次为：打开VBAIDE、插入用户窗体并设置属性、插入控件并设置属性、编写代码、调试运行程序、保存工程。参数化绘制圆弧的窗体如图11.16所示，并按表11.2所示设置窗体及控件的相应属性。r区丞DimStartFoint4)To2)AsDouble，定义起点坐标DimEndPoint(0Tq2)AsDouble“定义整点坐标StartFoint©)=txtXS'1提取起点ic坐标S

31、twrtFoinUl)=UtYS'提取起点挫标StartPoi-nt(2)=txtZS，提取起点工坐标EnaToinKO)=txtKE'提取终点k坐标EndFoint(1)=txt¥E，提摩终点挫标EndPoint(23=txtZE提取整点工坐标DimLineObjAsAcdLineJ定义Line对象'设置Linm萧象SetLineObj-ThisDrawing.NodelSpaceAddLine(StartFointEndPoint)ThisUrawing.SvaAs：Line_Ex.dwg")保存图费EndSut参数化绘画需练习-z_CenPoi

32、nt=初ArcR=:30-IITL-l.lr.r".r-.r-i.!;L-iy_CenPoint=z_CenPoint=一！lll.r-.£BJI!5ra-.-rJ.Ll-8r8".!lllli-r-.BJI!.l-ip-图11.16绘制圆弧的窗体参数化绘制圆弧的主要代码如下：PrivateSubcmdOK_Click()DimpiAsDoublepi=4*Atn(1)'定义常数兀ThisDrawing.Application.Documents.AddDimArcCenter(0To2)AsDoubleDimArcRadiusAsDoubleDimSta

33、rtAngleAsDoubleDimEndAngleAsDoubleArcCenter(O)=txtXCen.TextArcCenter(1)=txtYCen.TextArcCenter(2)=txtZCen.TextArcRadius=txtRadius.TextStartAngle=txtStaAng.Text*pi/180EndAngle=txtEndAng.Text*pi/180'打开新图形'定义圆弧中心'定义圆弧半径定义圆弧起始角'定义圆弧终止角'提取圆弧中心X坐标'提取圆弧中心Y坐标'提取圆弧中心Z坐标'提取圆弧半径提

34、取圆弧起始角并转换为弧度'提取圆弧终止角并转换为弧度表11.2绘制圆弧的窗体及控件属性设置窗体及控件名称属性设置值作用窗体NamefrmArcCaption参数化绘圆弧练习标签NamelblXCen,lblYCen,lblZCen,lblArcR,lblStaAng,lblEndAng,lblSAUnit,lblEAUnitCaptionx_CenPoint,y_CenPoint,z_CenPoint,ArcR,StaAng,EndAng,0(角度单位)，。提示输入圆心坐标、半径、角度值及角度单位文本框NametxtXCen,txtYCen,txtZCen,txtRadius,txtS

35、taAng,txtEndAngText50,70,0,30,20,160输入圆心坐标、圆弧半径及圆弧起始、终止角度值命令按钮NamecmdOKClick,cmdEndClickCaption确定，结束点击按钮DimArcObjAsAcadArc'定义Arc对象'设置Arc对象SetArcObj=ThisDrawing.ModelSpace.AddArc(ArcCenter,ArcRadius,StartAngle,EndAngle)ThisDrawing.SaveAs(D:Arc_Ex.dwg")'保存图形EndSub训练11.3应用VBA编写输入基圆半径和展

36、角上限绘制渐开线的参数化程序。渐开线为常用工程曲线，在机械设计基础或机械原理教材中有详细介绍。在VBA中，可采用样条曲线拟合的方法绘制渐开线。在如图11.17所示的直角坐标系Oxy中，渐开线上点K的坐标为7187x=rb（sin9一日cos9）（11.1）y=rb（cos9+0sin0）式中，%一形成渐开线的基圆半径；日一用弧度表示的渐开线上K点对应的展角,渐开线的切线方向可用其斜率（导数）表示，即(11.2)dyy=dx图11.17直角坐标系下的渐开线且0M6M80。应用VBA程序绘制样条曲线的方法为：AddSpline（PointsArray,StartTangent,EndTangent），其中,PointsArray为样条曲线（渐开线）拟合点的3维坐标组成的列表（即数组，必须为3的倍数），StartTangent,EndTangent为样条曲线的起点和终点切向向量（必需为3元素列表，切向必需与曲线的走向一致）8。起点的切向竖直向上7181-183,可取（0,1,0）；根据式（11.2）可知终点的切向为（1,cot日，0）。可根据精度要求将所绘渐开线的展角上限日0等分为J个区间（程序中取J=10）,应用For,Next循环计算拟合点的坐标。首先按下式计算展角：(11.3)再用式（11.1）计算点K的坐标(XKj,yKj)。参数牝绘制渐开线Xe=a/j,3=jM(j