;; RCH.LSP
;; ROTATES CROSS-HAIRS (snapang) to match selected entity
;;
(defun C:RCH (/ r e p1 p2)
  (graphscr)
  (initget "Entity")
  (setq r
  (getangle "\nSnap rotation angle/<Entity>: "))
  (cond
     (  (numberp r)
      	(setvar "snapang" r))
     (  (and (or (not r) (eq r "Entity"))
             (setq e (entsel))
             (setq p1 (osnap (cadr e) "qui,end"))
             (setq p2 (osnap (cadr e) "qui,mid")))
        (setvar "snapang" (angle p1 p2)))
     (t (princ "\nInvalid selection.")))
  (princ)
)