(defun RtoA (r) (/ (* r 180.0) pi));Radian To Angle
(defun AtoR (a) (* pi (/ a 180.0)));Angle To Radian
(and (setq i -1
ss1 (ssget '((0 . "LINE"))))
(while (setq a1 (ssname ss1 (setq i (1+ i))))
(setq a2 (entget a1)
p1 (cdr (assoc 10 a2))
p2 (cdr (assoc 11 a2))
a3 (angle p1 p2))
(cond ((or (>= (ator 120) a3 (ator 60))
(<= (ator 330) a3)
(>= (ator 30)a3))
(VA2))
((or (>= (ator 210) a3 (ator 150))
(>= (ator 300) a3 (ator 240)))
(HA2)))))
-大卫
页:
1
[2]