;desenha uma folha A4 ao alto
;é necessário indicar um ponto de inserção
(defun c:a4a ()

(setq p1 (getpoint "qual o ponto de inserção" ))

(setq p2 (list
				(+ (car p1) 0.210)			;valor de x2
				(+ (par (cdr p1)) 0.297 )	;valor de y2
			)
		)





(command "rectang" p1 p2)
)