;;;
;;;
;;;
;;;
;;;Sets sysvars SNAPANG and SNAPBASE from picked points
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-21-96
;;;>		   EDITED: 06-03-2005
;;;
(DEFUN c:ssnap ()
  (SETVAR "SNAPANG"
          (ANGLE (SETQ bsapt (upoint 1 "" "Base point" nil nil) ;_ end of UPOINT
                 ) ;_ end of setq
                 (upoint 1 "" "Point on either axis (snap 'per' to align with objects)" nil bsapt)
          ) ;_ end of ANGLE
  ) ;_ end of SETVAR
  (SETVAR "SNAPBASE" (LIST (CAR bsapt)(CADR bsapt)))
  (PRINC)
) ;_ end of DEFUN