第一课：入门
1.为什么要写这个教程
市面上ACAD VBA 的书不多，它的帮助是英文版的，很多人看不懂。其实我转行已经好几年了，而且手艺也 慢慢生疏了，写个教程对自己来说也是一次复习。 2.什么是Autocad VBA？
VBA 是Visual Basic for Applications 的英文缩写，它是一个功能强大的开发工具，学好VBA 可以成倍 甚至成百、成万倍提高工作效率，在工作中，有很多任务仅用ACAD 命令不可能完成的，只要学好VBA 就可 以做到，相信到时候您一定会得到同事的佩服、老板的器重。 3、VBA 有多难？
相信大家都知道Basic 是的含义。应该承认，我的水平还不高，错误之处在所难免，如果大家发现错误一 定要提出批评，以便及时更正。 4、怎样学习VBA？
介绍大家一个学习公式：信心+恒心=开心。仔细阅读本教程，完成例题，在学习的过程中一定要多思考， 多想一些是什么、为什么。本教程将陆续发布在CAD 世界论坛上，您不需要付费就可以学习。本作者在此 郑重承诺：关于本教程中有任何疑问，可以跟贴提问，只要有时间，本人一定会耐心解答。我不会发到任 何人的邮箱中，您自己在论坛上找就可以了，请不要再向我索要这份教程。 5、现在我们开始编写第一个程序：画一百个同心圆 第一步：复制下面的红色代码
第二步：在模型空间按快捷键Alt+F8，出现宏窗口 第三步：在宏名称中填写C100，点“创建”、“确定” 第四步：在Sub c100()和End Sub 之间粘贴代码 第五步：回到模型空间，再次按Alt+F8，点击“运行” Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆 Next i End Sub
也许您还看不懂上面的代码，这没有关系，只要能把同心画出来就可以了，祝您成功。
第二课编程基础
本课主要任务是对上一课的例程进行详细分析
下面是源码： Sub c100()
Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0
For i = 1 To 1000 Step 10 '开始循环
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆 Next i End Sub
先看第一行和最后一行： Sub C100() ?? End Sub
C100 是宏的名称，也叫过程名称，当用户执行C100 时程序将运行sub 和end sub 之间的所有指令。 第二行：
Dim cc(0 To 2) As Double '声明坐标变量
后半段“'声明坐标变量”自动变为绿色字体，它是代码语句的注释，它不会影响程序运行，它的作用是告 诉阅读者程序员的想法。对于简单的程序，一般不需要写注释，如果要编写非常复杂的程序，最好要多加 注释，越详细越好，对于程序员来说，这是一个好习惯。 电脑真正编译执行的是这条语句：Dim cc(0 To 2) As Double 它的作用就是声明变量。
Dim 是一条语句，可以理解为计算机指令。 它的语法：Dim 变量名As 数据类型
本例中变量名为CC，而括号中的0 to 2 声明这个CC 是一个数组，这个数组有三个元素：CC(0)、CC(1)、 CC(2)，如果改为CC(1 to 3)，则三个元素是CC(1)、CC(2)、CC(3)，有了这个数组，就可以把坐标数值放 到这个变量之中。
Double 是数据类型中的一种。ACAD 中一般需要定义坐标时就用这个数据类型。在ACAD 中数据类型的有很 多，下面两个是比较常用的数据类型，初学者要有所理解。 Long（长整型），其范围从-2,147,483,648 到2,147,483,647。
Variant 它是那些没被显式声明为其他类型变量的数据类型，可以理解为一种通用的数据类型，这是最常 用的。 下面三条语句
cc(0) = 1000 '定义圆心座标 cc(1) = 1000 cc(2) = 0
它们的作用是给CC 变量的每一个元素赋,值其顺序是X、Y、Z 坐标。 For i = 1 To 1000 Step 10 '开始循环 ??
Next i '结束循环
这两条语句的作用是循环运行指令，每循环一次，i 值要增加10，当i 加到1000 时，结束循环。 i 也是一个变量，虽然没有声明i 变量，程序还是认可的，VB 不是C 语言，每用一个变量都要声明，不声 明就会报错。简单是简单了，这样做也有坏处，如果不小心打错了一个字母，程序不会报错，如果程序很 长，那就会出现一些意想不到的错误。
step 后面的数值就是每次循环时增加的数值，step 后也可以用负值。 例如：For i =1000 To 1 Step -10 很多情况下，后面可以不加step 10
如：For i=1 to 100，它的作用是每循环一次i 值就增加1 Next i 语句必须出现在需要结束循环的位置，不然程序没法运行。 下面看画圆命令：
Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)
Call 语句的作用是调用其他过程或者方法。
ThisDrawing.ModelSpace 是指当前CAD 文档的模型空间 AddCircle 是画圆方法
Addcicle 方法需要两个参数：圆心和半径
CC 就是圆心坐标，i*10 就是圆的半径，本例中，这些圆的半径分别是10、110、210、310?? 本课到此结束，下面请完成一道思考题： 1. 以(4,2)为圆心，画5 个A
utocad VBA 初级教程
(第三课编程基础二)
有一位叫自然9172 的网友提出了下面的问题：
绘制三维多段线时X、Y 值在屏幕上用鼠标选取，Z 值用键盘输入 本课将讲解这个问题。
为了简化程序，这里用多条直线来代替多段线。以下是源码： Sub myl()
Dim p1 As Variant '申明端点坐标 Dim p2 As Variant
p1 = ThisDrawing.Utility.GetPoint(, \输入点:\获取点坐标 z = ThisDrawing.Utility.GetReal(\坐标:\用户输入Z 坐标值 p1(2) = z '将Z 坐标值赋予点坐标中 On Error GoTo Err_Control '出错陷井 Do '开始循环
p2 = ThisDrawing.Utility.GetPoint(p1, vbCr & \输入下一点:\获取下一个点的坐标 z = ThisDrawing.Utility.GetReal(\坐标:\用户输入Z 坐标值 p2(2) = z '将Z 坐标值赋予点坐标中
Call ThisDrawing.ModelSpace.AddLine(p1, p2) '画直线 p1 = p2 '将第二点的端点保存为下一条直线的第一个端点坐标 Loop
Err_Control: End Sub
先谈一下本程序的设计思路： 1、获取第一点坐标 2、输入第一点Z 坐标 3、获取第二点坐标 4、输入第二点Z 坐标
5、以第一、二点为端点，画直线 6、下一条线的第一点=这条线的第二点 7、回到第3 步进行循环
如果用户没有输入坐标或Z 值，则程序结束。
CADVBA初级教程(全全)
