第10篇 VBA程序设计.pptVIP

第十章 VBA程序设计 10.1 VBA简介 Visual Basic for Application（VBA）是由Microsoft创建的，用来自动执行任务的一个编程环境。 10.1.1 一个简单的VBA示例 10.1.1 一个简单的VBA示例 具体的编程过程如下： (1) 进入VBA集成开发环境; (2) 添加模块; (3) 添加过程; Public Sub Circ ( ) End Sub (4) 在该过程框架之间输入代码 ; (5) 运行程序 ; (6) 保存程序 10.1.1 一个简单的VBA示例 Public Sub Circ() Dim CircObj As AcadCircle Dim Center As Variant 定义变体变量 Dim Radius As Double 定义半径变量 Center = ThisDrawing.Utility.GetPoint(, 输入圆心点:) 输入一个点 Radius = ThisDrawing.Utility.GetDistance(, 输入半径:) 输入半径 Set CircObj = ThisDrawing.ModelSpace.AddCircle(Center, Radius) 绘制圆 End Sub 10.1.2 VBA工程 利用VBA管理器，用户可以在当前图形中进行加载、卸载、保存、创建、嵌入和提取VBA工程等操作，工程文件为 *.Dvb。 宏的概念,工程加载后，就可以在当前图形中使用工程中定义的全部子例程--宏; 在绘制圆的例子中，过程框架： Public Sub Circ ( ) …… End Sub 就是一个宏结构，当在该框架之间添加相应的代码就构成了一个特定的宏，在VB和VBA中常称为过程。宏是能够完成一个特定功能的一套指令集合。 VBA编辑器 10.3 VBA程序设计举例 10.3.2 画正弦曲线 ； Public Sub sins( ) Dim plineObj As AcadLWPolyline 定义二维多段线对象变量 Dim sp As Variant 定义变体变量 Dim points(0 To 361) As Double 定义双精度数组，存放点的坐标 Dim i As Integer 定义整型变量，用作循环计数器 Dim x, y, dx As Double ‘定义双精度变量 sp = ThisDrawing.Utility.GetPoint(, 输入起点:) 输入一个点 i = 0: x = 0#: y = 0# 计算起点的x、y坐标 dx = 3.14159 / 90 计算增量 points(0) = sp(0): points(1) = sp(1) 计算平移后起点的x、y坐标 For i = 1 To 180 开始循环 x = x + dx: y = Sin(x) 计算点的x、y坐标 points(2 * i)= sp(0)+ x:points(2 * i +1)= sp(1)+y 计算平移后点的x、y坐标 Next i 循环尾 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) 创建二维多段线对象 End Sub 10.3.3 画空间圆柱螺旋线 x=rcos(ωt)，y=rsin(ωt)，z=vt Public Sub Screw( ) Dim polyObj As Acad3DPolyline 定义三维多段线对象变量 Dim p0 As Variant 定义变体变量 Dim points(0 To 542) As Double