Modelação Paramétrica e Prototipagem Digital em Design: Introdução à utilização da linguagem de Programação Autolisp: Xadrez

Aula de 8-11-2016 e 15-11-2016

Criação: Xadrez
Programas utilizados: Autocadd (A) e Notepad++ (N)

Explicação por passos:
Passo 1N- Abrir um novo ficheiro Notepad++
Passo 2N- Copiar, no site do docente, a ligação "xad_inicio.Lsp" e colar no Notepad++
Passo 3A- Comando Erase All (enter)
Passo 4A- Comando VPoint (enter) para abrir a tabela
Passo 5A- Escrever "315.0" para X_axis e "30.0" para XY plane (OK)
Passo 6A- Comando Zoom Extand (enter)
Passo 7A- Comando Loft (enter)
Passo 8A- Seleccionar os três círculos de baixo para cima (enter)
Passo 9A- Comando Shademode (enter)
Passo 10A- Clicar na opção "x-ray" (enter)
Passo 11N- Ir guardando o ficheiro Notepad++ no formato Lisp Processing Language File
Passo 12N- Abrir novo ficheiro Notepad++
Passo 13N- Copiar, no site do docente, a ligação "sel_auto.Lsp" e colar no Notepad++
Passo 14N- Adicionar uma linha entre a terceira e a quarta (o que está escrito na teceira passa para a quarta linha e adiante)
Passo 15N- Escrever "(guardar)" na terceira linha
Passo 16N- Adicionar uma linha entre a quinta e a sexta (o que está escrito na sexta passa para a sétima linha e adiante)
Passo 17N- Escrever "(guardar)" na sexta linha
Passo 18N- Adicionar uma linha entre a sétima e a oitava (o que está escrito na oitava passa para a nona linha e adiante)
Passo 19N- Escrever "(guardar)" na oitava linha
Passo 20N- Adicionar uma linha entre a oitava e a nona (o que está escrito na nona passa para a décima linha e adiante)
Passo 21N- Escrever "(solido)" na nona linha
Passo 22N- Adicionar uma linha entre a segunda e a terceira (o que está escrito na terceira passa para a quarta linha e adiante)
Passo 23N- Escrever "(setq nu 0)" na terceira linha
Passo 24N- Voltar a guardar o ficheiro
Passo 25A- Comando AppLoad (enter)
Passo 26A- Seleccionar o ficheiro e clicar no botão "Load", em seguida no botão "Close"
Passo 27A- Comando Xad (enter)
Passo 28A- Colocar onde for pretendido

...Continuação...

Passo 29N- Abrir o ficheiro novamente
Passo 30N- Copiar para o ficheiro o código do site do professor
Passo 31N- Alterar o que estava e escrever "(command "circle" (list 0 (valor 2) 21) (valor5))" na oitava linha
Passo 32N- Guardar o ficheiro
Passo 33A- Comando Appload (enter) para carregar o ficheiro actualizado
Passo 34A- Comando Xad (enter) para criar
Passo 35A- Comando Ucs (2x enter) para repor Ucs normal
Passo 36A- Comando Delete (enter) all
Passo 37A- Comando Polygon (enter)
Passo 38A- Escrever "4" (enter) para o número de faces do polígono
Passo 39A- Escrever "0,0,0" (enter) para dizer o ponto do centro
Passo 40N- Alterar o que estava e escrever "(command "polygon" 4 "0,0,0" "i" 7) na quarta linha
Passo 41N- Copiar o conteúdo da quarta linha
Passo 42A- Colar na caixa de comandos (enter)
Passo 43N- Alterar o que estava e escrever "(command "polygon" 4 "0,0,10" "i" 5) na sexta linha
Passo 42N- Copiar o conteúdo da sexta linha
Passo 43A- Colar na caixa de comandos (enter)
Passo 44N- Alterar o que estava e escrever "(command "polygon" 4 "0,0,40" "i" 6) na nona linha
Passo 45N- Copiar o conteúdo da nona linha
Passo 46A- Colar na caixa de comandos (enter)
Passo 47A- Comando Loft (enter)
Passo 48A- Seleccionar os três quadrados de baixo para cima (enter)
Passo 49N- Alterar o que estava e escrever "(command "rotate" "last" "" "0,0,0" (valor 180))" na sétima linha
Passo 50N- Guardar o ficheiro
Passo 51A- Comando Appload (enter) para voltar a aplicar o comando actualizado
Passo 52A- Comando Xad (enter) para fazer