;Place vertical line @ MH sta. and invert for sewer profile design.
(defun C:MHD ( / pt1)
(while												;Continue Function until null input
  (setq pt1 (upoint 0 "" "\nSTATION and INVERT OUT " nil nil))  					;Get MH STA and INV OUT 
  (command ".line" pt1 "@0,140" "")
);while
);defun