;;;Draws a line with current elevation for Z regardless of elevation of points snapped to.
(DEFUN c:nozline ()
  (SETQ lpt1 (GETPOINT "LINE From point: "))
  (SETQ lpt2 (GETPOINT "To point: "))
  (SETQ lpt1 (REVERSE (CDR (REVERSE lpt1))))
  (SETQ lpt2 (REVERSE (CDR (REVERSE lpt2))))
  (COMMAND ".line" lpt1 lpt2 "")
) ;_ end of defun

;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
 ***Don't add text below the comment!***|;