实验报告 实验三 AutoCAD二次开发.docVIP

姓名 评分 实验报告 课程名称： 计算机辅助设计　 实验名称： AutoCAD二次开发 专 业： 信息与计算科学 小组成员： 　　　 指导教师： 完成日期： 2011年11月20日 一、实验名称 Autocad二次开发实验 二、 实验目的 通过上机上机，熟悉AUTOLISP语言，掌握常用的各种函数的功能和用法，熟悉AUTOLISP语言程序的编制和调试方法。 三、 实验要求 熟悉AUTOLISP语言特点和格式，掌握常用函数的功能和简单程序的编写方法。此外还应了解AUTOLISP程序调试方法。 四、 实验题目 (1)将196页应用举例程序输入，执行程序，体会开发过程。 (2)完成课本第198页第5题。 (3)编写一个AUTOLISP程序，如下图所示：调试程序，如出现错误进行修改后再上机运行，直至程序正确为止。并将代码写入实验报告中。 转动压板及标注 六、 实验步骤 （1）首先打开CAD，然后点击“工具”下拉选项里的“AOTOLISP”选项里的“AOTOLISP”编辑器，这时便跳出编辑窗口，点击“新建”，然后输入下面代码，最后点击“运行”按钮，鼠标指向“控制台”，然后在“控制台”里输入(c:ls),回车，屏幕切换到画图窗口，首先确定基点，然后输入直径大小30，再输入长度70，画得的图像如图一所示。 (defun c:ls() (setq p0(getpoint确定基点：)) (setq d(getreal\n输入螺栓直径：)) (setq ld(getreal\n输入螺栓长度：)) (if( ld(* 2 d)) (princOK) (setq ld(* 2 d)) ) (setq p1(polar p0 (* 0.5 pi)(* 0.5 d))) (setq p2(polar p1 0(- ld(* 2 d)))) (setq p3(polar p1 0(- ld(* 0.1 d)))) (setq p4(polar p2 (* -0.5 pi)(* 0.1 d))) (setq p5(polar p4 0(* 2 d))) (setq p6(polar p0 0 ld)) (setq p7(polar p0 0(- ld(* 0.1 d)))) (setq p8(polar p0 0(- ld(* 2 d)))) (setq p9(polar p0(* 0.5 pi)d)) (setq p10(polar p9 pi(* 0.7 d))) (setq p11(polar p1 pi(* 0.7 d))) (setq p12(polar p0 pi(* 0.7 d))) (setq p13(polar p0 pi(* 0.9 d))) (setq p14(polar p0 0(+ ld(* 0.2 d)))) (setq ss (getvar clayer)) (command -layer m center l center center ) (command line p13 p14) (setvar clayer ss) (command pline p0 w 0.6 0.6 p9 p10 p12 ) (command pline p11 p3 p5 p6) (command line p4 p5 ) (command mirror c p10 p6 p0 p6 n) (command ltscale5) (princ) ) 图一 （2）步骤同上，输入代码如下： (defun c:roughness() (setvar cmdecho 0) (setq p0 (getpoint 确定插入点:)) (setq h (getdist p0 \n 输入粗糙度值的文字高度:)) (setq hl (* h 1.61658)) (setq alf (getangle p0 \n 输入粗糙度符号的旋转角度)) (setq al (+ alf (/ pi 3))) (setq p1 (polar p0 al (* 2 hl))) (setq p2 (polar p0 al hl)) (setq al (+ alf (/ pi 1.5))) (setq p3 (polar p0 al hl)) (setq al (+ al