the solution is "LASTPOINT"
(while (eq (car (setq input (grread t 4 4))) 5)
(setq vs (/ (getvar "Viewsize") 60.0))
(setq snappoint (osnap (cadr input) "_per"))
(redraw)
(if snappoint
(progn (grdraw (polar snappoint 3.92699 vs) (polar snappoint 0.785398 vs) 2 0)
(grdraw (polar snappoint -0.785398 vs) (polar snappoint 2.35619 vs) 2 0)
(entmake
(list (cons 0 "LINE") (cons 10 (getvar "LASTPOINT")) (cons 11 snappoint))
)
(setvar "LASTPOINT" snappoint)
)
)
)