CADVBA初级教程(全).doc

第一课:入门 ACAD VBA 的书不多,它的帮助是英文版的,很多人看不懂。其实我转行已经好几年了,而且手艺也慢慢生疏了,写个教程对自己来说也是一次复习。 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() (0 To 2) As Double '(0) = 1000 '(1) = (2) =0 For i=1 To 1000 Step 10'开始循环 Call ., i* 10) '画圆 Next i End Sub 也许您还看不懂上面的代码,这没有关系,只要能把同心画出来就可以了,祝您成功。第二课编程基础本课主要任务是对上一课的例程进行详细分析下面是源码: Sub c100() (0 To 2) As Double '(0) = 1000 '(1) = (2) =0 For i=1 To 1000 Step 10'开始循环 Call ., i* 10) '画圆 Next i End Sub 先看第一行和最后一行: Sub C100() …… End Sub C100 是宏的名称,也叫过程名称,当用户执行 C100 时程序将运行 sub 和 end sub 之间的所有指令。第二行: (0 To 2) As Double '声明坐标变量后半段“'声明坐标变量”自动变为绿色字体,它是代码语句的注释,它不会影响程序运行,它的作用是告诉阅读者程序员的想法。对于简单的程序,一般不需要写注释,如果要编写非常复杂的程序,最好要多加注释,越详细越好,对于程序员来说,这是一个好习惯。电脑真正编译执行的是这条语句: (0 To 2) As Double 它的作用就是声明变量。 Dim 是一条语句,可以理解为计算机指令。它的语法: Dim 变量名 As数据类型,而括号中的 0 是一个数组,这个数组有三个元素: CC(0) 、 CC(1) 、 CC(2) ,(1 to 3),(1) 、 CC(2) 、 CC(3) ,有了这个数组,就可以把坐标数值放到这个变量之中。 Double 是数据类型中的一种。 ACAD 中一般需要定义坐标时就用这个数据类型。在 ACAD 中数据类型的有很多,下面两个是比较常用的数据类型,初学者要有所理解。 Long (长整型),其范围从-2,147,483,648 到 2,147,483,647 。 Variant 它是那些没被显式声明为其他类型变量的数据类型,可以理解为一种通用的数据类型,这是最常用的。(0) = 1000 '(1) = (2) =变量的每一个元素赋,值其顺序是 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 To1 Step -10 很多情况下,后面可以不加 step 10 如: F