Discussion :

[YassDumb]

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!

[YassDumb]

J'ai créé un bouton et j'ai écrit dans la macro du bouton:

^C^C-VBARUN ; "C:MonChemin/PLU.dvb !Module1.PLU"

Mon projet s'appelle PLU et le module Module1.

Quand je clique sur le bouton, Autocad me demande le nom de la macro...???
Une suggestion?