AutoLISP - Código para Verificação e Criação de Layers

Segue o Código abaixo:

(if (tblsearch "layer" "CONTORNO") (setvar "clayer" "0")
   (command "_layer" "_M" "CONTORNO" "_c" "3" "" "l" "CONTINUOUS" "" ""))

Explicação da Linha de Comando

"_M" = Criar layer
"CONTORNO" = Nome da Layer
"_C" = Cor da Layer
"3" = Código da Cor, neste caso, cor Verde
"" = Enter
"L" = Estilo da Linha
"CONTINUOUS" = Linha Contínua

Leia mais

AutoLisp - Limpar

Segue o Código abaixo


(defun c:limpar ()
  (command "_.purge" "all" "*" "N")
  (prompt "\nArquivo Limpo de Entidades não Utilizadas")
  (princ)
)

Leia mais

Tabela ASCII

Leia mais