Criar camadas

---

(defun c:CriCa ()
;;(INICIAR)
(defun CriarCamada ()
(setq Vla-Obj
     (vla-Add
     (vla-Get-Layers
     (vla-Get-ActiveDocument
     (vlax-Get-Acad-Object)))
     CAMADA)
)
(vla-Put-Description Vla-Obj (strcat "# " DESCRICAO))

(command "-LAYER" "Set" CAMADA
                  "LWeight" PENA ""
                  "Color" COR ""
                  "Ltype" LINHA ""
                  "")
)

(princ "\n# Criando camadas...  ")
;;------------------------------------------------------------------------------
;;  Exemplos de como criar camadas
;;------------------------------------------------------------------------------

(setq   CAMADA    "Nome da camada que será criada"
        DESCRICAO "Descrição da camada (é opcional)"
        COR       "5"
        PENA      "0.05"
        LINHA     "Continuous"
)(CriarCamada)


(setq   CAMADA   "Nome da outra camada criada"
        DESCRICAO " "
        COR       "100"
        PENA      "1.00"
        LINHA     "Hidden"
)(CriarCamada)


(setq   CAMADA   "Outro nome de outra camada para criar"
        DESCRICAO ""
        COR       "211"
        PENA      "2.11"
        LINHA     "Gas_Line"
)(CriarCamada)

;;------------------------------------------------------------------------------
(princ "\n# Camadas criadas!  ")

(setq CAMADA    "")
(setq DESCRICAO "")
(setq COR       "")
(setq PENA      "")

(command "CLAYER" "0")
;;(FINALIZAR)
)