AULA 7 - 01/04

Linguagens de programação - Autolisp - Criação de um objecto tridimensional.

- Comandos utilizados: APPLOUD;

Exercício 3 - continuação do Autolisp

- Rotina "cadeira":

(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 espessura do assento: ")))
(setq esp1 0.03))
(If (= nil
(setq esp2 (getreal "indique a espessura 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 espessura das costas: ")))
(setq esp3 0.05))
(modelar)
(modelar2)
(setvar "osmode" pontos2d)
(setvar "3dosmode" pontos3d)
(command "ucs" "")
(command "shade")
)
(defun modelar ()
(command "ucs" pt1 "")
(command "box" (list 0 0 (- altura esp1)) (list comprimento largura altura ))
(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) (list comprimento esp3 (+
altura costas)))
)

      

     

​