(setq pt1 (polar p02 (- an pi) dis) pt2 (polar p02 an dis) pt1 (polar pt1 (+ an (* 0.5 pi)) dis) pt2 (polar pt2 (+ an (* 0.5 pi)) dis) pt3 (polar pt2 (- an (* 0.5 pi)) (* 2 dis)) pt4 (polar pt1 (- an (* 0.5 pi)) (* 2 dis)) pt (list pt1 pt2 pt3 pt4) ss1 (ssget "cp" pt '((8 . "C-T,c-t") (0 . "CIRCLE,MLINE,LWPOLYLINE"))) )
p02是一条直线的端点,an是直线的角度,dis是常量 |