(defun C:D2 (/ EP LU RO)
   (setq EP (getpoint))
   (setq LU '(-21 -14.5 0))
   (setq RO '(21 14.5 0))
   (command "rechteck" (mapcar '+ EP LU) (mapcar '+ EP RO))
   (princ)
   (command "zoom" "g")
   (command "zoom" "o" "l" "")
   (command "-plot"
	    "j"
	    "Modell"
	    "\\\\t3423\\HP Deskjet 9800 Series"
	    "A3"
	    "m"
	    "q"
	    "n"
	    "a"
	    "1:0.1"
	    "Zentrum"
	    "n"
	    "."
	    "j"
	    ""
	    "n"
	    "n"
	    "j"
   ) ;_ end of command
   (command "._erase" "l" "")
   (command "zoom" "v")
   (command "zoom" "v")
) ;_ end of defun
;|«Visual LISP© Format Options»
(200 3 40 2 T "end of " 100 9 0 0 nil T T nil T)
;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;