首页 >> 激光器

AutocadVBA初级教程画函数曲线园林工具

工具    
2022年07月21日

AutocadVBA初级教程,画函数曲线

AutocadVBA初级教程,画函数曲线 2011年12月09日 来源: 先画一组下图抛物线。

下面是源码: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 aEnd sub

为了鼓励大家积极思考,从本课开始,我不再解释每一条语句的作用,只对以前没有提过的语句进行一些解释,也许你一时很难明白,建议用上一课提到的跟踪变量、添加断点的办法领悟每一条语句的作用,如果有问题不懂请跟贴提问。在跟踪变量p时请在跟踪窗口中单击变量p前的+号,这样可以看清数组p中每一个元素的变化。

ACAD没有现成的画抛物线命令,我们只能用程序编写多段线画近似抛物线。理论上,抛物线的X值可以是无限小、无限大,这里取值范围在正负24之间。

程序第二行:Dim myl As Object '定义引用曲线对象变量Object也是一种变量类型,它可以把变量定义为对象,本例中myl变量将引用多段线,所以要定义为Objet类型。

看画多段线命令:Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '画多段线其中括号中的p是一个数组,这个数组的元素数必须是偶数,每两个元数作为一个点坐标。等号前面部分“Set myl”的作用就将myl变量去引用画好的多段线。myl.Color = co '设置颜色属性。在ACAD中,颜色可以用数字表示,本例中co会增值,这样就会有五彩缤纷的效果。

本课第二张图:正弦曲线,下面是源码:Sub sinl()Dim p(0 To 719) As Double '定义点坐标For i = 0 To 718 Step 2 '开始画多段线 p(i) = i * 2 * 3.1415926535897 / 360 '横坐标 p(i + 1) = 2 * Sin(p(i)) '纵坐标Next iThisDrawing.ModelSpace.AddLightWeightPolyline (p) '画多段线ZoomExtents '显示整个图形End Sub

p(i) = i * 2 * 3.1415926535897 / 360 '横坐标横坐标表示角度,后面表达式的作用是把角度转化弧度ZoomExtents语句是缩放命令,它的作用是显示整个图形,消除图形以外的区域

本课思考题:画一条抛物线:y=0.5*x*x+3,其中X取值范围在正负50之间

三叶机电制造有限公司

长宁县下长镇天平村委会

上虞市智力包装制品有限公司

诚义利有限公司

上海龙喆汽车销售有限公司

龙胜机电销售维修

广东省赣冠职业培训学院

东莞市创易新自动化机械有限公司

印花;染色等

广州阿霖迪家具有限公司第一分公司

相关阅读
最火新闻联播连续上新首位80后主播严於信亮相底阀焊锡丝马车螺丝塑料机械照明箱Rra

《联播》连续上新,首位80后主播严於信亮相 超级简历继潘碱性蓄电池涛、宝...

2024-03-22
最火2016年03月25日最新金属钕价格行情PDA二手汽车吊胶枪气动装置无铅焊锡Rra

无油轴承(201激光焊机6年03月25日)最新金属钕价格行情报价您当前位置:首...

2024-03-22
最火走出去或成为低矿价下国内企业的生存之道冲压件共模滤波器冷热缸矢量变频器宜宾Rra

“走出去”或成为低矿价下国内企业的生存之道【铝道】如果要概括铁矿石在...

2024-03-22
最火可视对讲大当家小区单元智能门禁系统哪种音电动阀恒温烤箱美标闸阀锁具真空箱Rra

可视对讲大当家:小区单元智能门禁系统哪种音视频处理效果好?32P您当前位...

2024-03-22
最火21日1220天水市场建筑钢材价格行情标准卡浮标绝缘变压器热管新郑Rra

21日(12:20)天水市场建筑只需在主界面按清零键便可全程自动清零钢材价格...

2024-03-22
最火23日上海市场镀锌管价格行情采茶机钢焊条可调衰减器润滑设备循环泵Rra

23日上海市场镀锌管价格行情您当前位置:首页 价格行情23日上海市场镀锌管...

2024-03-22
友情链接