下面是源码:
Sub myl()
Dim p(0 To 49) As Double '定义点坐标
Dim myl As Object '定义引用曲线对象变量
co = 15 '定义颜色
For a = 0.01 To 1 Step 0.02 '开始循环画抛物线
For i = -24 To 24 Step 2 '开始画多段线
j = i + 24 '确定数组元素
p(j) = i '横坐标
p(j + 1) = a * p(j) * p(j) / 10 '纵坐标
Next i '至此p(0)-p(40)所有元素已定义,结束循环
Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线
myl.Color = co '设置颜色属性
co = co + 1 '改变颜色,供下次定义曲线颜色
Next a
End sub
为了鼓励大家积极思考,从本课开始,我不再解释每一条语句的作用,只对以前没有提过的语句进行一些解释,也许你一时很难明白,建议用上一课提到的跟踪变量、添加断点的办法领悟每一条语句的作用,如果有问题不懂请跟贴提问。
在跟踪变量p时请在跟踪窗口中单击变量p前的+号,这样可以看清数组p中每一个元素的变化。
ACAD没有现成的画抛物线命令,我们只能用程序编写多段线画近似抛物线。理论上,抛物线的X值可以是无限小、无限大,这里取值范围在正负24之间。
程序第二行:Dim myl As Object '定义引用曲线对象变量
Object也是