欢迎来到天天文库
浏览记录
ID:51943375
大小:12.00 KB
页数:2页
时间:2020-03-20
《用AUTOCAD画正弦曲线.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、用AUTOCAD画正弦曲线用ALT+F8打开宏将下面语句写入宏正弦1Subsinline()Dimp(0To719)AsDoubleFori=0To718Step2p(i)=i*2*3.1415926535897/360'横坐标p(i+1)=2*Sin(p(i))'纵坐标NextiThisDrawing.ModelSpace.AddLightWeightPolyline(p)ZoomExtentsEndSub正弦2Subsinline1()Dimp(0To719)AsDoubleFori=0To718Step2p(i)=i*9/360'横坐标p(i+1
2、)=2*Sin(2*3.1415926535897/9*p(i))'纵坐标NextiThisDrawing.ModelSpace.AddLightWeightPolyline(p)ZoomExtentsEndSub抛物线Submyl()Dimp(0To49)AsDoubleDimmylAsObjectco=15Fora=0.01To1Step0.02Fori=-24To24Step2j=i+24p(j)=ip(j+1)=a*p(j)*p(j)/10NextiSetmyl=ThisDrawing.ModelSpace.AddLightWeightPoly
3、line(p)myl.color=coco=co+1NextaEndSub
此文档下载收益归作者所有