AUTO-CAD关于Lisp语言的二次开发的实验报告.doc

CAD/CAM综合实验 实验目的: CAD/CAM是一门多学科综合性应用新技术，发展十分迅速，应该十分广泛。CAD/CAM综合性实验是要针对一种具体的CAD软件通过二次开发了解从参化设计到菜单设计到对话框定义和驱动的全过程。实验项目要求在此基础上进行零件类的应用程序设计，在这一过程中，了解相关软件开发环境和程序设计的一般过程。 本综合性实验选用了AutoCAD软件进行高级应用开发，利用其内部嵌入的LISP语言环境，进行参数化设计，并完成相关的界面设计和驱动。 1．加深对讲授内容的理解，掌握计算机辅助设计的重要方法； 2．了解和熟悉机械CAD技术所能完成的主要工作和手段； 3．学会如何在该系统上编辑AutoLISP程序，如何在AutoCAD中调用、调试和运行AutoLISP程序,并通过运行AutoLISP程序,初步了解AutoLISP程序的特点； 4．掌握参数化设计的一般方法和基本步骤，加深对参数化设计的一般要求的理解，体会参数化程序在CAD中的重要性； 5．掌握Auto CAD对话框的组成和Auto CAD对话框构件的属性，熟悉DCL对话框设计原则与规范，通过对常用轴段的对话框设计，加深对DCL的理解和运用； 6． 掌握对话框驱动程序及图形参化程序驱动程序的设计； 7．学会上机调试程序。 实验内容： 1．内六角圆柱头螺钉（GB/T70.1—20000）的参数化设计； 2．十字槽沉头螺钉（GB/T819.1—2000）的参数化设计。 三、内六角圆柱头螺钉的设计 1. 对内六角圆柱头螺钉类进行结构分析，确定参数化设计方案，并画出参数图样 通过分析得知可以以螺钉的直径d和长度l作为设计的主要参数，参数图样如下： 2. 确定界面方案，采用菜单组织形式还是对话框形式 采用点击菜单后出来对话框的形式，从而选择主要参数，其它参数在程序中设定。 3. 设计参数化程序 (defun draw_ld() (cond ((and (= d 3) (= l 18) (= l 30)) (setq p 0.5 b 18 dk 5.5 k 3 t1 1.3 s 2.5 e 2.87 r 0.1)) ((and (= d 4) (= l 20) (= l 40)) (setq p 0.7 b 20 dk 7 k 4 t1 2 s 3 e 3.44 r 0.2)) ((and (= d 5) (= l 22) (= l 50)) (setq p 0.8 b 22 dk 8.5 k 5 t1 2.5 s 4 e 4.58 r 0.2)) ((and (= d 6) (= l 24) (= l 60)) (setq p 1 b 24 dk 10 k 6 t1 3 s 5 e 5.72 r 0.25)) ((and (= d 8) (= l 28) (= l 80)) (setq p 1.25 b 28 dk 13 k 8 t1 4 s 6 e 6.86 r 0.4)) ((and (= d 10) (= l 32) (= l 100)) (setq p 1.5 b 32 dk 16 k 10 t1 5 s 8 e 9.15 r 0.4)) ((and (= d 12) (= l 36) (= l 120)) (setq p 1.75 b 36 dk 18 k 12 t1 6 s 10 e 11.43 r 0.6)) ((and (= d 14) (= l 40) (= l 140)) (setq p 2 b 40 dk 21 k 14 t1 7 s 12 e 13.72 r 0.6)) ((and (= d 16) (= l 44) (= l 160)) (setq p 2 b 44 dk 24 k 16 t1 8 s 14 e 16.00 r 0.6)) ((and (= d 20) (= l 52) (= l 200)) (setq p 2.5 b 52 dk 30 k 20 t1 10 s 17 e 19.44 r 0.8)) (t (alert 不存在此类螺栓!) (exit))) (setq p0 (getpoint \n请输入基点:)) (setq ang (getangle \n请输入旋转角:)) (setq p1 (polar p0 (+ ang (* 0.5 pi)) (/ dk 2.0)) p2 (polar p1 (+ ang pi) k) p3 (polar p0 (+ ang pi) k)) (setq p4 (polar p3 (+ ang (* 0.5 pi)) (/ e 2.0)) p5 (