17a Aula. 13.11.2013

No início desta aula fomos à página do professor para termos acesso ao ficheiro autolisp:   http://home.fa.utl.pt/~lromao/2013_14/turma_aa_20132014_srda.html

Vamos, portanto, fazer o download de duas macros "setas.lsp" e "iso.lsp". Para tal, abrimos a página de um aluno do ano passado (Tomás Sequeira da turma E) e utilizámos a macro dele.

Vamos então fazer o appload dos dois ficheiros no AutoCAD:

Command: (cv 2 9.5)

Enter

Command: units

Enter

• Setas-lsp

Command: pl

Enter

Seleccionar um ponto qualquer

Enter

Width

Enter

0

Enter

20

Enter

Seleccionar outro ponto

Esc

Command: pl

Indicar outros dois pontos

A

Seleccionar outro ponto

W

Enter

100

Enter

Seleccionar outro ponto

Enter

Como foram só experiências pudemos apagar tudo utilizando o comando "erase".

Vamos então fazer um rectângulo:

Command: rec

Enter

(0,0)

Enter

(2,1)

Enter

Z

E

Command: pedit

Enter

Seleccionar objecto

Enter

F

Enter

Para transformar a circunferência novamente no rectângulo;

Command: d (para retirar)

Enter

Para transformar o rectângulo numa elipse:

Command: pedit

Enter

S (pline)

Enter

Command: pedit

Enter

d

Enter

Vamos, então,  introduzir as setas:

Command: setas

Enter

Seleccionar o canto superior direito e mais três pontos à direita

Enter

Fazemos o mesmo com o vértice superior esquerdo: 

Abrimos o ficheiro Notepad++ e inserimos os comandos:

(defun sena (multiplosde9) 

(*9 multiplosde9)

Guardar ficheiro como "mul9" em formato lps.

Voltamos ao AutoCAD e fazemos o appload do ficheiro:

Command: appload

Enter

         

Fizemos como experiência:

Command: (cena 41)

Enter

Resultado: 395

Voltamos a fazer o "appload" do ficheiro e digitamos novamente um comando (cenas 9 2)

Command: ISO

Enter

Seleccionar os cantos pela ordem abaixo 

Command: erase (para eliminar o elemento que ficou a mais)

Enter

Selecionar objecto

Enter

Command: rec (vamos formar um rectângulo mais pequeno)

Enter

Seleccionar um ponto a baixo do que já está feito

Seleccionar outro ponto, escolhendo a dimensão 

Command: ISO

Seleccionar rectângulo pequeno

Enter

Command: erase (apagar excesso)

Enter

Vamos então criar uma nova macro para fazer a relação das escalas, para tal abrimos um novo ficheiro no Notepad++ e escrevemos os seguintes comandos:

;razão das escalas

(defun res (papel realidade)

(/ papel realidade)

)

Depois de guardar o ficheiro como "escalas" em formato lsp fazemos o appload do ficheiro e escrevemos os seguintes comandos:

Command: (res 1.0 100)

Enter

Command: (cenas 0.25 0.025)

Enter

Command: (res 0.006 0.305)

Enter

Command: (res 1 50.0)

Enter