Trabalho final

Macro 

Pormenor dwg 

Imagem

Ficheiro PDF

Aula 25 ( 11.12.2013 )

Esta foi aula antes da entrega dos trabalhos daí ter sido direccionada para o esclarecimento de dúvidas a nível da execução do pormenor (tanto no ModelSpace como no PaperSpace) e na criação da macro.
Esclarecimeto de duvidas sobre o pormenor, 

Realizaçao da Macro : Escadas 

(defun c:esc1 ()
  (setq degraus (getint "\nQuantos degraus? "))
  (setq inicio (getpoint "\nPonto inicial da escada? "))
  (setq profundidade (getreal "\nProfundidade do degrau (m)? "))
  (setq espessura (getreal "\nEspessura do degrau (m)? "))
  (setq cobertor (getreal "\nCobertor do degrau (m)? "))
  (setq espelho (getreal "\nEspelho do degrau (m)? "))

  (setq Pintermedio (polar inicio 0 profundidade))
  (setq P2 (polar pintermedio (/ pi 2) espessura))

  (command "rectang" inicio P2)

  (repeat (1- degraus)

    (command "copy" "last" "" (list cobertor espelho) "")

  )
)

 

24 (6.12.2013)

Aula de apoio às macros individuais dos alunos.

Aula 23 (4.12.2013)

Aula de apoio às macros individuais dos alunos.
Apoio à macro 

(defun c:escada ()
(setq pt1 (getpoint "\n qual o ponto de arranque da escada? "))
(setq espelho (getreal "\n qual a altura do espelho? "))
(setq nd (getint "\n quantos degraus tem a escada? "))
(setq pt2 (polar pt1 (dtr 90) espelho))
(setq pt3 (polar pt2 (dtr 0) cobertor))
(command "pline" pt2 "")
(repeat nd
(command "copy" "last" "" pt1 pt3))
)



