Aula 07 | 05/04/2022

 Exercício 3: Autolisp

A primeira parte da aula foi dedicada à programação de móveis em autolisp, nomeadamente de uma cadeira, de modo a realizarmos a entrega do exercício 3. A qual exigia um comando que criasse um móvel mais complexo. Assim aplicou-se se o código:

(defun c:cadeira()
(setq pontos2d (getvar "osmode"))
(setq pontos3d (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
(setq pt1 (getpoint "indique o ponto de inserção da cadeira: "))
(If (= nil
(setq comprimento (getreal " indique o comprimento da cadeira (em x): ")))
(setq comprimento 0.40))
(If (= nil
(setq largura (getreal " indique a largura da cadeira (em y): ")))
(setq largura 0.50))
(If (= nil
(setq altura (getreal " indique a altura do assento da cadeira : (em z): ")))
(setq altura 0.40))
(If (= nil
(setq esp1 (getreal " indique a expessura do assento: ")))
(setq esp1 0.03))
(If (= nil
(setq esp2 (getreal " indique a expessura dos pés: ")))
(setq esp2 0.05))
(If (= nil
(setq costas (getreal " indique a altura das costas: ")))
(setq costas 0.50))
(If (= nil
(setq esp3 (getreal " indique a expessura das costas: ")))
(setq esp1 0.05))
(modelar)
(modelar2)
(setvar "osmode" pontos2d)
(setvar "3dosmode" pontos3d)
(command "ucs" "")
)
(defun modelar ()
(command "ucs" pt1 "")
(command "box" (list 0 0 (- altura esp1)) (list comprimento largura (+
altura esp1)))
(setq e1 (entlast))
(command "box" (list 0 0 0) (list esp2 esp2 (- altura esp1)))
(command "array" (entlast) "" "r" 2 2 (- largura esp2) (- comprimento
esp2))
)
(defun modelar2 ()
(command "box" (list 0 0 (+ altura esp1)) (list comprimento esp3 (+
altura esp1 costas)))
)

De modo a criar:

 Exercício 4: Modelo 3D

A segunda parte da aula foi dedicada ao exercício 3 e à modelação de um apartamento em 3D, que embora para entrega viéssemos a entregar um dos fogos de projeto, em aula fizemos com um apartamento criado com a professora passo a passo a partir do offset de xlines. Nesta aula apenas organizámos as layers para o exercício.