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
Besoin d'un développement spécifique pour AutoCAD ?
Développement de compléments à AutoCAD et aux autres logiciels Autodesk (AutoCAD Electrical, AutoCAD Mechanical, Inventor, Revit, Vault, Navisworks...). C#/VB/.NET, C++/ObjectARX, AutoLISP, VBA.
Migration de vos projets VBA en .NET, intégration RealDWG dans vos applications, développement sur plateforme AutoCAD OEM et Inventor OEM.
Assistance technique AutoCAD, Inventor, Revit, Vault.
Maxence DELANNOY - Tél. : 06.46.40.75.66 - maxence.delannoy@wiip.fr
|
Add new comment