Calques en MAJUSCULES

[jalna]

Bonjour,

 

Comment faire pour toujours écrire les noms de calques en majuscules dans le gestionnaire de calques!!

[Patrick_35]

Salut

 

(defun c:maj(/ lay)
 (vlax-for lay (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   (vla-put-name lay (strcase (vla-get-name lay)))
 )
 (princ)
) 

 

@+

[jalna]

Ben Merci Monsieur!! :)

[lecrabe]

 

Hello

 

C OK sur : é à ù ç - Merci :)

 

Cela ne fonctionne pas sur les noms de calque avec des voyelles et circonflexe ou tréma !

 

Je n'ai pas encore testé sur les noms de calques avec majuscule accentues (je déteste) !

 

Le Decapode (Testeur chiant) :casstet:

 

[lecrabe]

 

ReHello

 

et je suggere une autre amélioration avec une question (O/N)

 

Changer les blancs/espaces en souligné/underscore (O/N) : ?

 

ainsi on aura des noms de calque comme j'aime ! ;)

 

Le Decapode

 

[jalna]

Salut !

 

Bizarre car chez moi tout fonctionne!!

circonflexe - tréma - ect.....

 

[jalna]

C'est vrai je confirme

T'es chiant!! (je plaisante....)

 

L'idée est effectivement sympa!

 

 

[lecrabe]

 

Hello

 

Le Crabe fait amende honorable :P

 

Je confirme que le probleme avec AutoCAD/MAP 2004 & 2006 & 2008

est INEXISTANT c'est parce que j'avais de multiples noms de calques avec une seule lettre

pour mon test et donc à la sortie cela aurait donné de multiples calques nommés : A / E / etc

 

Cependant SVP je réclame toujours ma petite amélioration

 

Le Decapode

 

[Patrick_35]

Cependant SVP je réclame toujours ma petite amélioration

Tout se négocie ;)

 

Ok, dès que j'ai un moment

 

@+

[(gile)]

Salut,

 

Il suffit de remplacer :

(vla-put-name lay (strcase (vla-get-name lay)))

par

(vla-put-name lay (strcase (vl-string-translate " " "_" (vla-get-name lay))))