(defun c:xerplot()
(setq curplot(getvar "tilemode"))
(if (= 1 curplot)
		(progn
		(command	"-plot"
				"y"
				"model"
				"xerox.pc3"
				"USER 1 (125.00 x 36.00 INCHES)"
				"inches"
				"landscape"
				"n"
				"extents"
				"1=25.4"
				"0.00,0.00"
				"y"
				"motorama.ctb"
				"y"
				"n"
				"n"
				"n"
				"y"
		)
		)
)
(if (= 0 curplot)
		(progn
		(command	"-plot"
				"y"
				"layout1"
				"xerox.pc3"
				"USER 1 (125.00 x 36.00 INCHES)"
				"inches"
				"landscape"
				"n"
				"extents"
				"1=25.4"
				"0.00,0.00"
				"y"
				"motorama.ctb"
				"y"
				"n"
				"n"
				"n"
				"n"
				"n"
				"y"
		)
		)
)
)
xerplot
(setq curplot nil)
quit
y