(defun C:LAY(FMT)
	(if (setq EFGPT (getpoint "\nEinfügepunkt angeben <0,0>:")) "Erhalten" (setq EFGPT '(0 0 0)))
	(if (= FMT "A0") 
		(progn
			(setq R1_A '(0 0 0))
			(setq R1_E '(1189 841 0))
		)
		(if (= FMT "A1")
			(progn
				(setq R1_A '(0 0 0))
				(setq R1_E '(841 594 0))
			)
			(if (= FMT "A2")
				(progn
					(setq R1_A '(0 0 0))
					(setq R1_E '(594 420 0))
				)
				(if (= FMT "A3")
					(progn
						(setq R1_A '(0 0 0))
						(setq R1_E '(420 297 0))
					)
					(progn
						(print "Sorry, unbekanntes Papierformat...")
						(quit)
						(princ)
					)
				)
			)
		)
	)
	
	(command "_rectang" (mapcar '+ EFGPT R1_A) (mapcar '+ EFGPT R1_E))
	(princ)
)