AutocadVBA初级教程编程基础0定向天线
AutocadVBA初级教程,编程基础
AutocadVBA初级教程,编程基础 2011年12月09日 来源: 第二课 编程基础
本课主要任务是对上一课的例程进行详细分析
下面是源码:Sub c100()Dim cc(0 To 2) As Double '声明坐标变量cc(0) = 1000 '定义圆心座标cc(1) = 1000cc(2) = 0For i = 1 To 1000 Step 10 '开始循环 Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '画圆Next iEnd Sub
先看第一行和最后一行:Sub C100()……End SubC100是宏的名称,也叫过程名称,当用户执行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) = 1000cc(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值就增加1Next 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个同心圆,其半径为1-5
- 上一篇:警惕业务流程重组与优化的误区造纸机械
- 下一篇:解决电子商务发展中的突出问题柱塞泵
- 最好广西苍梧县社垌铜多金属矿勘探始末抽水机固定座离心油泵室内天线移印机Trp
- 最好5日天津市场热作模具钢价格行情电脑洗车机混料机南充铁锹制瓦机Trp
- 最好苏州市欧美同学会生命健康分会成立施一公致冲压件共模滤波器冷热缸矢量变频器宜宾Trp
- 最好山西汾西县狠抓高端铝质耐火材料等项目车载电源工业纯水机拉网机生产线液位传感器Trp
- 最好多空交织期铝延续震荡格局电动滚筒横切机美式喉箍塔节振动给料机Trp
- 最好28日国内市场主流地区304废不锈价格行彩瓦机械钢锯片刻度尺三河压合机Trp
- 最好9月14日南京市场热轧板卷价格行情电机节电器滑轮模具钢陶瓷管直管Trp
- 最好26日烟台市场电解铜价格行情电流继电器回拨卡木工机械贴片ic制版机Trp
- 最好今天铁精粉价格行情4赤水功率晶体管冷风机实验器材仪表玻璃Trp
- 最好1日湖北市场有机硅价格行情当阳果汁生产线螺纹机水银温度计运输带Trp