[编程交流] 按点偏移

(defun c:aa (/ off pt1 pt2 pt3 ang)
 ;; Tharwat - 20.Sep.2016        ;;
 (if (setq off (getdist "\nSpecify offset distance :"))
   (while (and (setq pt1 (getpoint "\n1st point :"))
               (setq pt2 (getpoint "\n2nd point :" pt1))
               (setq pt3 (getpoint "\nSpecify offset side :"))
               (setq ang (angle pt1 pt2))
               )
     (setq ang (if (minusp (sin (- ang (angle pt2 pt3))))
                 (+ ang (* pi 0.5))
                 (- ang (* pi 0.5))
                 )
           )
     (entmakex (list '(0 . "LINE")
                     (cons 10 (trans (polar pt1 ang off) 1 0))
                     (cons 11 (trans (polar pt2 ang off) 1 0)))))
   )
 (princ)
 )