;Macro feita para repetir o produto do comando offset pela quantitade pretendida de vezes
;Trabalho realizado por Cristiana Mendes e P.Tiago -freitas, turma 2A
;Sistemas de Representação Digital em Arquitetura
;Professor Luís Romão
;Mestrado Integrado em Arquitetura - Faculdade de Arquitetura de Lisboa


;nome do comando
(defun c:xset ()

(setq pontos2d (getvar 'osmode))

(setq p1 (getpoint "ponto 1?:" ))
(setq p2 (getpoint "ponto 2?:" ))
;(setq p3 (getpoint "direção" ))
(setq distancia (getreal "distancia"))
(setq nx (getint "numero de vezes?:'"))

(setvar 'osmode 0)
(command "line" p1 p2 "")

(repeat nx

(command "copy" "last" "" p1 (polar p1 (+ (angle p1 p2) (/ pi 2)) distancia))

)
(setvar 'osmode pontos2d)
)