;;;C:ANGL - place line at an angle to selection. Requires ROTX.LSP, UPOINT.LSP, UANGLE.LSP.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-14-93
;;;>		   EDITED: 05-06-2001
;;;
(defun C:ANGL ( / );e0ang e1ang e2ang pt2 andr vdis osmode celtype cecolor snapang)
       (setq aperture (getvar "APERTURE")
             osmode (getvar "OSMODE")
             celtype (getvar "CELTYPE")
             cecolor (getvar "CECOLOR")
             snapang (getvar "SNAPANG"))
       (setvar "CMDECHO" 0)
;       (setvar "OSMODE" 0)
       (setvar "APERTURE" 5)
       (setq pt1 (getpoint "\nPoint to Turn from"))
       (if rotx nil (load"rotx" "\nROTX.LSP not found! "))
       (rotx pt1)
;       (setvar "OSMODE" 512)
       (if upoint nil (load"upoint" "\nFile UPOINT.LSP not found! "))
       (setq pt2 (upoint 1 "" "Vector to Turn from" nil pt1))
;       (setvar "OSMODE" 0)
       (if uangle nil (load"uangle" "\nUANGLE.LSP not found! "))
       (setq e1ang (uangle 1 "" "Angle to Turn" nil pt1))
	     (setq vdis (distance pt1 pt2))
	     (setq e2ang (angle pt1 pt2))
	     (setq e0ang (+ e1ang e2ang))
	     (setq andr (strcat "@" (rtos vdis) "<" (angtos e0ang)))
	     (command ".line" pt1 andr "")
       (if (eq "(" (substr cecolor 3 1)) (setq cecolor (substr cecolor 1 1)))
       (setvar "APERTURE" aperture)
       (setvar "OSMODE" osmode)
       (setvar "SNAPANG" snapang)
       (command ".linetype" "s" celtype ""
                ".color" cecolor)
       (princ)
);defun C:ANGL