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

1、 CAD/CAM综合实验报告CAD/CAM综合实验1、 实验目的:CAD/CAM是一门多学科综合性应用新技术，发展十分迅速，应该十分广泛。CAD/CAM综合性实验是要针对一种具体的CAD软件通过二次开发了解从参化设计到菜单设计到对话框定义和驱动的全过程。实验项目要求在此基础上进行零件类的应用程序设计，在这一过程中，了解相关软件开发环境和程序设计的一般过程。 本综合性实验选用了AutoCAD软件进行高级应用开发，利用其内部嵌入的LISP语言环境，进行参数化设计，并完成相关的界面设计和驱动。1加深对讲授内容的理解，掌握计算机辅助设计的重要方法；2了解和熟悉机械CAD技术所能完成的主要工作和手段；3

2、学会如何在该系统上编辑AutoLISP程序，如何在AutoCAD中调用、调试和运行AutoLISP程序,并通过运行AutoLISP程序,初步了解AutoLISP程序的特点；4掌握参数化设计的一般方法和基本步骤，加深对参数化设计的一般要求的理解，体会参数化程序在CAD中的重要性；5掌握Auto CAD对话框的组成和Auto CAD对话框构件的属性，熟悉DCL对话框设计原则与规范，通过对常用轴段的对话框设计，加深对DCL的理解和运用；6 掌握对话框驱动程序及图形参化程序驱动程序的设计；7学会上机调试程序。2、 实验内容：1内六角圆柱头螺钉（GB/T70.120000）的参数化设计； 2十字槽沉头螺

