Bonjour,
Je me suis créé une petite routine dans un module VBA et je voudrais l'affecter à un bouton dune barre d'outils, apparemment ce n'est pas aussi simple qu'avec LISP.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub desact_calq_sauf_1()
 
    Dim LayerColl As AcadLayers
    Dim SelObject As AcadObject
    Dim LayerTest As AcadLayer
    Dim SelPt As Variant
 
    Set LayerColl = ThisDrawing.Layers
 
    On Error Resume Next
 
    ThisDrawing.Utility.GetEntity SelObject, SelPt, "Sélectionner un objet dans le calque à conserver"
 
    For Each LayerTest In LayerColl
        If LayerTest.Name <> SelObject.Layer Then
            LayerTest.LayerOn = False
        Else
 
        End If
    Next
 
 
End Sub
Merci!