Java教程第3章VBA开发技术

第3章VBA开发技术,主讲人：李恒凯联系电话子邮件：giskaiQQ:20297327,本次课内容,1概述2AutoCADVBA开发入门3创建和编辑二维图形对象,1概述,1.1AutoCADActiveX技术概述1.2AutoCADVisualBasicforApplication接口概述1.3VBA在AutoCAD中的实现方式1.4了解内嵌与全局VBA工程1.5简单的VBA程序设计1.6AutoCADVBA工程术语1.7AutoCADVBA命令,1.1AutoCADActiveX技术概述,AutoCADActiveX使用户能从AutoCAD的内部或外部以编程的方式来操作AutoCAD。在AutoCAD中实现ActiveX接口有两大优点：一是更多的编程环境可以访问AutoCAD图形。二是与其它Windows应用程序共享数据变得更加容易。对象是所有ActiveX应用程序的主要构造快。,1.2AutoCADVisualBasicforApplication接口概述,VBA是一个面向对象的编程环境，可以提供类似VB的丰富开发功能。VBA向其它支持VBA的应用程序提供应用程序集成。,1.3VBA在AutoCAD中的实现方式,VBA通过AutoCADActiveXAutomation接口将消息发送到AutoCAD。AutoCADVBA允许VBA环境与AutoCAD同时运行，并通过ActiveXAutomation接口对AutoCAD进行编程控制。,1.4了解内嵌与全局VBA工程,AutoCADVBA工程是代码模块、类模块和窗体的集合，这些模块和窗体配合工作，执行给定的功能。工程可以存储在AutoCAD图形中，也可以作为独立的文件存储。内嵌工程存储在AutoCAD图形中。全局工程存储在独立的文件中。,1.5简单的VBA程序设计,创建工程运行工程保存工程,1.6AutoCADVBA工程术语,全局工程内嵌工程一般文档智能文档ThisDrawingVBAIDEVBA管理器宏工程对话框窗体,1.7AutoCADVBA命令,VBAIDEVBALOADVBARUNVBAUNLOADVBAMANVBASTMT,2AutoCADVBA开发入门,2.1Hello，VBA2.2AutoCADActiveX技术框架,2.1Hello，VBA,思路步骤效果小结,思路,学习AutoCAD二次开发，其实就是学习使用VisualBasic编程语言来扩展AutoCAD的功能。请求vb提供的一些功能。在某个类型库中寻找你需要的对象。使用VBA来做AutoCAD的二次开发，所做的事情就是调用函数和执行对象提供的方法，对技术的学习就是了解系统提供了哪些常用的函数，以及如何寻找所需要的函数和对象。,步骤,开发环境的建立开发环境的配置,步骤,创建和保存DVB文件修改工程名称,步骤,创建宏在工程资源管理器中单击ThisDrawing图标，打开该模块的代码窗口，在其中添加一个宏的定义。PublicSubHelloVba()EndSub编写宏的实现代码,实现代码,PublicSubHelloVba()DimstrnameAsStringstrname=InputBox(输入你的名字,helloVBA,MyFriend)MsgBoxstrname&,让我们在图形窗口中欢迎你！DimtextAsAcadTextDiminsertPoint(0To2)AsDoubleinsertPoint(0)=10insertPoint(1)=10insertPoint(2)=0Settext=ThisDrawing.ModelSpace.AddText(Hello,VBA!,insertPoint,5)ThisDrawing.Application.ZoomExtentsEndSub,效果,小结,建立并设置了VBA开发环境创建和保存DVB文件创建宏InputBox和MsgBox函数,2.2AutoCADActiveX技术框架,当用VBA开发基于AutoCAD的应用程序时，几乎总在重复下面几种工作。创建和编辑实体和用户交互利用对象特性来组织实体处理图形文件视图管理文字管理块和属性在三维空间工作,2.2AutoCADActiveX技术框架,响应AutoCAD中的事件布局和打印操作扩展数据和扩展记录来标识实体访问文件和数据库和Office程序交互数据使用WindowsAPI来增强程序功能VBA应用程序发布其他方面的操作,对象模型图,创建图形,创建对象按照模型图的层次结构一步步访问。,创建图形,AutoCAD可以同时创建多个图形，为了简化在当前图形中创建实体，提供关键字ThisDrawing。,修改实体特性,首先获取该对象的引用，然后再使用该实体所提供的方法或属性。,使用窗体和用户交互,在VBA集成开发环境中选择【插入】|【用户窗体】菜单项，在系统添加一个新的空白窗体后，从工具箱选择控件。,使用窗体和用户交互,使用窗体和用户交互,命令窗口和用户交互,要在命令窗口和用户交互，并提示用户输入一些图形参数信息。,图层操作,对象特性包括图层、颜色、线型和线宽，绝大部分操作是针对图层进行。,文档操作,在对象模型图中，Document对象被用来代表当前图形文档，Document集合用来表示当前打开的所有文档。,3创建和编辑二维图形对象,3.1直线3.2圆和圆弧,3.1直线,在ActiveX模型中，直线所对应的类是AcadLine，修改直线的特性可以使用AcadLine提供的属性和方法。直线是一种实体，创建直线使用ModelSpace类的AddLine方法。,方法一,方法二,3.2圆和圆弧,创建圆可以使用ModelSpace对象的AddCircle方法，该方法调用时需要提供的参数包括圆心和半径。,3.2圆和圆弧,要根据某一个直径的两个端点来创建圆，可以先计算两个端点的中点得到圆心位置，再计算两端点之间的距离并除以2得到圆的半径。三点法创建圆，其输入的参数为三个Variant类型变量，这三个点只要不共线就能确定唯一的一个圆。,3.2创建圆和圆弧,创建圆弧使用ModelSpace对象的AddArc方法，它所需要的参数为圆弧的圆心、半径、起始和终止角度。起始和终止角度都用弧度表示，如果起始角度大于终止角度，则逆时针方向创建圆弧，否则沿顺时针方向创建圆弧。,3.2创建圆和圆弧,创建圆弧,要根据圆心、起点和终点来绘制圆弧，可计算圆心到起点之间的距离得到半径，从圆心到起点所构成的矢量与X轴正半轴的角度为圆弧的起始角度，从圆心到圆弧终点所成矢量与X轴正半轴的角度为圆弧的终止角度，据此可创建圆弧。,创建圆弧,要根据圆心、起点和圆弧长度来绘制圆弧，可以计算圆心到起点之间的距离，从圆心到起点所构成矢量与X轴正半轴的角度为圆弧的起始角度，根据弧长等于半径乘以所应角度的定律可以计算出圆弧对应的角度，加上起始角度就得到圆弧的终止角度。,创建圆弧,要根据起点、终点和圆弧上任意点创建圆弧，可以由这三点确定圆心位置，然后在参照圆心、起