sexta-feira, 8 de abril de 2016

05 de Abril

MACRO - AutoCAD | NotePad++
  • Criar uma folha A3 em milímetros (1 metro = 1000 milímetros): b 0.297, a 0.420;
É possível utilizar o software com uma macro pra fazer as dimensões da folha automaticamente:

Notepad++

  •  (defun hoja (x y) 
  •  (command "rectangle" (list 0 0) (list x y)) );
  •  Gravar o ficheiro com o nome: “hoja.lsp”;

AutoCAD

  • “LAYOUT” - Page Setup Manager – enter – modify - name: DWG TO pdf.pc3 - paper size: ISO full blees A3 (420.00 x 297.00 MM) - plot scale: custom 1000 mm/ 1 unit – enter;
  • “APPLOAD” – enter - transferir o ficheiro lps - enter - (hoja 0.420 0.297);

Notepad++

  • Abrir o ficheiro criado anteriormente: hoja.lps;
  • (command "rectangle" (list 0.005 0.005) (list (-x 0.005 ) (- y 0.005)));
  • Guardar o documento;

AutoCAD

  • “APPLOAD” – enter - transferir o ficheiro lps - enter - Layout3 (hoja 0.420 0.297) (hoja 0.594 0.420) (setq a (sqrt (/ 1 (sqrt 2)))) (setq b (* a (sqrt 2)));

Notepad++

  • Abrir um novo ficheiro;
  • Criar uma macro para desenhar folhas da serie A (A0; A1; A2; A3; A4) - macro que desenha folhas serie A - pela indicação da área da folha - as folhas desenhadas são ao baixo e arrumadas em caixa: 
(defun c:hojas () 
(setq spontos (getvar "osmode")) 
(setvar "osmode" 0) 
(setq nome (getstring "Qual o nome da folha?")) 
(escolha) 
(calculo area) 
(desenhar a b) 
(setvar "osmode" spontos) ) 
(defun calculo (area) (setq b (sqrt (/ area (sqrt 2))))
(setq a (* b (sqrt 2))) ) 
(defun desenhar (a b) 
(command "rectangle" (list 0 0) (list a b)) 
(command "rectangle" (list 0.005 0.005) (list (- a 0.005) (- b 0.005))) );
  • Guardar o ficheiro: hojas.lps;

AutoCAD

  • “Model” – “APPLOAD” – enter - transferir o ficheiro lps - enter - HOJAS – enter;
  • “ZOOM”;
  • “EXTEND” – enter;

Notepad++

  • Fazer os comandos para criar automaticamente o tamanho das folhas:
(defun escolha () 
(cond ((= nome "a0")(setq area 1)) 
((= nome "a1")(setq area (/ 1 2.0))) 
((= nome "a2")(setq area (/ 1 4.0))) 
((= nome "a3")(setq area (/ 1 8.0))) 
((= nome "a4")(setq area (/ 1 16.0)));



AutoCAD

  • “APPLOAD” – enter - transferir o ficheiro lps - enter – HOJAS – enter - A1 - enter – HOJAS – enter - A2 – enter – HOJAS – enter - A3 - enter – HOJAS – enter - A4 – enter;
Foi-nos mostrado um ficheiro lsp que insere as formas, abrindo-o no AutoCAD através do comando “INTERSECT”, onde vamos associar uma forma com o espaço à volta, resultando no trabalho final da cadeira. Em função de uma seleção a partir daquela macro, gerar uma área que possa ser habitável e percorrida como os modelos que foram apresentados.

Sem comentários:

Enviar um comentário