;Macro para fazer revestimento em borracha
;Ana Carolina de Sousa Bentes Baptista
;Numero Mecanografico: 20161271
;Turma: MIARQ2D
;Sistemas de Representacao Digital em Arquitetura
;Docente: Luis Romao
;2017/2018


(defun c:borracha ()
(setq ponto (getvar "osmode"))
(setvar "osmode" 1)

;partindo de um retangulo ja feito pede se que seja feita a selecao de dois pontos que sejam diagonais um ao outro dessa mesma figura
(setq p1 (getpoint "Qual o primeiro ponto? "))
(setq p3 (getpoint "Qual o segundo ponto? "))

;pede se que seja inserido o numero de linhas de preenchimento pretendidas
(setq nlinhas (getint "qual numero de linhas pretendido? "))
(setvar "osmode" 0)
(setq p2 (list (car p3) (cadr p1)))
(setq p4 (list (car p1) (cadr p3)))
(setq p5 (polar p1
                 (angle p1 p2)
                 (/ (- (car p3) (car p1)) (+ 1 nlinhas))))
(setq p6 (polar p4
                 (angle p1 p2)
                 (/ (- (car p3) (car p1)) (+ 1 nlinhas))))
(command "line" p5 p6 "")
(repeat (- nlinhas 1)
(command "copy" "l" "" p1 p5)
)

(setvar "osmode" ponto)
)