Como definir ou retornar a cor de uma layer de um documento do AutoCAD usando as funções vla-put-color e vla-get-color

; Esta função mostra como retornar a cor de uma layer
; em um documento do AutoCAD usando a função vla-get-color
(defun c:Obter_Cor_Layer()
  ; o primeiro passo é obter o objeto AutoCAD
  (setq obj_autocad (vlax-get-acad-object))
  ; agora obtemos o documento atual
  (setq doc (vla-get-ActiveDocument obj_autocad))
  ; obtemos a coleção de layers  
  (setq colecao_layers (vla-get-Layers doc))
  
  ; vamos obter a layer com o nome "PAREDES"
  (setq layer (vla-item colecao_layers "PAREDES"))
  ; e mostramos a cor da layer retornada
  (setq cor_layer (vla-get-color layer))
  ;	e exibimos o resultado
  (princ (strcat "\nCor da layer: " (itoa cor_layer)))
  
  (princ)
)

; Esta função mostra como definir a cor de uma layer
; em um documento do AutoCAD usando a função vla-put-color
(defun c:Definir_Cor_Layer()
  ; o primeiro passo é obter o objeto AutoCAD
  (setq obj_autocad (vlax-get-acad-object))
  ; agora obtemos o documento atual
  (setq doc (vla-get-ActiveDocument obj_autocad))
  ; obtemos a coleção de layers  
  (setq colecao_layers (vla-get-Layers doc))
  
  ; vamos obter a layer com o nome "COLUNAS"
  (setq layer (vla-item colecao_layers "COLUNAS"))
  ; e vamos definir a cor vermelha para esta layer
  (vla-put-color layer 1)
  ; e exibimos o resultado
  (princ "\nCor da layer definida com sucesso.")
  
  (princ)
)