用AUTOCAD画正弦曲线.doc

《用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