CADVBA初程(全).docVIP

第一课：入门 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 语言，每用一个变量都要声明，