[编程交流] 条件语句

(defun c:test ( / _line pt1 pt2 pt1a pt1b ang )
   (defun _line ( a b ) (entmakex (list (cons 0 "LINE") (cons 10 a) (cons 11 b))))
   
   (if
       (and
           (setq pt1 (getpoint "\nPt1: "))
           (setq pt2 (getpoint "\nPt2: " pt1))
       )
       (progn
           ;; 'getpoint' returns points in UCS
           ;; pt1 = UCS
           ;; pt2 = UCS
           ;; 'angle' returns the angle measured from
           ;; the X-Axis of the current construction plane.
           (setq ang (angle pt1 pt2))
           ;; Now to calculate the points using the polar function:
           (setq pt1a
               (polar
                   (polar pt1 (- ang (/ pi 2.)) 6.0)
                   ang
                   10.0
               )
           )
           (setq pt1b
               (polar
                   (polar pt1 (+ ang (/ pi 2.)) 6.0)
                   ang
                   10.0
               )
           )
           ;; Lines are defined in WCS, so now we transform all points
           ;; from UCS to WCS:
           (setq pt1  (trans pt1  1 0)
                 pt1a (trans pt1a 1 0)
                 pt1b (trans pt1b 1 0)
           )
           ;; Display the result:
           (_line pt1 pt1a)
           (_line pt1 pt1b)
       )
   )
   (princ)
)

(trans (getpoint "\nPoint: ") 1 0)

(defun AT:TriangleArea (a b c) ;; Returns area of three provided points ;; If returned value is negative, last point (c) exists on right side of a-b vector ;; Alan J. Thompson, 06.09.10 (/ (- (* (- (car b) (car a)) (- (cadr c) (cadr a)))       (* (- (cadr b) (cadr a)) (- (car c) (car a)))    )    2. ))