Bom dia, amigo
Criei um lisp bem simples para te ajudar:
Após carregado ele no seu AutoCad, funcionará da seguinte forma:
TER- Cria um layer terreno
IMP-Cria um layer implantação
COT-Cria um layer contas
PAR-Cria um layer parede
Obs: Se as cores dos layers não forem o padrão que usa é só alterar no programa para o numero da cor que voce desejar.
Espero ter ajudado. Segue o lisp abaixo:
Code:
;CRIAÇÃO DE LAYERS
(DEFUN C:ter()(command "layer" "n" "terreno" "c" "8" "terreno" ""))
(DEFUN C:imp()(command "layer" "n" "implantação" "c" "1" "implantação" ""))
(DEFUN C:cot()(command "layer" "n" "cotas" "c" "2" "cotas" ""))
(DEFUN C:par()(command "layer" "n" "paredes" "c" "5" "paredes" ""))