Comment récupérer un objet calque

[Invité Patrick]

Comment puis-je obtenir l'identificateur d'un calque en connaissant son nom? Par exemple, je souhaite faire un ObjCalque.Lock = True

 

Pour cela il me faut un objet calque (ObjCalque), comment l'obtenir à partir du nom du calque qui est une chaine de caractères?

 

Pour les LISPeurs, on ferait simplement un (tblojbname "LAYER" nomducalque), de mémoire...

 

Il semble qu'en VBA on doive boucler pour explorer toute la table de calques, ce qui me semble un peu lourd.

[didier]

bonjour Patrick,

je viens de passer mon millième message,

je souhaite par celui ci répondre à ton interrogation :

et surtout je ne voudrai pas être hors sujet,

tiens moi au courant, si ce qui suit n'est pas ce que tu souhaitais.

Sub PourPatrick()

 

Dim LayerTata As AcadLayer

Set LayerTata = ThisDrawing.Layers.Item("TATA")

LayerTata.Lock = True

 

End Sub

 

a mille calmant

 

 

[Invité Patrick]

Ah ouais, ça marche ça? Je pensais qu'il fallait donner un indice dans les parenthèses . J'essaie ça.

[didier]

hello

 

pourquoi est ce que tu me dis que ça ne marche pas ?

est ce parce que ton calque n'existe pas ?

si c'est le cas, reviens à la charge, j'aurai la réponse ;)

 

amicalement

 

 

[Edité le 11/12/2004 par didier]

[Invité Patrick]

Non je m'étonnais que ça puisse marcher. parce que généralement le VBA attend un type de paramètre du genre entier ou string, et là il accepte les deux... d'où mon étonnement. Mais l'aide dit bien que ça marche, alors tant mieux. Et merci.