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.