cad实验考试.docVIP

集 美 大 学 计 算 机 工 程 学 院 实 验 报 告 课程名称 Visual LISP程序设计 实验名称 实验考试—— 绘制轴的断面轮廓线 实验类型 设计型 姓名 李慧 学号 2011810063 日期 2013/12/23 地点 陆大206 成绩 教师 庄建东 评语： 一、实验目的 熟悉掌握利用CAD软件进行定义参数化绘图的命令 二、实验内容 图名 九级阶梯 比例 1:5 作者 张三 学号 XXXXX 班级 XXXXXXX 2.绘制如图所示的轴的断面轮廓线 要求： 圆的直径、宽度和深度要分别加以尺寸标注 要填充图案 三、实验使用环境 本次实验在环境下调试。实验和调试过程(defun c:aaa (/ v1 v2 v3) (setq v1 (getvar osmode)) (setq v2 (getvar cmdecho)) (setq v3 (getvar blipmode)) (setvar osmode 0) (setvar cmdecho 0) (setvar blipmode 0) (setq pc (0 0) r 40 p1 (polar pc 0 40) p2 (5 5) ) (command circle pc r) (command dimdiameter p1 p2) ;直径标注 (command line 50,11 31,11 31,-11 50,-11 ) (command zoom e) (command trim All 40,0 50,11 50,-11 ) (command layer m poumian ) (command bhatch p ansi31 1.5 0 0,0 ) (setq p1 (40 11) p2 (40 -11) p3 (42 0) ) (command dimlinear p1 p2 v p3) ;深度标注 (setq p3 (-40 0) p4 (31 0) p5 (0 -42) ) (command dimlinear p3 p4 h p5) ;宽度标注 (command style 汉字 gbcbig ) (command layer m 粗线 c 7 lw 0.6 ) (command line 0,0 120,0 120,30 0,30 c) ;绘制图框 (command line 0,10 120,10 ) ;绘制标题栏 (command line 0,20 120,20 ) (command line 30,0 30,30 ) (command line 60,10 60,30 ) (command line 90,10 90,30 ) (command layer m 文字 c 5 ) ;创建当前图层“文字” (command text m (list 15 5) 5 0 班级) ;填写标题栏 (command text m (list 15 15) 5 0 作者 ) (command text m (list 15 25) 5 0 图名 ) (command text m (list 45 15) 5 0 李慧) (command text m (list 45 25) 5 0 轴的断面轮廓线) (command text m (list 75 15) 5 0 学号) (command text m (list 75 25) 5 0 比例) (command text m (list 105 15) 3 0 2011810063) (command text m (list 105 25) 5 0 1：5) (command text m (list 45 5) 5 0 计算1113) (setvar osmode v1) ;恢复目标捕捉的原来状态 (setvar cmdecho v2) ;恢复普通命令提示原来的显示状态 (setvar blipmode v3) ;恢复光标痕迹原来的显示态 (princ) ;静默退出 ) 实验结果： 五、实验小结 通过本次实验考试检测了我这学期知识的综合运用，考试的内容用到了之前实验所学过的内容，绘制图形、填充、加尺寸标注等。 实验中还是遇到过问题，明明输入的命令没错可却得不出结果，最后只好换一种方法。 应该充分复习已掌握的知识并学会灵活运用。