(defun c:s()
(setq ma1 (getpoint))
  (setq ma2 (getpoint))

(command "plot" "y" "model" "" "a4" "inches" "landscape" "no" "w"
     ma1 ma2 "fit" "center" "no" "monochrome.ctb" "yes" "wireframe" "no" "no" "yes" ))