Help Appreciated: Force Existing Layer Names to UPPER CASE Not Working

[devitg]

@Clint Please give it a try 

 

 

(defun c:lay-nam-to-capital (/  (ACAD-OBJ ADOC LAY-COLL))
  (VL-LOAD-COM)
  (SETQ ACAD-OBJ (VLAX-GET-ACAD-OBJECT))  
  (SETQ ADOC (VLA-GET-ACTIVEDOCUMENT ACAD-OBJ)) 
  (SETQ LAY-COLL (VLA-GET-LAYERS ADOC))
  (vlax-for lay	lay-coll
    (vla-put-name lay (strcase (vla-get-name lay)))
  ) ;_ end of vlax-for
) ;_ end of defun