You just want to draw a line at each vertex? Then just need a little modification of first routine:
(princ (cdr (nth n e)))
(setq pt (cdr (nth n e)))
(setq j2 (polar pt (dtr 90) 50))
(command "Line" pt j2 "")
And, include the 'dtr' defun with the first routine.