Aula 6 . 29/03/2022
Introdução a Programação e a definição, Introdução ao Autolisp.
Exercício 3 - Introdução ao Autolisp
Comandos Utilizados e Resumo da Aula:
- DTM - selecionou a área com pontos - estão 2900 pontos
- A professora fez um teste de uma rotina de Autolips de um quarteirão da Baixa de Lisboa
- Criámos uma rotina para etiquetar automaticamente os números e a legenda dos objetos
- Dados:
Raio - 0.05
Texto, DTEXTO - 0.04
- N vai ser N1 - vai ser sempre 2+1
- Abrimos o notepad
(defun c:1234 ( )
(SETQ RAIO 0.05)
(SETQ DTEXTO 0.04)
(SETQ N1)
(WHILE
(SETQ PT1 (GETPOINT "INSIRA CENTRO DO NUMERO"))
(COMMAND "CIRCLE" PT1 RAIO)
(COMMAND "TEXT" "J" "M" PT1 DTEXTO 0 N " " )
(SETQ N (+ N 1))
)
)
- Salvámos o ficheiro - 1234.lsp
- Abrimos o Autocad
- APPLOAD e escolhemos o ficheiro que guardámos
- Escrevemos 1234 no Autocad e fomos clicando no ecrã várias vezes