[编程交流] 弧小于180度

(if (< pi (LM:IncludedAngle cen p1 p2))
   (setq tmp p1 p1 p2 p2 tmp)
)
(entmake
   (list
      '(0 . "ARC")
       (cons 10 cen)
       (cons 40 (distance cen p1))
       (cons 50 (angle cen p1))
       (cons 51 (angle cen p2))
   )
)
;; Included Angle  -  Lee Mac
;; Returns the included angle of an arc
;; with center cen and start & end points p1,p2
(defun LM:IncludedAngle ( cen p1 p2 )
   (rem (+ pi pi (- (angle cen p2) (angle cen p1))) (+ pi pi))
)

(defun arc3p (c p1 p2 / r a1 a2 rev)
 (setq r   (distance c p1)
       a1  (angle c p1)
       a2  (angle c p2)
       rev ((lambda (a1 a2 / u)
              (if (minusp (setq u (- a2 a1)))
                (setq u (+ u (* 2 pi)))
              )
              (= u (rem u pi))
            )
             a1
             a2
           )
 )
 (entmake
   (list
     '(0 . "ARC")
     (cons 10 c)
     (cons 40 r)
     (cons 50 (if rev a1 a2))
     (cons 51 (if rev a2 a1))
   )
 )
)