(defun myerr (s)

(if (/= s "Function cancelled")
(princ (strcat "\nError: " s))
)
(setq *error* olderr)
(setvar "cmdecho" 1)
(setvar "highlight" 1)
(setvar "blipmode" 1)
(prin1)
)
(defun c:PIKSNAP (/ entline elist angrad angdeg)
(setq olderr *error* *error* myerr)
(setvar "cmdecho" 0)
(setq entline (entsel "\n Pick Line: "))
(if entline
(setq elist (entget (car entline))
angrad (angle (cdr (assoc 11 elist)) (cdr (assoc 10 elist)))
)
(setq angrad (getangle "\n Enter angle: "))
)
(setq angdeg (/ (* 180 angrad) pi))
(command "snap" "r" "" angdeg)
(command "snap" "off")
(princ)
)