(defun c:portas ()
(setq p1 (getpoint "marque o ponto onde a 1a porta gira: "))
(setq p2 (getpoint "agora o ponto central onde a 1a porta bate: "))
(setq p3 (getpoint "colque o ponto onde a 1a porta abre: "))
(command "ucs" "n" "3" p1 p2 p3)
(command "arc" "c" p1t p2t "a" "90")
(Command "line" p1t (list (car p1t) (+ (cadr p1t) (distance p1t p2t))) "")
(command "ucs" "world")
(setq p1 (getpoint "identifique o ponto onde a 2a porta gira: "))
(setq p2 (getpoint "agora o ponto central onde a 2a porta bate: "))
(setq p3 (getpoint "por fim o ponto onde a 2a porta abre: "))
(command "ucs" "n" "3" p1 p2 p3)
(command "arc" "c" p1t p2t "a" "90")
(Command "line" p1t (list (car p1t) (+ (cadr p1t) (distance p1t p2t))) "")
(command "ucs" "world")
)