[VBA-AUTOCAD] Changer de calque actif

[sechanbask]

J'ai crée un outil dans lequel j'ai fait une procédure pour changer de claque courant. Seulement, le claque change dans le controle uniquement lorsque je ferme l'application... Et bien sûr ça ne me plait guère je souhaiterais avec un visuel sur ce changement pour être sur que le changmeent a eu lieu sans pour autant fermer l'application :

voilà mon code :

Code :

ThisDrawing.ActiveLayer = ThisDrawing.Layers(UserForm4.ListBox1.text)

En fait j'aimerai faire une regen du controle des calques...
Merci par anticipation

[bbil]

peu-être un :

Code :

1
2
 
ThisDrawing.Regen acAllViewports

[Edit] ben en fait ou veu tu voir le changement de calque... je viens de faire l'essai ( Acad 2004) et pas de probléme... ton code initial suffit, le changement est effectué dans la barre d'outils selection des calques...!

[sechanbask]

je suis sur Autocad 2006 et ça marche de façon aléatoire : je peux voir la modification sans sortir de la macro mais parfois non... alors...

[sechanbask]

j'ai trouvé à forcer de brasser l'aide autocad et VBA dans tous les sens:

Code :

1
2
3
4
5
 
'change de calque selon choix dans listbox1
ThisDrawing.ActiveLayer = ThisDrawing.Layers(UserForm4.ListBox1.text)
'update autocad pour voir la modification du calque
AcadApplication.Update