Entrega Final

PORMENOR.dwg

PORMENOR.pdf
escadas (1).jpeg
corrim.lsp

No ficheiro Notepad++ da macro é dada a explicação desta e seu procedimento:

Tem portanto como objectivo inserir um corrimão para umas escadas carregando apenas num botão.

Aula 21. 27.11.2013 - Aula 26. 11.12.2013

Apartir desta aula até à 26 foram esclarecidas dúvidas acerca da macro, em formato autolisp, e da representação em AutoCAD , em formato dwg.

Aula 20. 22.11.2013

Nesta aula o professor aproveitou para dar algum apoio as macros e esclarecer algumas duvidas.

19a Aula. 20.11.2013

Nesta aula realizámos um exercício em AutoCAD de dois cones invertidos, como auxilio ao da aula anterior.

Command: cone
Enter
(0,0)
Enter
5 (raio)
Enter
10
Enter

Command: vpoint

Enter

(1,-1,2)

Enter

Command: ucs (serve para mudar o ângulo de referencia)

Enter

X

Enter

90

Enter

Command: mirror (para replicarmos o cone para cima)

Enter

Seleccionar cone

Enter

Clicar no vértice e num ponto à esquerda

Enter

Comman: ucs

Enter

Enter

De seguida criámos 4 layers para fazermos as assimptotas:

• 1a layer (vermelho

Command: seccion
Enter
Seleccionar dois cones´
Enter
ZX (plano vertical)
Enter
(0,0,0)
Enter

• 2a layer (amarelo)

Command: seccion

Enter

Seleccionar os dois cone

Enter

ZX

Enter

(0,-1,0)

Enter

• 3a e 4a layer

Foram feitas com o mesmo processo das anteriores, no entanto numa utilizámos as ordenadas (0,-2,0) e na outra utilizámos (0,-3,0)

Command: vpoint

Enter

(0,-1,0)

Enter

Command: zoom

P (previous) para voltarmos ao que tínhamos

Enter

Para vermos a linha horizontal como eixo principal recorremos novamente ao comando "ucs":

Command: ucs

Enter

X

Enter

90

Enter

Command: plan
Enter
Enter

Finalizado este exercício guardamos o ficheiro com o nome de "hiperbolóides"

18a Aula. 15.11.2013

No inicio desta aula o professor tirou algumas duvidas acerca do pormenor, de seguida criámos um cubo hiperbólico no AutoCAD. Para tal criamos um cubo:

Command: box

Enter

(0,0)

(100,100,100)

Z

E

Command: vpoint

Enter

(0,0)

(1,-1,2)

Enter

Vamos então criar uma nova layer "rectângulo" a cor vermelha para fazermos um rectangulo na diagonal do cubo feito:

Command: line

Enter

Seleccionar os pontos pela ordem a baixo

Ent

Command: line

Enter

Seleccionar pontos médios das arestas criando dois eixos verticais e horizontais

Enter

Para mudarmos a perspectiva recorremos ao comando "ucs":

Command: ucs

Enter

3p

Enter

Seleccionar 3 pontos (os 2 cantos inferiores e o ponto do meio na aresta superior)

Enter

Congelar layer do cubo

Plan

Enter 

Enter

Command: offset

Enter

15

Enter

Seleccionar eixo tranversal

Enter

Command: pdmode

Enter

35

Enter

Command: point

Enter

Seleccionar intersecção da recta feita com com o eixo horizontal

Enter

Apagar linha recta auxiliar e criar uma nova layer amarela cujo nome é "pontos da hipérbole".

Command: c (circle)

Enter

Seleccionar o ponto do meio e o ponto anteriormente desenhado

Enter

Através do comando "copy" copiamos o eixo vertical até as intersecções do circulo com as diagonais do rectângulo:

Command: point

Enter

Seleccionar os dois pontos resultantes da intersecção como esta na figura:

Apagamos as linhas auxiliares.

Command: offset

Enter

20

Enter

Seleccionar eixo vertical

E fazê-lo 3 vezes para o lado esquerdo

Enter

Command: extend

Enter

Esticar linha ate à ultima linha feita

Enter

Command: point 

Enter

Definir os 3 pontos de intersecção

Enter

Apagar rectas auxiliares

Para a construção dos pontos que definem a hiperbolóide:

Command: circle

Enter

Centro no segundo ponto feito a amarelo

Raio definido pelo terceiro ponto feito a amarelo

Enter

Apagar o primeiro circulo auxiliar feito.

Command: copy

Enter

Centro no ponto encarnado do lado esquerdo

Enter

Apagar novamente o primeiro circulo auxiliar.

Command: c

Enter

Centro no ponto amarelo do lado direito

Raio definido pelo segundo ponto amarelo do lado esquerdo

Enter

Command: copy

Enter

Seleccionar circunferência feita 

Centro no ponto vermelho à direita

Enter

Apagando o primeiro círculo auxiliar da direita, marcamos as intersecções dois dois círculos.

 E assim fazemos até deixar os 6 pontos definidos:

Criar uma nova layer de trabalho a azul chamada "curva".

Command: spline

Enter

Method

Enter

Fit

Enter

Seleccionar os pontos 

Enter

Command: offset (para prolongarmos a curva)

Enter

1

Enter

Seleccionar recta vertical mais à esquerda e deslocar para a direita

Enter

Command: fillet

Enter

R (radius)

Enter

0

Enter

Seleccionar curva 

Seleccionar a recta que foi feita

Enter

Criar uma outra layer de trabalho de nome "perfil" com cor roxa.

Command: boudary

Enter

Alterar opção "Object type: Region"

Ok

Vamos então seleccionar a seguinte área:

Congelar todos os layers excepto o cubo e o "perfil".

Command: vpoint

Enter

(1, -1, 1.5)

Enter

Command: ucs

Previous

Enter

Command: revolve

Enter

Seleccionar entidade

Enter

Seleccionar os pontos:

Enter

360

Enter

Command: mirror

Enter

Seleccionar o que foi feito

Enter

Seleccionar o ponto mais perto do observador e a sua diagonal

Enter

Repetimos o mesmo processo com o comando "mirror", mas desta vez seleccionamos as duas diagonaise a diagonal da aresta superior.

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