求大哥大姐们给个"深沟球轴承"的autolisp程序!先谢啦!

xb246

小弟刚开始学这个,编了几次都出错了.请高手们行行好啊,给个例子啊.先谢谢啦!!!!

aliang1755

up up

xb246

高手帮帮忙啊?呜呜!!

ZZXXQQ

xb246发表于2006-11-7 13:00:00回复：（xb246）求大哥大姐们给个\"深沟球轴承\"的autolisp程序!先谢啦! 小弟刚开始学这个,编了几次都出错了.请高手们行行好啊,给个例子啊.先谢谢啦!!!!

将你编的出错的程序放上来，让斑竹看看。

xb246

(defun c：zchl(  /  p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 pc1 a fx1 fx2 t1)
(setq d(getreal "\n输入轴承外径："))
(setq d1(getreal "\n输入轴承内径："))
 (setq b(getreal "\n输入轴承宽度："))
(if( > d 40)
 (setq t1 1.5)；t1为绘剖面线的线间距比例因子
 (setq t1 0.7)
)；if
(setq a(/(- d d1) 2.0)；此行起计算3个中间参数值
fx1( /  pi 2)
fx2( / (* 3 pi) 2)
)；setq
(setq p0(getpoint “\n输入图形插入点：”))；图形的基点
(setq p1(polar p0 fx1(/d 2.0))；此行起计算各点坐标
p2(polar p1 0 b)
pc1 (1ist(+ (car p0) (/b 2.0)) (+ (cadr p0) (/ (-d a) 2.0)))
pc2  (polar pc1 fx2 (- d a))
p9 (polar pc1(/(* pi 11) 6) (/ a 4))
p8 (polar pc1(/( * pi 7) 6) (/ a 4))
p4 (polar pc1(/ pi 6)(/ a 4))
p5 (polar pc1(/(* pi 5) 6) (/ a 4))
p3 (list(car p2)(cadr p4))
p6 (list(car p1)(cadr p5))
p7 (list(car p1)(cadr p8))
p10 (1ist(car p2)(cadr p9))
p11 (polar p2 fx2 a)
p12 (polar p1 fx2 a)
p13 (polar p0 fx2(/ d1 2.0))
p14 (polar p13 0 b)
p15 (polar p0 fx2( / d 2.0))
p16 (polar p15 0 b)
)；setq
(nlayer)；调用层设置函数
(command "zoom" "w"(polar p1 fx1 10) (polar p16 fx2 10)]
(command "layer" "s"1 "")；此行起绘制轴承上半部分
(command "line" p1 p2 p3 p4 "")
(command "arc" p4 "ce" pc1 "(/ a 4.0) " 120)
(command "line" p5 p6 p1 "")
(command "line" p6 p7 p8 "")
(command "arc" p8 "ce" pcl " (/ a 4.0) " 120)
(command "line" p9 p10 p11 p12 p7 "")
(command "line" p3 p10 "")
(command "arc" p9 "ce" pc1 p4)
(command "arc" p5 "ce" pc1 p8)
(command "mirror" "w" p1 p11 ""p0(polar p0 0 b) "")
；镜像绘出轴承下半部分
(command "line" p12 p13 "")
(command "line" p11 p14 "")
(command 'layer" "s" 2 "")
(command "hatch" "ansi31" t1 "0" "w" p1 p3 "")
；此行起绘剖面线
(command "hatch" "ausi31" t1 "90" "w" p7 p11 "")
(command "hatch" "ansi31" t1 "90" "w" p13 (polar p16 fx1 (/a 2)) "")
(command "hatch" "ansi31" t1 "0" "w" p15(polar p16 fx1(/a 2))"")
(command "layer" "s" 3 "")
(command “line" (polar p0 pi 2)(polar p0 0(+ b 2))"")
；绘轴承中心线
(command "line" (polar pc1 fx1(* 1.2 (/a 4.0)))
；此行起绘滚珠中心线
(polar pc1 fx2 (*1.2(/a 4.0)))"")
(command "line" (polar pc1 pi(* 1.2(/a 4.0)))
(polar pc1 0(* 1.2 (/ a 4.0)))"")
(command "line" (polar pc2 fx1(*1.2 (/a 4.0)))
(polar pc2 fx2(* 1.2 (/ a 4.0)))"")
(command "line" (polar pc2 pi( * 1.2(/ a 4.0)))
(polar pc2.0 (* 1.2(/a 4.0)))"")
(command "zoom" "a")
(command "regen")
)；defun
；图层设置
(defun nlayer()
  (command "layer" "n" 1 "c" 1 1 "1" "continuous" 1 "")
  (command "layer" "n" 2 "c" 2 2 "1" "dashed" 2 "")
  (command "layer" "n" 3 "c" 3 3 "1" "center2" 3 "")
  (command "layer" "n" 4 "c" 4 4 "1" "divide2" 4 "")
)
高手看看啊

不知道是那错了啊

谢谢啦啊!

ZZXXQQ

没什么，主要是写的不规范。
1、左括弧后面一定不要有空格；
2、左括弧后面的函数名后一定要有空格；
3、不能用全角的冒号、双引号和分号；
4、注意数字1和小写字母l的区别(list写成了1ist)，最好除必要的字符串提示外用大写字母，这样可以比较容易的区别字母和数字。
下面是调试通过的程序：

3. (defun c:zchl ( / p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 pc1 a fx1 fx2
4. t1)
5.   (setq d(getDIST "\n输入轴承外径："))
6.   (setq d1(getDIST "\n输入轴承内径："))
7.   (setq b(getDIST "\n输入轴承宽度："))
8.   (SETQ T1 (if (> d 40) 1.5 0.7));t1为绘剖面线的线间距比例因子
9.   (setq a (/ (- d d1) 2.0);此行起计算3个中间参数值
10. fx1 (/ pi 2)
11. fx2 (/ (* 3 pi) 2))
12.   (setq p0 (getpoint "\n输入图形插入点："));图形的基点
13.   (setq p1 (polar p0 fx1 (/ d 2.0));此行起计算各点坐标
14. p2 (polar p1 0 b)
15. pc1 (LIST (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0)))
16. pc2 (polar pc1 fx2 (- d a))
17. p9 (polar pc1 (/ (* pi 11) 6) (/ a 4))
18. p8 (polar pc1 (/ (* pi 7) 6) (/ a 4))
19. p4 (polar pc1 (/ pi 6)(/ a 4))
20. p5 (polar pc1 (/ (* pi 5) 6) (/ a 4))
21. p3 (list (car p2) (cadr p4))
22. p6 (list (car p1) (cadr p5))
23. p7 (list (car p1) (cadr p8))
24. p10 (list (car p2) (cadr p9))
25. p11 (polar p2 fx2 a)
26. p12 (polar p1 fx2 a)
27. p13 (polar p0 fx2 (/ d1 2.0))
28. p14 (polar p13 0 b)
29. p15 (polar p0 fx2 (/ d 2.0))
30. p16 (polar p15 0 b)
31.   )；setq
32.   (nlayer);调用层设置函数
33.   (command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10) "ZOOM" "0.9X")
34.   (command "layer" "s" 1 "");此行起绘制轴承上半部分
35.   (command "line" p1 p2 p3 p5 "")
36.   (command "arc" p4 "ce" pc1 "A" 120)
37.   (command "line" p4 p6 p1 "")
38.   (command "line" p6 p7 p9 "")
39.   (command "arc" p8 "ce" pc1 "A" 120)
40.   (command "line" p8 p10 p11 p12 p7 "")
41.   (command "line" p3 p10 "")
42.   (command "arc" p9 "ce" pc1 p4)
43.   (command "arc" p5 "ce" pc1 p8)
44.   (command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "")
45. ;镜像绘出轴承下半部分
46.   (command "line" p12 p13 "" "line" p11 p14 "")
47.   (command "layer" "s" 2 "")
48.   (command "hatch" "ansi31" t1 "0" "w" p1 p3 "")
49. ;此行起绘剖面线
50.   (command "hatch" "aNsi31" t1 "90" "w" p7 p11 "")
51.   (command "hatch" "aNsi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")
52.   (command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")
53.   (command "layer" "s" 3 "")
54.   (command "line" (polar p0 pi 2) (polar p0 0 (+ b 2)) "")
55. ;绘轴承中心线
56.   (command "line" (polar pc1 fx1 (* 1.2 (/ a 4.0)));此行起绘滚珠中心线
57.    (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")
58.   (command "line" (polar pc1 pi (* 1.2 (/ a 4.0))) (polar pc1 0 (* 1.2 (/ a 4.0))) "")
59.   (command "line" (polar pc2 fx1 (* 1.2 (/ a 4.0))) (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")
60.   (command "line" (polar pc2 pi (* 1.2 (/ a 4.0))) (polar pc2 0 (* 1.2 (/ a 4.0))) "")
61.   (command "zoom" "a" "regen")
62.   (PRINC)
63. );defun
64. (defun nlayer () ;图层设置
65.   (command "layer" "n" "1,2,3,4" "c" 1 "1" "c" 2 "2" "L" "dashed" 2
66.     "c" 3 "3" "L" "center2" 3 "c" 4 "4" "L" "divide2" 4 "" "LTSCALE" 10)
67. )

(defun c:zchl ( / p0 p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 pc1 a fx1 fx2 t1)   (setq d(getDIST "\n输入轴承外径："))   (setq d1(getDIST "\n输入轴承内径："))   (setq b(getDIST "\n输入轴承宽度："))   (SETQ T1 (if (> d 40) 1.5 0.7));t1为绘剖面线的线间距比例因子   (setq a (/ (- d d1) 2.0);此行起计算3个中间参数值 fx1 (/ pi 2) fx2 (/ (* 3 pi) 2))   (setq p0 (getpoint "\n输入图形插入点："));图形的基点   (setq p1 (polar p0 fx1 (/ d 2.0));此行起计算各点坐标 p2 (polar p1 0 b) pc1 (LIST (+ (car p0) (/ b 2.0)) (+ (cadr p0) (/ (- d a) 2.0))) pc2 (polar pc1 fx2 (- d a)) p9 (polar pc1 (/ (* pi 11) 6) (/ a 4)) p8 (polar pc1 (/ (* pi 7) 6) (/ a 4)) p4 (polar pc1 (/ pi 6)(/ a 4)) p5 (polar pc1 (/ (* pi 5) 6) (/ a 4)) p3 (list (car p2) (cadr p4)) p6 (list (car p1) (cadr p5)) p7 (list (car p1) (cadr p8)) p10 (list (car p2) (cadr p9)) p11 (polar p2 fx2 a) p12 (polar p1 fx2 a) p13 (polar p0 fx2 (/ d1 2.0)) p14 (polar p13 0 b) p15 (polar p0 fx2 (/ d 2.0)) p16 (polar p15 0 b)   )；setq   (nlayer);调用层设置函数   (command "zoom" "w" (polar p1 fx1 10) (polar p16 fx2 10) "ZOOM" "0.9X")   (command "layer" "s" 1 "");此行起绘制轴承上半部分   (command "line" p1 p2 p3 p5 "")   (command "arc" p4 "ce" pc1 "A" 120)   (command "line" p4 p6 p1 "")   (command "line" p6 p7 p9 "")   (command "arc" p8 "ce" pc1 "A" 120)   (command "line" p8 p10 p11 p12 p7 "")   (command "line" p3 p10 "")   (command "arc" p9 "ce" pc1 p4)   (command "arc" p5 "ce" pc1 p8)   (command "mirror" "w" p1 p11 "" p0 (polar p0 0 b) "") ;镜像绘出轴承下半部分   (command "line" p12 p13 "" "line" p11 p14 "")   (command "layer" "s" 2 "")   (command "hatch" "ansi31" t1 "0" "w" p1 p3 "") ;此行起绘剖面线   (command "hatch" "aNsi31" t1 "90" "w" p7 p11 "")   (command "hatch" "aNsi31" t1 "90" "w" p13 (polar p16 fx1 (/ a 2)) "")   (command "hatch" "ansi31" t1 "0" "w" p15 (polar p16 fx1 (/ a 2)) "")   (command "layer" "s" 3 "")   (command "line" (polar p0 pi 2) (polar p0 0 (+ b 2)) "") ;绘轴承中心线   (command "line" (polar pc1 fx1 (* 1.2 (/ a 4.0)));此行起绘滚珠中心线    (polar pc1 fx2 (* 1.2 (/ a 4.0))) "")   (command "line" (polar pc1 pi (* 1.2 (/ a 4.0))) (polar pc1 0 (* 1.2 (/ a 4.0))) "")   (command "line" (polar pc2 fx1 (* 1.2 (/ a 4.0))) (polar pc2 fx2 (* 1.2 (/ a 4.0))) "")   (command "line" (polar pc2 pi (* 1.2 (/ a 4.0))) (polar pc2 0 (* 1.2 (/ a 4.0))) "")   (command "zoom" "a" "regen")   (PRINC) );defun (defun nlayer () ;图层设置   (command "layer" "n" "1,2,3,4" "c" 1 "1" "c" 2 "2" "L" "dashed" 2     "c" 3 "3" "L" "center2" 3 "c" 4 "4" "L" "divide2" 4 "" "LTSCALE" 10) )

tcsl9621

你这程序绘图以前一定要记住关闭"捕捉"。否则不可能对。

qianglcq

对阿,上面的仁兄说的对,在进行参数绘图的时候一定要注意对象捕捉

qianglcq

当然你也可以使用一下下面的程序

注意轴承数据库没有完善,要检查一下哦

不要对你的设计工件产生致命影响哦

;;深沟球轴承绘制程序
;;Copyrignt Lin chengqiang 2006 for mengyang
(defun c:zc ()
  (setvar "cmdecho" 0)
  (prompt
    "\n-->本程序的轴承数据库还尚未完善,如果你已经将本代码进行修改或完善了
" )
  (prompt "\n-->轴承数据库请你将本段代码发送给我
")
  (setq p0 (getpoint "\n--> 指定轴承的安装位置:"))
  (command "purge" "a" "*" "n" "y")
  (command "ortho" "on")
  (command "osnap" "int,mid")
  (command "layer" "n" "MAIN" "c" "7" "MAIN" "")
  (command "layer" "n" "CENTER" "c" "1" "CENTER" "")
  (command "layer" "n" "DIM" "c" "5" "DIM" "")
  (command "layer" "n" "HIDD" "c" "3" "HIDD" "")
  (command "layer" "n" "HATCH" "c" "6" "HATCH" "")
  (command "layer" "n" "2" "c" "2" "2" "")
  (command "layer" "l" "hidden2" "HIDD" "")
  (command "layer" "l" "center2" "CENTER" "")
  (setq p1 (getpoint p0 "\n--> 指定轴承的旋转方向:"))
  (setq ang (angle p0 p1))
  (setq angci (* (/ 60.0 180.0) pi))
  (setq ang$ (* (/ 90.0 180.0) pi))
  (setq ang$$ (* (/ 180.0 180.0) pi))
  (setq mod (getstring "\n--> 指定轴承的型号:"))
  (cond
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6001")
     (setq d 12.0)
     (setq d1 28.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6002")
     (setq d 15.0)
     (setq d1 32.0)
     (setq b 9.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6003")
     (setq d 17.0)
     (setq d1 35.0)
     (setq b 10.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6004")
     (setq d 20.0)
     (setq d1 42.0)
     (setq b 12.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6005")
     (setq d 25.0)
     (setq d1 47.0)
     (setq b 12.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6006")
     (setq d 30.0)
     (setq d1 55.0)
     (setq b 13.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6007")
     (setq d 35.0)
     (setq d1 62.0)
     (setq b 14.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6008")
     (setq d 40.0)
     (setq d1 68.0)
     (setq b 15.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6009")
     (setq d 45.0)
     (setq d1 75.0)
     (setq b 16.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6010")
     (setq d 50.0)
     (setq d1 80.0)
     (setq b 16.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6011")
     (setq d 55.0)
     (setq d1 90.0)
     (setq b 18.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6012")
     (setq d 60.0)
     (setq d1 95.0)
     (setq b 18.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6200")
     (setq d 10.0)
     (setq d1 30.0)
     (setq b 9.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6201")
     (setq d 12.0)
     (setq d1 32.0)
     (setq b 10.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6202")
     (setq d 15.0)
     (setq d1 35.0)
     (setq b 11.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6203")
     (setq d 17.0)
     (setq d1 40.0)
     (setq b 11.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6204")
     (setq d 20.0)
     (setq d1 47.0)
     (setq b 14.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6205")
     (setq d 25.0)
     (setq d1 52.0)
     (setq b 15.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6206")
     (setq d 30.0)
     (setq d1 62.0)
     (setq b 16.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6207")
     (setq d 35.0)
     (setq d1 72.0)
     (setq b 17.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6208")
     (setq d 40.0)
     (setq d1 80.0)
     (setq b 18.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6209")
     (setq d 45.0)
     (setq d1 85.0)
     (setq b 19.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6210")
     (setq d 50.0)
     (setq d1 90.0)
     (setq b 20.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6211")
     (setq d 55.0)
     (setq d1 100.0)
     (setq b 21.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6212")
     (setq d 60.0)
     (setq d1 120.0)
     (setq b 22.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
    ((= mod "6000")
     (setq d 10.0)
     (setq d1 26.0)
     (setq b 8.0)
     (setq a (/ (- d1 d) 2.0))
    )
  )
  (SETQ SCALE (getvar "dimscale"))
  (setq q1 (polar p0 ang (/ d 2.0)))
  (setq q2 (polar q1 ang a))
  (setq q3 (polar q2 (- ang ang$) b))
  (setq q4 (polar q3 (+ ang ang$$) a))
  (command "osnap" "off")
  (command "layer" "s" "MAIN" "")
  (command "pline" q1 q2 q3 q4 q1 "")
  (setq l1 (expt a 2))
  (setq l2 (expt b 2))
  (setq ll (/ (sqrt (+ l1 l2))))
  (setq cang (angle q1 q3))
  (setq c1 (polar q1 cang (/ ll 2.0)))
  (setq cr (/ a 2.0))
  (command "circle" c1 "d" cr)
  (setq h1 (polar c1 (- ang (* (/ 60.0 180.0) pi)) (/ cr 2.0)))
  (setq h2 (polar c1 (+ ang (* (/ 60.0 180.0) pi)) (/ cr 2.0)))
  (setq h3 (polar c1 (+ ang (* (/ 120.0 180.0) pi)) (/ cr 2.0)))
  (setq h4 (polar c1 (- ang (* (/ 120.0 180.0) pi)) (/ cr 2.0)))
  (setq m1 (polar h1 (- ang (* (/ 90.0 180.0) pi)) b))
  (setq m2 (inters q3 q4 h1 m1 nil))
  (setq m3 (distance h1 m2))
  (setq h11 (polar h1 (- ang (* (/ 90.0 180.0) pi)) m3))
  (setq h12 (polar h2 (+ ang (* (/ 90.0 180.0) pi)) m3))
  (setq h13 (polar h3 (+ ang (* (/ 90.0 180.0) pi)) m3))
  (setq h14 (polar h4 (- ang (* (/ 90.0 180.0) pi)) m3))
  (command "ortho" "off")
  (command "pline" h1 h11 "")
  (command "pline" h2 h12 "")
  (command "pline" h3 h13 "")
  (command "pline" h4 h14 "")
  (setq ha1 (polar c1 ang (+ (/ cr 2.0) 1.0)))
  (setq
    ha2 (polar c1 (+ ang (* (/ 180.0 180.0) pi)) (+ (/ cr 2.0) 1.0))
  )
  (command "layer" "s" "hatch" "")
  (command "BHATCH" ha1 ha2 "p" "ANSI31" SCALE "0" "")
  (setq mi1 (polar p0 (+ ang (* (/ 90.0 180.0) pi)) 3))
  (setq mi2 (polar p0 (- ang (* (/ 90.0 180.0) pi)) (+ b 3)))
  (command "mirror" "c" q1 q3 "" mi1 mi2 "n")
  (command "layer" "s" "center" "")
  (command "line" mi1 mi2 "")
  (command "osnap" "int,nea")
  (command "osnap" "end,int,mid,cen,per,app")
)