Cliquez sur le modèle de détection des points de données pendant que la commande est active

[tiziano69]

J'ai le problème suivant, j'ai créé un formulaire vba, à l'intérieur il y a un bouton (dans ce cas une image), cliquez sur l'image et partiez le code ci-dessous, le problème est que pour être actif dans autocad, je dois faire un "clik" dans la fenêtre autocad. comment je peux éviter et m'assurer que la commande est immédiatement active et attend pour fournir un point de données et non un clic vide.

Je vous remercie.


sous-image privée1_click()

dim utilobj comme objet
dim objacad comme objet

set objacad = getobject(, "autocad.application")
set utilobj = objacad.activedocument.utility

objacad.visible = vrai
autocad.acadapplication.activedocument.sendcommand "linea" & vbcr

set objacad = getobject(, "autocad.application")
ensemble objdoc = objacad.activedocument

fin