as vezes recebemos desenhos de terceiros, ou nós mesmos fazemos isso, que tem layers com nomes em maiúsculos, outros em minúsculos… o que resulta numa bagunça, ruim para ler….
pelo menos eu acho mais interessante manter de um jeito ou de outro…
bom, com esta rotina abaixo, converto tudo para maiúsculo:
(vl-load-com);carrega as vls
(vlax-for lay ;aplica em todos os layers
(vla-get-layers ;pega a collection layers
(vla-get-activedocument; arquivo corrente
(vlax-get-acad-object)));autocad
(vla-put-name lay ;troca o nome
(strcase (vla-get-name lay))));para maiuscula
por
(strcase (vla-get-name lay) t)
notaram a diferença? apenas coloque um “t” de true nos parâmetros da função STRCASE…