;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
(+ (car (cdr p1)) 0.297) ;valor de y2
)
)
(command "rectang" p1 p2)
)