Macro realizada por Beatriz Santos, turma MIARQ 2A
Luís Romão Sistemas
Esta macro serve para criar uma seta de direção de uma escada com 6 pontos (2 que definem a seta e 4 que definem a linha da seta)

(defun c:setadirecao ()
 
(setq p1 (getpoint "\n Indique o ponto onde a seta começa a cabeça da seta "))
(setq p2 (getpoint "\n Indique o ponto onde a seta termina a cabeça da seta  "))
(setq p3 (getpoint "\n Indique o primeiro ponto da linha :"))
(setq p4 (getpoint "\n Indique o segundo ponto da linha :"))
(setq p5 (getpoint "\n Indique o terceiro ponto da linha :"))
(setq p6 (getpoint "\n Indique o quarto ponto da linha :"))
(command "pline" 

p1 "w" 0 (* (distance p1 p2) 0.20) 

(polar p1 (angle p1 p2) (/ (* (distance p1 p2) 2) 3) 4) 5))
"w" (* (distance p1 p2) 0.20) 0 
p2 "")
(command "pline" p2 p3 p4 p5"")
)