(defun C:Drucken (/ EP LU RO)
  (setq EP (getpoint))
  (setq LU '(-14.5 -11.5 0))
  (setq RO '(14.5 11.5 0))
  (command "rechteck" (mapcar '+ EP LU) (mapcar '+ EP RO))
  (princ)
  (command "zoom" "g")
  (command "zoom" "o" "l" "")
  (command "-plot"     "j"	   "Modell"    "HP Deskjet 5900 Series"
	   "A4"	       "m"	   "q"	       "n"	   "a"
	   "1:0.1"     "Zentrum"   "n"	       "."	   "j"
	   ""	       "n"	   "n"	       "j"
	  )
  (command "._erase" "l" "")
  (command "zoom" "v")
  (command "zoom" "v")
)