MACRO - AutoCAD | NotePad++
- Criar uma folha A3 em milímetros (1 metro = 1000 milímetros): b 0.297, a 0.420;
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:
(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:
(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;
Sem comentários:
Enviar um comentário