layers com nomes maiúsculos e minúsculos

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...

LinkWithin

Related Posts Plugin for WordPress, Blogger...