Annonce
#1 Mon 08 March 2010 16:25
- JeffC1977
- Juste Inscrit !
- Date d'inscription: 8 Mar 2010
- Messages: 3
VBA Poser une question dans Autocad
Bonjour je cherche et je cherche mais je trouve rien.
Je veux tout simplement poser une question mais dans autocad.
Exemple...
Code....
Le texte est-il bien orient. (Y), (N)
Si utilisateur appuis sur Y alors sinon
Je ne trouve pas le code VBa afin de poser une question et attendre la réponse.
Merci de votre aide
Hors ligne
#2 Mon 08 March 2010 17:09
- JeffC1977
- Juste Inscrit !
- Date d'inscription: 8 Mar 2010
- Messages: 3
Re: VBA Poser une question dans Autocad
J'ai fini par trouver....
si ca peut aider...
Code:
Dim kwordList As String
kwordList = "Oui Non"
ActiveDocument.Utility.InitializeUserInput 1, kwordList
Dim returnString As String
returnString = ActiveDocument.Utility.GetKeyword("Orientation OK ? (Oui)(Non): ")Hors ligne
#3 Mon 08 March 2010 17:23
- ChristopheV
- Membre
- Lieu: Ajaccio
- Date d'inscription: 7 Sep 2005
- Messages: 3169
- Site web
Re: VBA Poser une question dans Autocad
Bonjour,
Vous avez aussi le plus classique VBA:
Code:
Sub toto()
a$ = MsgBox("Question", vbYesNo, "test")
End Subou si vous souhaitez faire une entrée utilisateur
Code:
Sub toto()
a$ = InputBox("Question", "Test", "")
End SubA+
Christophe
L'avantage d'être une île c'est d'être une terre topologiquement close
Hors ligne
#4 Mon 08 March 2010 17:32
Re: VBA Poser une question dans Autocad
Si je saisis bien la subtilité, c'est qu'avec le code de JeffC1977, la question est faite dans la console d'AutoCAD, le sacrosaint lieu de toutes les informations et commandes dans AutoCAD 
Je me trompe ?
Jérôme Cuinet
L'avantage de la Chine, c'est que le soleil se couche plus tard !
Hors ligne
#5 Mon 08 March 2010 18:48
- ChristopheV
- Membre
- Lieu: Ajaccio
- Date d'inscription: 7 Sep 2005
- Messages: 3169
- Site web
Re: VBA Poser une question dans Autocad
Non tu ne te trompe pas.
Sous un aspect plus "dev" d'un coté code JeffC1977 il s'agit du modèle objet autocad avec sa IHM propre, d'un autre il s'agit des fonctions natives de windows traduites en VB (A pour le coup) avec son système de fenêtres.
A+
Christophe
L'avantage d'être une île c'est d'être une terre topologiquement close
Hors ligne
