Estou criando um código para criar um desenho em 2D.
Só que ainda não descobri como criar linhas ou polilinhas no AutoLisp.
Se alguém tiver alguma uma ideia.
(defun C:RAMPA(/ b1 b2 b3 b4 c1 c2 c3 p1)
; AERODINÂMICA CONSULTORIA E SERVIÇOS LTDA.
; Criado por CECA
; Bordas
(setq b1 (getreal "\nLargura da Borda Interna da Primeira Seção? :"))
(setq b2 (getreal "\nLargura da Borda Externa da Primeira Seção? :"))
(setq b3 (getreal "\nLargura da Borda Externa da Segunda Seção? :"))
(setq b4 (getreal "\nLargura da Borda Externa da Terceira Seção? :"))
; Comprimentos
(setq c1 (getreal "\nComprimento da Primeira Seção? :"))
(setq c2 (getreal "\nComprimento da Segunda Seção? :"))
(setq c3 (getreal "\nComprimento da Terceira Seção? :"))
; Centro
(setq p1 (getpoint "\nSelecione o Centro do Heliponto :"))
; Cria pista de aproximação e decolagem de helipontos.
(command "line" p1 c1<0 c2<0 c3<0)
)
No command "line" p1 seria criar linhas retas com os dados fornecidos.
Agradeço desde já.