Linguagens de programação - Autolisp - Criação de um objeto tridimensional
Dados:
- Raio - 0.05
- Texto, DTEXTO - 0.04
- N vai ser N1 - vai ser sempre 2+1
- 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))))
- Salvar o ficheiro - 1234.lsp
- No Autocad
- APPLOAD e abrir o ficheiro lsp
- Escrever 1234 no Autocad e clicar no ecrã várias vezes
Comentários
Enviar um comentário