Aula 07 | 05/04/2022

 Modelação Tridimensional em Autocad de um espaço arquitetônico

Dados:

• Nome do comando: Cadeira

(setq pontos2d (getvar "osmode"))
(setq pontos3d (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
- (If (= nil
- (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 acento 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) - nova função
• (MODELAR2) - segunda função

(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)))
)

• Guardar ficheiro como cadeira.lsp
• Abrimos o autocad - Appload - introduzir o comando cadeira