(defun sv (lado)
(setq pt1 (getpoint "ponto de origem?"))
(setq pt2 (list (+ lado (car pt1))(cadr pt1)))
(setq pt3 (list (car pt2)(+ lado (cadr pt2))))
(setq pt4 (list (car pt1)(cadr pt3)))
(command "pline" pt1 pt2 pt3 pt4 "c")
(command "line" pt1 pt3  "")
(command "line" pt2 pt4 "")
)