- No Autocad, criámos dois novos layers:
''amarelas'' - com a cor amarela;
"vermelhas''- com a cor vermelha - utilizar como layer de trabalho.
- No NotPad++ criámos a seguinte lista de comandos:
Depois copiámos a lista de comandos do NotePad para o AutoCad - ENTER.
Assim, surgiu a imagem do tabuleiro de xadrez pretendido.
-Começamos uma experiência com escalas e um ponto no comando AUTOLISP, onde utilizámos vários comandos como:
cdr (de todos os elementos de uma lista selecciona todos excepto o primeiro);
setq (atribui valor a uma expressão variável).
-Clicamos na Tecla F2:
Apareceu-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'').
- Depois, desenvolvemos uma função com o objectivo de criar um quadrado em Linguagem LISP. Para isso, copiámos comandos já inseridos no AutoCad para o NotePad:
(defun quadrado (dimensao)
(setq pt1 (getpoint ''Qual o ponto?''))
(setq pt2 (list (+ ( car pt1) dimensão) (car (cdr pt1))))
(setq pt3 (list (car pt2) (+ (car (cdr pt2)) dimensao)))
(setq pt4 (list (car pt3) ( car (cdr pt3))))
(comand ''line'' pt1 pt2 pt3 pt4 ''c'')
Guardamos o doc com Nome do Ficheiro:''Quadrado.lsp''.
-No AutoCad:
Comando APPLOAD - ENTER (para carregar o ficheiro)
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.
Sem comentários:
Enviar um comentário