Aula 10
18.10.2013


Nesta aula refizemos o tabuleiro de xadrez iniciado na aula anterior.

-Programá-mo-lo previamente no NotePad:

• Começámos por abrir uma nova página no AutoCad e no Notepad++.
• Nessa lista de comando utilizámos a entidade ''solid'' a fim de criar uma mancha com o máximo de quatro pontos ou resultante de uma combinação de várias entidades.

-No Autocad, criámos dois novos layers:

• "amarelas";
• "vermelhas"- layer de trabalho.

•  Criámos a seguinte lista de comandos no NotePad.

• "n"- não deve ser apagada a selecção feita;
• "p"-previous;

•  Comando CHPROP - Muda a cor, layer, linetype, factor de escala de linetype, espessura e estilo de plotagem de um objecto.

-Copiámos a lista de comandos do NotePad para o AutoCad - ENTER.

• Com isto surgiu a imagem do tabuleiro de xadrez pretendido.

-Começamos a experiência com escalas e um ponto no comando  AUTOLISP,(comando que "chama" todos os outros do Autocad) onde utilizámos vários comandos como:

• car (selecciona o primeiro elemento de uma lista);
• cdr (de todos os elementos de uma lista selecciona todos excepto o primeiro);
• setq (atribui valor a uma expressão variável).

-Tecla F2:

• aparece-nos a tal janela onde consta a lista de comandos.

Nessa janela introduzimos os seguintes comandos:

• Command: (+ 1 2 3);
• Command: (/ 1 10.0);
• Command: (/ 1 10.0);
• Command: (setq pt1 (list 1 2 3));
• Command: (list pt1);
• Command: (setq x (car pt1));
• Command: (setq y (car(cdr pt1)));
• Command: (setq z (car(cdr(cdr pt1))));
• Command: (defun quadrado (dimensao);
• Command: (setq pt1 (getpoint "Qual o ponto?"));  
• Command: (setq pt2 (list (+ ( car pt1) dimensão) (car (cdr pt1))));
• Command: (setq pt3 (list (car pt2) (+ (car (cdr pt2)) dimensao)));
• Command: (setq pt4 (list (car pt3) ( car (cdr pt3))));
• Command: (command "line" pt1 pt2 pt3 pt4 "c").

- Desenvolvemos uma função a fim de criar um quadrado em Linguagem LISP. Para isso, copiámos comandos já inseridos no AutoCad  para o NotePad:
(os números de 1-7 indicam a numeração das linhas do Notepad++)

• 1    (defun quadrado (dimensao)
• 2    (setq pt1 (getpoint "Qual o ponto?"))
• 3  
• 4    (setq pt2 (list (+ ( car pt1) dimensão) (car (cdr pt1))))
• 5    (setq pt3 (list (car pt2) (+ (car (cdr pt2)) dimensao)))
• 6    (setq pt4 (list (car pt3) ( car (cdr pt3))))
• 7    (comand "line" pt1 pt2 pt3 pt4 "c").

Nome do Ficheiro:"Quadrado.lsp".

-No AutoCad:

• Comando APPLOAD  - ENTER ( carrega e descarrega aplicações e define quais aplicações carregar no início do AutoCad).

• Carregar na opção "Load" e se o ficheiro foi carregado com sucesso colocar "close".

• Digitar o comando "quadrado 100" - ENTER - indicar um ponto qualquer fora da área gráfica - ZOOM - E.

Para outro quadrado:

•  Comando "quadrado 10" - ENTER -  indicar um ponto qualquer fora da área gráfica - ZOOM – E.