第3章-VBA开发技术-CAD二次开发课件.ppt

第第3章章 VBA开发技术开发技术本次课内容v1 1 概述概述v2 AutoCAD VBA2 AutoCAD VBA开发入门开发入门v3 3 创建和编辑二维图形对象创建和编辑二维图形对象1 概述1.1 AutoCAD ActiveX1.1 AutoCAD ActiveX技术概述技术概述1.2 AutoCAD Visual Basic for Application1.2 AutoCAD Visual Basic for Application接口概述接口概述1.3 VBA1.3 VBA在在AutoCADAutoCAD中的实现方式中的实现方式1.4 1.4 了解内嵌与全局了解内嵌与全局VBAVBA工程工程1.5 1.5 简单的简单的VBAVBA程序设计程序设计1.6 AutoCAD VBA1.6 AutoCAD VBA工程术语工程术语1.7 AutoCAD VBA1.7 AutoCAD VBA命令命令1.1 AutoCAD ActiveX技术概述AutoCAD ActiveX使用户能从AutoCAD的内部或外部外部以编程的方式来操作AutoCAD。在AutoCAD中实现ActiveX接口有两大优点两大优点：一是更多的编程环境可以访问AutoCAD图形。二是与其它Windows应用程序共享数据变得更加容易。对象是所有ActiveX应用程序的主要构造快。1.3 VBA在AutoCAD中的实现方式VBAVBA通过通过AutoCAD ActiveX AutomationAutoCAD ActiveX Automation接口将消息发接口将消息发送到送到AutoCADAutoCAD。AutoCAD VBAAutoCAD VBA允许允许VBAVBA环境与环境与AutoCADAutoCAD同时运行，同时运行，并通过并通过ActiveX AutomationActiveX Automation接口对接口对AutoCADAutoCAD进行编程进行编程控制。控制。1.4 了解内嵌与全局VBA工程AutoCAD VBA工程是代码模块、类模块和窗体的集合，这些模块和窗体配合工作，执行给定的功能。工程可以存储在AutoCAD图形中，也可以作为独立的文件存储。内嵌工程存储在AutoCAD图形中。全局工程存储在独立的文件中。1.5 简单的VBA程序设计创建工程运行工程保存工程1.7 AutoCAD VBA命令VBAIDEVBALOADVBARUNVBAUNLOADVBAMANVBASTMT2 AutoCAD VBA开发入门2.1 Hello，VBA2.2 AutoCAD ActiveX技术框架思路学习学习AutoCADAutoCAD二次开发，其实就是学习使用二次开发，其实就是学习使用Visual Visual BasicBasic编程语言来扩展编程语言来扩展AutoCADAutoCAD的功能。的功能。请求请求vbvb提供的一些功能。提供的一些功能。在某个类型库中寻找你需要的对象。在某个类型库中寻找你需要的对象。使用使用VBAVBA来做来做AutoCADAutoCAD的二次开发，所做的事情就是调的二次开发，所做的事情就是调用函数和执行对象提供的方法，对技术的学习就是了用函数和执行对象提供的方法，对技术的学习就是了解系统提供了哪些常用的函数，以及如何寻找所需要解系统提供了哪些常用的函数，以及如何寻找所需要的函数和对象。的函数和对象。步骤创建和保存DVB文件修改工程名称步骤创建宏 在工程资源管理器中单击在工程资源管理器中单击ThisDrawingThisDrawing图标，打开图标，打开该模块的代码窗口，在其中添加一个宏的定义。该模块的代码窗口，在其中添加一个宏的定义。Public Sub HelloVba()Public Sub HelloVba()End Sub End Sub编写宏的实现代码效果小结建立并设置了VBA开发环境创建和保存DVB文件创建宏InputBox和MsgBox函数2.2 AutoCAD ActiveX技术框架当用当用VBAVBA开发基于开发基于AutoCADAutoCAD的应用程序时，几乎总的应用程序时，几乎总在重复下面几种工作。在重复下面几种工作。创建和编辑实体创建和编辑实体 和用户交互和用户交互 利用对象特性来组织实体利用对象特性来组织实体 处理图形文件处理图形文件 视图管理视图管理 文字文字 管理块和属性管理块和属性 在三维空间工作在三维空间工作2.2 AutoCAD ActiveX技术框架响应响应AutoCADAutoCAD中的事件中的事件布局和打印操作布局和打印操作扩展数据和扩展记录来标识实体扩展数据和扩展记录来标识实体访问文件和数据库访问文件和数据库和和OfficeOffice程序交互数据程序交互数据使用使用Windows APIWindows API来增强程序功能来增强程序功能VBAVBA应用程序发布应用程序发布其他方面的操作其他方面的操作对象模型图创建图形AutoCADAutoCAD可以同时创建多个图形，为了简化在当前可以同时创建多个图形，为了简化在当前图形中创建实体，提供关键字图形中创建实体，提供关键字ThisDrawingThisDrawing。修改实体特性首先获取该对象的引用，然后再使用该实体所提供的方法或属性。使用窗体和用户交互在在VBAVBA集成开发环境中选择集成开发环境中选择【插入插入】|【用户窗体用户窗体】菜单项，在系统添加一个新的空白窗体后，从工具箱菜单项，在系统添加一个新的空白窗体后，从工具箱选择控件。选择控件。使用窗体和用户交互命令窗口和用户交互要在命令窗口和用户交互，并提示用户输入一些图形参数信息。文档操作在对象模型图中，Document对象被用来代表当前图形文档，Document集合用来表示当前打开的所有文档。3 创建和编辑二维图形对象3.1 直线3.2 圆和圆弧3.1 直线在在ActiveXActiveX模型中，直线所对应的类是模型中，直线所对应的类是AcadLineAcadLine，修改直线的特性可以使用修改直线的特性可以使用AcadLineAcadLine提供的属性和提供的属性和方法。方法。直线是一种实体，创建直线使用直线是一种实体，创建直线使用ModelSpaceModelSpace类的类的AddLineAddLine方法。方法。方法一方法二3.2 圆和圆弧创建圆可以使用创建圆可以使用ModelSpaceModelSpace对象的对象的AddCircleAddCircle方法，方法，该方法调用时需要提供的参数包括圆心和半径。该方法调用时需要提供的参数包括圆心和半径。3.2 圆和圆弧要根据某一个直径的要根据某一个直径的两个端点两个端点两个端点两个端点来创建圆，可以先计算来创建圆，可以先计算两个端点的中点得到圆心位置，再计算两端点之间的两个端点的中点得到圆心位置，再计算两端点之间的距离并除以距离并除以2 2得到圆的半径。得到圆的半径。三点法创建圆三点法创建圆三点法创建圆三点法创建圆，其输入的参数为三个，其输入的参数为三个VariantVariant类型变量，类型变量，这三个点只要不共线就能确定唯一的一个圆。这三个点只要不共线就能确定唯一的一个圆。3.2 创建圆和圆弧创建圆弧创建圆弧创建圆弧创建圆弧使用使用ModelSpaceModelSpace对象的对象的AddArcAddArc方法，它方法，它所需要的参数为圆弧的圆心、半径、起始和终止所需要的参数为圆弧的圆心、半径、起始和终止角度。角度。起始和终止角度都用弧度表示，如果起始角度大起始和终止角度都用弧度表示，如果起始角度大于终止角度，则于终止角度，则逆时针方向逆时针方向逆时针方向逆时针方向创建圆弧，否则沿创建圆弧，否则沿顺顺顺顺时针方向时针方向时针方向时针方向创建圆弧。创建圆弧。3.2 创建圆和圆弧创建圆弧要根据圆心、起点和终点来绘制圆弧，可计算圆心要根据圆心、起点和终点来绘制圆弧，可计算圆心到起点之间的距离得到到起点之间的距离得到半径半径半径半径，从圆心到起点所构成，从圆心到起点所构成的矢量与的矢量与X X轴正半轴的角度为圆弧的轴正半轴的角度为圆弧的起始角度起始角度起始角度起始角度，从，从圆心到圆弧终点所成矢量与圆心到圆弧终点所成矢量与X X轴正半轴的角度为圆轴正半轴的角度为圆弧的弧的终止角度终止角度终止角度终止角度，据此可创建圆弧。，据此可创建圆弧。创建圆弧要根据圆心、起点和圆弧长度来绘制圆弧，可以计算圆心到起点之间的距离，从圆心到起点所构成矢量与X轴正半轴的角度为圆弧的起始角度，根据弧长等于半径乘以所应角度的定律可以计算出圆弧对应的角度，加上起始角度就得到圆弧的终止角度。创建圆弧要根据起点、终点和圆弧上任意点创建圆弧，可以由这三点确定圆心位置，然后在参照圆心、起点和终点绘制圆弧的方法即可。根据绘制圆函数绘制圆根据某个直径两端点绘制圆根据任意不共线的三点绘制圆根据任意不共线的三点绘制圆创建圆弧代码见代码见 VS.NET 2008作业1 写出判断写出判断“点是否在直线左侧点是否在直线左侧“的判断思路？可以的判断思路？可以试着根据该思路编制一个程序进行判断。试着根据该思路编制一个程序进行判断。2 2 根据窗体里面输入的数值，画直线、园、圆弧。根据窗体里面输入的数值，画直线、园、圆弧。