实验工程制图第4讲课件.ppt

《实验工程制图第4讲课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实验工程制图第四讲曲线计算机表示曲线的工程应用实验工程制图教材P217-237实验工程制图习题集P45P48i=10i=5近似方法造型1.三维造型椭圆封头2.用3DSOUT、3DSIN命令进行三角剖分3.编程获取节点坐标数据文件i=5,点数5389i=10,点数2769近似造型方法，点数1616数字实验(defunC:jiance()定义程序名(setqffn(getfiled"selectfile""""doc"1))通过AutoCAD标准程序对话框获得一个文件(setqff(openffn“w”))打

2、开文件,ffn文件名，w写方式(princ“selectpolyline...”)选择多义线(setqss(ssget))构造选择集(setqi0)I值初设为0(repeat(sslengthss)计算SS中的图元数作为循环次数(setqssn(ssnamessi))获得SS中由序号指定的那个图元(setqendata(entgetssn))取得ssn的图元序列(setqn0)n值初设为0(repeat(lengthendata)以endata的图元数作为循环次数(setqpp(nthnendata))

3、从图元序列中依次提取图元(setqkey(carpp))提取PP中第一个元素记为key(setvar"pdmode"33)打点模式(if(=key10)判断，10是图元群码，含义是插入点的x、y、z(progn若是(setqx(cadrpp))提取PP中第二个元素作为x坐标(setqy(caddrpp))提取PP中第二个元素作为y坐标(command“point”(listxy))将x、y坐标组合成一个点(setqff(openffn“a”))打开文件，ffn文件名，a添加方式(princxff)打印(pr

4、incyff)打印(princ0ff)打印(princ“”ff)代表换行(closeff)关闭文件)progn结束)判断结束(setqn(+1n))再次内循环)内循环结束(setqff(openffn"a"))ffn文件名，a添加方式(closeff)关闭文件(setqi(+1i))再次外循环)外循环结束(princ(strcat“filewriteto=>”ffn))将各字符串合并成一个字符串写入文件(prin1)打印)程序结束螺旋线计算机表示方法(defunC:Lp7-26()定义程序名(s

5、etqp0(getpoint"enterstartpoint:"))获得起始点p0(setqr(getreal“enterradius:r=”))半径(setqt1(getreal“enterdis:ti=”))导程(setqn(getreal“enternumber:n=”))圈数(setqx0(carp0))提取p0点坐标(setqy0(cadrp0))(setqz0(caddrp0))(setqx1(+x0r))计算p1点坐标(setqy1y0)(setqz1z0)(setqi0)(s

6、etqa(*n360))设初始角、终止角(while(<=ia)循环条件(setqang(/(*ipi)180))角度变弧度(setqx2(+x0(*r(cosang))))计算p2点坐标(setqy2(+y0(*r(sinang))))(setqz2(*(/t1(*2pi))ang))(setqp2(listx2y2z2))组成p2点(setqp1(listx1y1z1))组成p1点(command“line”p1p2“”)p1、p2两点连线(setqx1x2y1y2z1z2)p2点取代p1点(setqi

7、(+i1))设置步长))匹配括号数