VBA AutoCAD : erreur "Fenêtre principale d'AutoCAD invisible"

Le message d'erreur

Ce message d'erreur se produit lorsque vous demandez une sélection utilisateur alors qu'il y a un formulaire affiché. Si par exemple vous avez un bouton de commande avec le code suivant :

Private Sub CommandButton1_Click()
    Dim pt As Variant
    pt = ThisDrawing.Utility.GetPoint(, vbLf & "Sélectionnez un point: ")
End Sub

L'appel à GetPoint échoue car la fenêtre principale d'AutoCAD n'est pas disponible. La solution, c'est de masquer le formulaire avant la sélection du point, puis de le réafficher après :

Private Sub CommandButton1_Click()
    Hide
    Dim pt As Variant
    pt = ThisDrawing.Utility.GetPoint(, vbLf & "Sélectionnez un point: ")
    Show
End Sub

Français

Etiquettes:

Ajouter un commentaire