Aula 4 - 11.10.2012

Sumário:

Visualização de um documentário acerca da relação entre a arquitectura e algoritmos.

Criação de macros para Autocad - rectângulo de proporção raiz 2, rectângulo de proporção áurea. 

Criação de "layers" e respectiva atribuição de cores para cada figura realizada até à data. 

Greg Lynn: How calculus is changing architecture

http://www.youtube.com/watch?feature=player_embedded&v=DeyzUysMLy0

Macro de rectângulo de proporção raiz 2:

(defun c:r2 ()

(setq pt1 (getpoint "\n Qual o ponto de inserção? "))

(setq lado (getreal "\n Qual a dimensão do lado menor?" ))

(setq pt2 (list (+ (car pt1) (* lado (sqrt 2))) (cadr pt1)))

(setq pt3 (list (car pt2) (+ lado (cadr pt2))))

(setq pt4 (list (car pt1) (cadr pt3)))

(command "pline" pt1 pt2 pt3 pt4 "c")

)

Macro de rectângulo de proporção áurea:

(defun c:rau ()

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq pt1 (getpoint "\n Qual o ponto de inserção?  "))

(setq lado (getreal "\n Qual a dimensão do lado menor?  "))

(setq pt2 (list (+ (car pt1) (/ lado 2) (sqrt (+ (expt lado 2) (expt (/ lado 2) 2)))) (cadr pt1)))

(setq pt3 (list (car pt2) (+ (cadr pt2) lado)))

(setq pt4 (list (car pt1) (cadr pt3)))

(command "pline" pt1 pt2 pt3 pt4 "c")

(setvar "osmode" os)

)

Informação acerca das layers do autocad:

"Os layers criados pertencem ao arquivo (extensão .dwg) e compõem o projeto que estamos desenvolvendo, e, na medida em que os objetos vão sendo desenhados, podemos solicitar que o programa torne estes layers visíveis ou invisíveis. Assim, podemos estar trabalhando no layer paredes e tornar os layers cotas e mobiliário invisíveis para facilitar o desenho, por exemplo, do projeto elétrico. Em seguida, podemos tornar todos os layers visíveis para analisar a compatibilidade entre projetos."  -  http://www.aramis.ufrgs.br/site/amostra_cad2d.htm