二次开发深沟球autolisp编程

二次开发深沟球autolisp编程 ;外面的大长方形
(setq ptx2 (polar ptx1 0.0 (/ B 2)))
(setq px21 (polar ptx1 0.0 (+ 2 (/ B 2))))
(setq px22 (polar ptx1 pi (+ 2 (/ B 2))))
(setq ptx3 (polar ptx2 (/ pi 2) (/ D 2)))
(setq ptx4 (polar ptx3 pi B))
(setq ptx5 (polar ptx4 (-(/ pi 2)) D))
(setq ptx6 (polar ptx5 0.0 B))

;圆
(setq ptx7 (polar ptx1 (/ pi 2) (-(/ D 2)(/ A 2))))
(setq px23 (polar ptx7 0.0 (+ 2 (/ A 4))))
(setq px24 (polar ptx7 pi (+ 2 (/ A 4))))
(setq px25 (polar ptx7 (/ pi 2) (+ 2 (/ A 4))))
(setq px26 (polar ptx7 (-(/ pi 2)) (+ 2 (/ A 4))))

;两个横线
(setq ptx8 (polar ptx5 (/ pi 2) (- D A)))
(setq ptx9 (polar ptx6 (/ pi 2) (- D A)))
(setq px10 (polar ptx6 (/ pi 2) A))
(setq px11 (polar ptx5 (/ pi 2) A))
;与圆相连的四条线
(setq px12 (polar ptx7 (/ pi 6) (/ A 4))) ;右上
(setq px13 (polar ptx7 (* 5 (/ pi 6)) (/ A 4))) ;左上
(setq px14 (polar ptx7 (-(/ pi 6)) (/ A 4))) ;右下
(setq px15 (polar ptx7 (-(* 5 (/ pi 6))) (/ A 4)));左下
(setq px16 (* 3 (/ A 8)))
(setq px17 (polar ptx3 (-(/ pi 2)) px16));右上
(setq px18 (polar ptx4 (-(/ pi 2)) px16));左上
(setq px19 (polar ptx9 (/ pi 2) px16)) ;右下
(setq px20 (polar ptx8 (/ pi 2) px16)) ;左下
(command "layer" "s" "csx" "")
(command "LINE" ptx8 ptx9 "") ;