2016年电大机械cadcam作业(四).docVIP

机械CADCAM作业（四） 一、阅读理解题（每题6分，共12分） 写出下述函数在的AotuCAD编辑状态中的运行结果 （defun c: HL ( ) (setq x1 25.0 y1 10.0 ) (setq p1 (list x1 y1) ) (setq x2 (+ (car p1) 50.0) y2 (cdr p1) ) (setq p2 (list x2 y2)) (princ x1 y1 x2 y2) (cammand “line” p1 p2 “”) ) 绘出在AotuCAD编辑状态中下述菜单文件在屏幕上显示的内容 ***pop11 [标准件] [轴承]^c^czhoucheng [──] [螺母] ^c^cluomu [螺钉] ^c^cluoding [垫圈] ^c^cdianquan [──] [销] ^c^cxiao 二、编程题（14分） 用AutoLISP语言编写一个自定义函数。要求执行此函数时使用键盘输入一个矩形截面长和宽的值，然后自动绘出该矩形，并绘出剖面线。 阅读理解题解答 在文本行显示出x1、y1、x2