DRAW macro gestion des couches

fr-users
#1

Bonjour,

J'ai téléchargé la macro exemple pour la visibilité des couches. le code permet de rendre visible ou invisible une couche :

Sub LibOCouche(LibOEvent)

dim LibOGestCouches as object

LibOGestCouches  = thiscomponent.LayerManager

if LibOGestCouches.hasByName(LibOEvent.source.model.Label) then
LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible =_
not(LibOGestCouches.getByName(LibOEvent.source.model.Label).IsVisible)
else
    msgbox "Pas de couche " & LibOEvent.source.model.Label
end if

End Sub

Cette macro fonctionne correctement.
ensuite j'ai modifié le code pour faire un essai en donnant directement le nom de la couche. La macro devient :
sub essai

dim LibOGestCouches as object

LibOGestCouches  = thiscomponent.LayerManager

if LibOGestCouches.hasByName("Carrés") then
    LibOGestCouches.getByName("Carrés").IsVisible =_
    not(LibOGestCouches.getByName("Carrés").IsVisible)
else
    msgbox "Pas de couche "
end if
End sub
 et là le code ne fonctionne plus impossible de rendre visible ou invisible la couches. Quelqu'un a t'il une idée du pourquoi?

merci de vos réponses

#2

Bonjour,

As tu essayé avec un nom sans accent?

Cordialement

Jean-Luc

#3

Bonjour;

Je te rappelle que j'ai ouvert un bug sur ta macro.

C'est pas du même ordre ?

Nicolas Paour