Aula 7 .  05/04/2022

Comandos Utilizados e Resumo da Aula:

- Fomos buscar uma rotina no site da professora - vamos fazer uma cadeira
- Cadeira - vai ser o nome do comando
- O comando é um conjunto de pedidos - a primeira é para desligar o object snap:
(setq pontos2d (getvar "osmode"))
(setq pontos3d (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
- (If (= nil  - para garantir que o programa não rebente em algum lugar. 
- (setq pt1 (getpoint "indique o ponto de inserção da cadeira: ")) pt1 é o ponto de incerção da cadeira. onde clicármos vai aparecer o ponto base
- If (= nil
(setq comprimento (getreal " indique o comprimento da cadeira (em x):
")))
(setq comprimento 0.40)) - é o comprimento e a altura do acento
- (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)) - é a altura do acento, não da cadeira
- (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))
- Até agora fizémos a recolha da informação
- (modelar) - vai ser uma 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)))
)
- Guardámos o ficheiro como cadeira.lsp
- Abrimos o autocad - APPLOAD - introduzir o comando cadeira
- Se fizermos enter em todas as etapas vamos criar a cadeira, sendo que é possivel alterarmos os dados que quisermos
--------------------------------------------------------------------
- Segunda parte da aula: Início do exercício 3
- Abrimos um novo ficheiro 
- Criámos novos layers:
2D_CORTE
2D_VISTA
2D_TRACEJADOS
x_AUXILIAR
- Point 5,5
- DDPTYPE - mudar o x
- Xline vertical e horizontal 
- Fizémos uma parede dupla de alvenaria