AUTOCAD关于Lisp语言的二次开发的实验报告Word文件下载.docx

1、3. CAD/CAM综合实验报告 （defun draw_ld（） （cond （and （= d 3） （= l 18） （= l 20） （= l 22） （= l 24） （= l 28） （= l 32） （= l 36） （= l 40） （= l 44） （= 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 （

2、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 （polar p4 ang t1） p8 （polar p3 ang t1） p6 （polar p8 （+ ang （* 0.5 pi） （* e 0.25） p7 （polar p3 （+ ang （* 0.5 pi） （* e 0.25） p9 （polar p0 （+ ang （* 0.5 pi） （/ d

3、 2.0） （setq p10 （polar p9 ang （- l b） p12 （polar p10 （+ ang （* 1.5 pi） （/ d 2.0） p11 （polar p12 （+ ang （* 0.5 pi） （* （/ d 2.0） 0.85） p14 （polar p11 ang b） p15 （polar p12 ang b） p16 （polar p15 （+ ang pi） （* 0.15 d） p13 （polar p16 （+ ang （* 0.5 pi） （* 0.5 d） （setq p17 （polar p15 ang （* 1.5 dk） （setq p

4、18 （polar p17 （+ ang （* 0.5 pi） （/ e 2.0） （setq p19 （polar p17 （+ ang （* 0.83 pi） （/ e 2.0） （setq p20 （polar p17 （+ ang （* 1.17 pi） （/ e 2.0） （setq p21 （polar p17 （+ ang （* 1.5 pi） （/ e 2.0） （setq p22 （polar p17 （+ ang （* 1.83 pi） （/ e 2.0） （setq p23 （polar p17 （+ ang （* 0.17 pi） （/ e 2.0） （setq r （

5、* 0.5 dk） （setq pc1 （polar p15 ang k） pc2 （polar p3 （+ ang pi） k） （setq pc3 （polar p17 （+ ang pi） （* 0.8 dk） pc4 （polar p17 ang （* 0.8 dk） pc5 （polar p17 （+ ang （* 0.5 pi） （* 0.8 dk） 2 pc6 （polar p17 （+ ang （* 1.5 pi） （* 0.8 dk） （setvar osmode 0） （command layer s中心线） line pc1 pc2 pc3 pc4 pc5 pc6 粗实线

6、pline p0 p1 p2 p3 （setq ss （entlast） mirror ss p9 p13 p14 p15 p10 p12 p13 p16 circle p17 r p18 p19 p20 p21 p22 p23 p18 细实线 p11 p14 虚线 p4 p5 p6 p7 p6 p8 4. 对话框程序如下：ld:dialoglabel=内六角圆柱头螺钉;:column:boxed_column label=图例imagekey=lldwidth=60;aspect_ratio=0.5;color=0; boxed_rowlabel=螺钉参数popup_listlabel=d:

7、list=M3nM4nM5nM6nM8nM10nM12nM14nM16nM20key=zhijinwidth=16;fixed_width=true; 螺栓长度l:5n6n8n10n12n16n20n25n30n35n40n45n50n55n60n65n70n80n90n100n110n13 20n130n140n150n160n180n200changdufixed_width=true; row width=60;height=4;ok_button;spacer;text label= 第 一 组 （GB/T70.1-2000）cancel_button; 对话框预览如下：5. 整个驱动

8、程序如下：（defun c:ld（ ） （setq load_id （load_dialog ld1.dcl（if （= load_id 0） （alert n加载失败!（progn （setq disp_id （new_dialog ld load_id） （if （not disp_id） （alert n无法正常显示对话框!（progn （action_tile accept（get_date）（done_dialog 1）（action_tile cancel（done_dialog 0）（showslide） （setq start_id （start_dialog） ） （if （

9、= start_id 1） （draw_ld） （unload_dialog load_id） ）;（defun get_date（） （setq id1 （atoi （get_tile ） （setq zj_list （list 345681012141620（setq d （atof （nth id1 zj_list） （setq id2 （atoi （get_tile （setq cd_list （list 2530354045505560657080901004 110120130140150160180200 ） （setq l （atof （nth id2 cd_list） ）;（

10、defun showslide（） （start_image （setq maxx （dimx_tile ） maxy （dimy_tile （fill_image 20 0 maxx maxy -2） （slide_image 20 0 maxx maxy ld.sld（end_image）;（defun draw_ld（ ） 5 四、十字槽沉头螺钉的设计 1. 通过分析得知可以以螺钉的直径d和长度l作为设计的主要参数，参数图样如下： 6 用对话框来实现，并采用下拉列表选择两个主要参数螺钉直径d和螺钉长度l,其它的参数在驱动程序中设定。3. 绘制螺钉的程序 （defun draw_hld（）

11、 p2 （polar p1 ang （* 0.07 dk） p3 （polar p0 ang （* 0.07 dk） （setq p4 （polar p3 （+ ang （* 0.5 pi） （/ m 2.0） p5 （polar p0 ang k） p6 （polar p0 ang cs） p7 （polar p5 （+ ang （* 0.5 pi） （* d 0.5） p8 （polar p5 ang a） p9 （polar p8 （+ ang （* 0.5 pi） （* （/ d 2.0） 0.85） p10 （polar p8 （+ ang （* 0.5 pi） （/ d 2.0） （setq p11 （polar p0 ang l） p12 （polar p11 （+ ang （* 0.5 pi） （* （/ d 2.0） 0.85） p13 （polar p11 （+ ang （* 0.5 pi） （/ d 2.0） （setq p14 （polar p11 ang （* 1.5 dk） p15 （polar p14 （+ ang （* 0.75 pi） （* m 0.5） p16 （polar p14 （+ ang （* 1.25 pi） （* m 0.5） p17