3、钉（GB/T819.12000）的参数化设计。三、内六角圆柱头螺钉的设计 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)(a

4、nd (= 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

5、) (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

6、 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 a

7、ng (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 (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) (

8、* e 0.25) p9 (polar p0 (+ ang (* 0.5 pi) (/ d 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

9、) (setq p17 (polar p15 ang (* 1.5 dk) (setq p18 (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 (pol

10、ar p17 (+ ang (* 0.17 pi) (/ e 2.0) (setq r (* 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) pc6 (polar p17 (+ ang (* 1.5 pi) (* 0.8 dk)(setvar "osmode" 0)

11、(command "layer" "s" "中心线" "") (command "line" pc1 pc2 "") (command "line" pc3 pc4 "") (command "line" pc5 pc6 "") (command "layer" "s" "粗实线" "") (command "

12、;pline" p0 p1 p2 p3 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p9 p13 p14 p15 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p10 p12

13、"") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p13 p16 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "circle" p17 r "") (command "plin

14、e" p18 p19 p20 p21 p22 p23 p18 "") (command "layer" "s" "细实线" "") (command "line" p11 p14 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "layer" "s" "

15、;虚线" "") (command "pline" p4 p5 p6 p7 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "line" p6 p8 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") )4. 设计界

16、面实现程序对话框程序如下：ld:dialoglabel="内六角圆柱头螺钉" :column:boxed_column label="图例" :imagekey="lld"width=60;aspect_ratio=0.5;color=0; :boxed_rowlabel="螺钉参数":popup_listlabel="螺钉参数"d:"list="M3nM4nM5nM6nM8nM10nM12nM14nM16nM20"key="zhijin"wid

17、th=16;fixed_width=true;:popup_listlabel="螺栓长度l:"list="5n6n8n10n12n16n20n25n30n35n40n45n50n55n60n65n70n80n90n100n110n120n130n140n150n160n180n200"key="changdu"width=16;fixed_width=true; :row width=60;fixed_width=true;height=4;ok_button;spacer; :text label=" 第 一 组 （GB

18、/T70.1-2000）"cancel_button; 对话框预览如下： 5. 联系参数化程序和界面程序，形成完整的软件体系，并调试所有程序，直到通过整个驱动程序如下：(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无法正常显示对话框!

19、") (progn (action_tile "accept" "(get_date)(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (showslide) (setq start_id (start_dialog) ) (if (= start_id 1) (draw_ld) (unload_dialog load_id);(defun get_date() (setq id1 (atoi (get_tile "zhijin

20、") (setq zj_list (list "3" "4" "5" "6" "8" "10" "12" "14" "16" "20") (setq d (atof (nth id1 zj_list) (setq id2 (atoi (get_tile "changdu") (setq cd_list (list "5" "6"

21、 "8" "10" "12" "16" "25" "30" "35" "40" "45" "50" "55" "60" "65" "70" "80" "90" "100" "110" "120" "130&qu

22、ot; "140" "150" "160" "180" "200" ) (setq l (atof (nth id2 cd_list) );(defun showslide() (start_image "lld") (setq maxx (dimx_tile "lld") maxy (dimy_tile "lld") (fill_image 20 0 maxx maxy -2) (slide_image 20 0 maxx maxy

23、"ld.sld") (end_image);(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

24、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

25、(= 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) (&

26、lt;= 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 (p

27、olar 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 2.0) (setq p10 (polar p9 ang (- l b) p12 (polar p10 (+ ang (* 1.5 pi) (/ d 2.0) p11 (polar p12 (+ ang

28、(* 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 p18 (polar p17 (+ ang (* 0.5 pi) (/ e 2.0) (setq p19 (polar p17 (+ ang (* 0.83 pi) (/ e 2.0) (setq p20 (

29、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 (* 0.5 dk)(setq pc1 (polar p15 ang k) pc2 (polar p3 (+ ang pi) k) (setq pc3 (polar p17 (+ ang pi) (* 0.8

30、 dk) pc4 (polar p17 ang (* 0.8 dk) pc5 (polar p17 (+ ang (* 0.5 pi) (* 0.8 dk) pc6 (polar p17 (+ ang (* 1.5 pi) (* 0.8 dk)(setvar "osmode" 0) (command "layer" "s" "中心线" "") (command "line" pc1 pc2 "") (command "line" pc3

31、 pc4 "") (command "line" pc5 pc6 "") (command "layer" "s" "粗实线" "") (command "pline" p0 p1 p2 p3 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline&quo

32、t; p9 p13 p14 p15 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p10 p12 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p13 p16 "")

33、(setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "circle" p17 r "") (command "pline" p18 p19 p20 p21 p22 p23 p18 "") (command "layer" "s" "细实线" "") (command "line" p

34、11 p14 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "layer" "s" "虚线" "") (command "pline" p4 p5 p6 p7 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2

35、"") (command "line" p6 p8 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") );四、十字槽沉头螺钉的设计 1. 对内六角圆柱头螺钉类进行结构分析，确定参数化设计方案，并画出参数图样通过分析得知可以以螺钉的直径d和长度l作为设计的主要参数，参数图样如下：2. 确定界面方案，采用菜单组织形式还是对话框形式用对话框来实现，并采用下拉列表选择两个主要参数螺钉直径d和螺钉长度l,其它的参数在驱

36、动程序中设定。3. 设计参数化程序绘制螺钉的程序：(defun draw_hld() (setq p0 (getpoint "n请输入基点:") (setq ang (getangle "n请输入旋转角:") (setq p1 (polar p0 (+ ang (* 0.5 pi) (/ dk 2.0) 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

37、 (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

38、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 (polar p14 (+ ang (* 1.75 pi) (* m 0.5) p18 (polar p14 (+ ang (* 0.25 pi) (* m 0.5) (setq r (* 0.5 dk)(setq pc1 (polar p11 ang k) pc2 (polar p0 (+ ang pi) k) (setq pc3 (polar p14

39、 (+ ang pi) (* 0.65 dk) pc4 (polar p14 ang (* 0.65 dk)pc5 (polar p14 (+ ang (* 0.5 pi) (* 0.65 dk)pc6 (polar p14 (+ ang (* 1.5 pi) (* 0.65 dk)(setvar "osmode" 0) (command "layer" "s" "中心线" "") (command "line" pc1 pc2 "") (command

40、"line" pc3 pc4 "") (command "line" pc5 pc6 "") (command "layer" "s" "粗实线" "") (command "pline" p0 p1 p2 p3 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (com

41、mand "pline" p2 p7 p5 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p7 p13 p11 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "pline" p8 p1

42、0 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "circle" p14 r "") (command "line" p15 p17 "") (command "line" p16 p18 "") (command "layer" "s" "细实线"

43、; "") (command "pline" p7 p9 p12 "") (setq ss (entlast) (command "mirror" ss "" pc1 pc2 "") (command "layer" "s" "虚线" "") (command "line" p4 p6 "") (setq ss (entlast) (command &quo

44、t;mirror" ss "" pc1 pc2 "") );4. 设计界面实现程序对话框的程序：ld:dialoglabel="十字槽沉头螺钉" :column :boxed_columnlabel="图例":imagekey="cld"width=60;aspect_ratio=0.5;color=0; :boxed_rowlabel="螺栓类型"width=60;fixed_width=true;height=3; :radio_button label=&qu

45、ot;H"key="h"value=0;alignment=centered; :radio_button label="Z"key="z"value=0;alignment=centered; :boxed_rowlabel="螺钉参数" :popup_listlabel="螺钉公称直径的d:"list="M1.6nM2nM2.5nM3nM4nM5nM6nM8nM10" key="zhijin"width=16;fixed_width=true

46、; :popup_listlabel="螺栓长度l:"list="3n4n5n6n8n10n12n(14)n16n20n25n30n35n40n45n50n(55)n60" key="changdu"width=16;fixed_width=true; :rowwidth=60;fixed_width=true;height=4;ok_button;spacer; :textlabel=" 第 一 组 （GB/T819.1-2000）"cancel_button;5. 联系参数化程序和界面程序，形成完整的软件体系，

47、并调试所有程序，直到通过整个驱动程序如下：(defun c:ld() (setq load_id(load_dialog "cld.dcl") (if (<= load_id 0) (alert "n无法加载dcl!") (progn (setq disp_id (new_dialog "ld" load_id) (if (not disp_id) (alert "n无法正常显示对话框图") (progn (action_tile "accept" "(get_date)(don

48、e_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (action_tile "h" "(setq h 1)") (action_tile "z" "(setq z 1)") (showslide) (setq start_id (start_dialog) (if (= start_id 1) (draw_ld) (unload_dialog load_id) );(defun get_date() (se

49、tq id1 (atoi (get_tile "zhijin") (setq zj_list (list "1.6" "2" "2.5" "3" "4" "5" "6" "8" "10") (setq d (atof (nth id1 zj_list) (setq id2 (atoi (get_tile "changdu") (setq cd_list (list "

50、3" "4" "5" "6" "8" "10" "12" "14" "16" "20" "25" "30" "35" "40" "45" "50" "55" "60") (setq l (atof (nth id2 cd_list);(defun s

51、howslide() (start_image "cld") (setq maxx (dimx_tile "cld") maxy (dimy_tile "cld") (fill_image 0 0 maxx maxy -2) (slide_image 0 0 maxx maxy "cld.sld") (end_image);(defun draw_ld() (cond (and (= d 1.6) (= h 1) (<= l 16) (> l 3) (setq p 0.35 a 0.7 b 25 dk

52、3 k 1 r 0.4 x 0.9 m 1.6 cs 0.9)(and (= d 1.6) (= z 1) (<= l 16) (> l 3) (setq p 0.35 a 0.7 b 25 dk 3 k 1 r 0.4 x 0.9 m 1.6 cs 0.95)(and (= d 2) (= h 1) (<= l 20) (> l 3) (setq p 0.4 a 0.8 b 25 dk 3.8 k 1.2 r 0.5 x 1 m 1.9 cs 1.2)(and (= d 2) (= z 1) (<= l 20) (> l 3) (setq p 0.4 a

53、0.8 b 25 dk 3.8 k 1.2 r 0.5 x 1 m 1.9 cs 1.2)(and (= d 2.5) (= h 1) (<= l 25) (> l 3) (setq p 0.45 a 0.9 b 25 dk 4.7 k 1.5 r 0.6 x 1.1 m 2.9 cs 1.8)(and (= d 2.5) (= z 1) (<= l 25) (> l 3) (setq p 0.45 a 0.9 b 25 dk 4.7 k 1.5 r 0.6 x 1.1 m 2.8 cs 1.75)(and (= d 3) (= h 1) (<= l 30) (&

54、gt; l 4) (setq p 0.5 a 1 b 25 dk 5.5 k 1.65 r 0.8 x 1.25 m 3.2 cs 2.1)(and (= d 3) (= z 1) (<= l 30) (> l 4) (setq p 0.5 a 1 b 25 dk 5.5 k 1.65 r 0.8 x 1.25 m 3 cs 2)(and (= d 4) (= h 1) (<= l 40) (> l 5) (setq p 0.7 a 1.4 b 38 dk 8.4 k 2.7 r 1 x 1.75 m 4.6 cs 2.6)(and (= d 4) (= z 1) (&

55、lt;= l 40) (> l 5) (setq p 0.7 a 1.4 b 38 dk 8.4 k 2.7 r 1 x 1.75 m 4.4 cs 2.5)(and (= d 5) (= h 1) (<= l 50) (> l 6) (setq p 0.8 a 1.6 b 38 dk 9.3 k 2.7 r 1.3 x 2 m 5.2 cs 3.2)(and (= d 5) (= z 1) (<= l 50) (> l 6) (setq p 0.8 a 1.6 b 38 dk 9.3 k 2.7 r 1.3 x 2 m 4.9 cs 3.05)(and (= d

56、 6) (= h 1) (<= l 60) (> l 8) (setq p 1 a 2 b 38 dk 11.3 k 3.3 r 1.5 x 2.5 m 6.8 cs 3.5)(and (= d 6) (= z 1) (<= l 60) (> l 8) (setq p 1 a 2 b 38 dk 11.3 k 3.3 r 1.5 x 2.5 m 6.6 cs 3.45)(and (= d 8) (= h 1) (<= l 60) (> l 10) (setq p 1.25 a 2.5 b 38 dk 15.8 k 4.65 r 2 x 3.2 m 8.9 c

57、s 4.6)(and (= d 8) (= z 1) (<= l 60) (> l 10) (setq p 1.25 a 2.5 b 38 dk 15.8 k 4.65 r 2 x 3.2 m 8.8 cs 4.6)(and (= d 10) (= h 1) (<= l 60) (> l 12) (setq p 1.5 a 3 b 38 dk 18.3 k 5 r 2.5 x 3.8 m 10 cs 5.7)(and (= d 10) (= h 1) (<= l 60) (> l 12) (setq p 1.5 a 3 b 38 dk 18.3 k 5 r

58、2.5 x 3.8 m 9.8 cs 5.56)(t (alert "不存在此类螺栓!") (exit) );(defun draw_hld() (setq p0 (getpoint "n请输入基点:") (setq ang (getangle "n请输入旋转角:") (setq p1 (polar p0 (+ ang (* 0.5 pi) (/ dk 2.0) p2 (polar p1 ang (* 0.07 dk) p3 (polar p0 ang (* 0.07 dk) (setq p4 (polar p3 (+ ang (*

59、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 (pola

60、r 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 (polar p14 (+ ang (* 1.75 pi) (* m 0.5) p18 (polar p14 (+ ang (* 0.25 pi) (* m 0.5)(setq r (* 0.5 dk)(setq pc1 (polar p11 ang k) pc2 (polar p0 (+ ang pi) k)(setq pc3 (polar p14 (+ ang pi) (* 0.65 dk) pc4 (polar p14 ang (* 0.65 dk) pc5 (polar p14 (+ ang (* 0.5 pi) (* 0.65 dk) pc6 (polar p14 (+ ang (* 1.5 pi) (* 0.65 dk)(setvar "osmode" 0) (command "layer" &quo