(defun dtr ( deg ) (* pi (/ deg 

Aula 22( 29.11.2013)

Esta aula deu se  essencialmente para retirar dúvidas acerca do pormenor e das macros.

O professor indicou-nos o site da Autodesk , onde podemos encontramos mais comandos, que poderão ser úteis para a realização da macro e do pormenor. 

• Macro

 "Defun"- definir uma função

"Setq"- para manter um valor

"Getpoint"-  pedir ao utilizador que defina um ponto onde quiser

• Pormenor

 Ficheiro.bax- permite recuperar o trabalho perdido

Regen- não permite a realização de problemas gráficos que poderão surgir no AutoCAD

Audit- faz uma auditoria à base de dados do programa

Purge-limpa todas as identidades que não estejam a ser utilizadas no pormenor, ficando assim o ficheiro mais leve e ficando apenas a informação que importa no pormenor.

Aula 21 ( 27/11/2013)

Esta aula tal como a outra, tenho como objectivo apoia à macro.

 AutoCAD

• Command: line - ENTER - 0,0 - ENTER - 1,0 - ENTER - 1,1 - ENTER - 0,1 - ENTER - C - ENTER 
• Command: zoom - ENTER - E - ENTER

 

 

 No Notepad++

 

 Copiamos então esta macro e colamos no AutoCAD, no comando escrevemos "sp1" 

 seleccionando um ponto de inserção ao acaso.

 

 

A segunda passou pela criação de uma recta com um triângulo.

No Notepad++ 

 

 

  Para verificar se a macro esta a funcionamento no Autocad, copiamos
o ficheiro do Notepad++ e  colamos neste, depois vamos chamar o ficheiro, colocando no comando "teste" escolhendo assim  um ponto de inserção ao acaso.

Aula 20 (22/11/2013)

Esta aula teve como objectivo  apoio aos exercícios de macros, em ficheiros autolisp.

Aula 19 ( 20/11/2013)

Desenhamos dois cones invertidos. 

Autocad 

•  Command: cone - ENTER - 0,0 - ENTER - 5 (medida do raio) - ENTER - 10 - ENTER

Command: Vpoint - ENTER - vamos introduzir um ponto do espaço (1,-1,2) - ENTER

Command: ucs - ENTER - x - ENTER - 90 - ENTER

Command: mirror - ENTER -  seleccionar o cone - ENTER - seleccionar o vértice do cone e um ponto à esquerda do cone - ENTER - NO - ENTER

Command: ucs - ENTER - ENTER

Vamos criar quatro layers.

Command: la - ENTER

"layer 1" como layer de trabalho, em que vamos guardar as assimptotas.

Command: seccion - ENTER - vamos seleccionar os dois cones - ENTER -  zx (plano vertical) - ENTER - 0,0 (passa na origem do sistema) - ENTER.

"layer 2" como layer de trabalho.

Command: seccion - ENTER  - seleccionar os dois cones - ENTER - zx - ENTER -  (0,-1,0) - ENTER

"layer 3" como layer de trabalho

Command: seccion - ENTER - seleccionar os dois cones - ENTER - zx - ENTER - (0,-2,0) - ENTER

"layer 4" como layer de trabalho.

Command: seccion - ENTER - seleccionar os dois cones - ENTER - zx - 0,-3,0 

Command: vpoint - ENTER - (0,-1,0) - ENTER

Command: zoom - ENTER - P - ENTER

Command: ucs - ENTER - x - ENTER - 90 - ENTER

• Command: ucs - ENTER - z - ENTER - 90 - ENTER
• Command: plan - ENTER - ENTER
• 
  

 "cubo hiperbólico"

Command: ucs - ENTER - x - ENTER

Command: mirror - ENTER - seleccionar as identidades - ENTER - seleccionar as seguintes identidades

Command: ucs - ENTER - ENTER

Aula 18 ( 15/11/2013)

Esclarecimento de duvidas,  principalmente para o pormenor .

• função: (* (+ a (/ b c) 0.025)  Esta funçao quer dizer que 3+9/16 = ; em que a= 3 , b=9 e c=16 

  Para utilizarmos esta funçao utilizamos o NotePad++ 
  
  
  
  
  
  Nome do  ficheiro como cv2lisp, guardar como list processing language 
  
  
  No AutoCAD
  
  
  Command: Appload - ENTER
  
  
  CV2 - LOAD_ OK 
  
  
  
  
  

  Exercício em AutoCAD

  
  
  Command: box - ENTER- 0.0 -ENTER -  100, 100, 100 - ENTER - zoom - ENTER - E - ENTER
  
  
  
  
  
  
  
  
  
  
  
  Command: vpoint - ENTER -  0,0 (ponto de origem) - ENTER -( 1,-1,2) (direcção do sistema)
  
  
  
  
  
  
  
  • Command: La - ENTER
  • "RECTANGULO" como la de trabalho 
  
  
  
  

• 
  
  
  
  
  Command: osnap - ENTER
  
  
  
  
  
  
  
  Command: line - ENTER - ordem seleccionada 
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Command: line - ENTER - seleccionar os pontos médios das arestas 
  
  
  
  
  
  Command: line - ENTER - seleccionar os pontos médios resultantes das diagonais faciais do rectângulo
  
  
  
  
  
  Hipérbole.
  
  
  
  

• Vamos utilizar o comando "ucs"
• Command: ucs - ENTER - 3p - ENTER 

Congelar layer do cubo 

• Command: Plan - ENTER - ENTER

 Consideremos  que o centro das várias intersecções é o centro do nosso vértice,a linha vertical que está nas intersecções é o eixo transversal, a linha vertical o eixo horizontal e as diagonais as assimptotas .

Command: offset - ENTER - 15 - ENTER - seleccionar o eixo tranversal - ENTER 

Command: pdmode - ENTER - 35
Command: point- ENTER ( definimos assim o nosso ponto do foco ) 

Apagar a linha auxiliar.

Command: C - ENTER - seleccionar o ponto das intersecções dos eixos - seleccionar o ponto do foco

Copiar o eixo transversal para a intersecção das assimptotas com o circulo auxiliar.

Command: copy - ENTER

Command: point- ENTER - selecionar o ponto resultante entre a intersecção do eixo horizontal e da recta vertical mais à esquerda.

 Command erase : Apagamos o circulo auxiliar, e as duas rectas verticais 

Command: mirror - ENTER - seleccionar os dois pontos - ENTER - seleccionar o ponto resultante das intersecções dos eixos

Command: offset - ENTER - 20 - ENTER

• Command: extend - ENTER -  seleccionar a linha do eixo horizontal  - ENTER - porlongar até à linha vertical mais à esquerda - ENTER

Command: point - ENTER

(definimos 3 novos pontos )

Command: c - ENTER - o centro é o quarto ponto amarelo a começar a contar da esquerda- o raio é definido com o terceiro ponto a contar da esquerda

Command: C - ENTER

ponto no foco (esq) 

Apagar o primeiro circulo auxiliar.

Command: C - ENTER - centro no ponto amarelo da direita e o raio até ao terceiro ponto amarelo a contar da esquerda 

• Command: C - ENTER - centro no ponto encarnado da direita - ENTER

Apagar o circulo do meio.

• Command: point- ENTER

Definir os dois pontos resultantes da intersecção dos dois círculos auxiliares.

 

Apagar os círculos auxiliares.

Repetir até deixar os seis ponto definidos.

Para a segunda recta vertical

Para a terceira recta vertical 

Command: La - ENTER

Seleccionar como layer de trabalho.

 Command: spline - ENTER - fit - ENTER - seleccionar os pontos pela seguinte ordem

• Command: offset - ENTER 1- ENTER - seleccionar a recta vertical mais à esquerda e deslocar o rato para direita

• Command: fillet - ENTER - R - ENTER - 0- ENTER - seleccionar a linha azul - seleccionar a linha encarnada anteriormente feita

Command: la - ENTERCommand: boundary 

 Seleccionar o seguinte segmento

Congelar todas as layers à excepção do cubo e do sólido.

Command: vpoint - ENTER - (1,-1,1.5) - ENTER

• Command: ucs - ENTER 

Voltamos a definir o eixo.

Command: revolve - ENTER - seleccionar a identidade - ENTER - seleccionar os seguintes pontos

ENTER - 360 - ENTER

• Command: mirror - ENTER - seleccionar a identidade - ENTER - seleccionar a diagonal da base pela seguinte ordem - ENTER

Command: ucs - ENTER - X - ENTER - 90 - ENTER

•