VBA SendCommand

[jfcantin197733]

Bonjour

 

J'utilise la commande SendCommand afin d'appeler la commande Boundary.

 

Par exemple, j'ai 4 lignes qui forme un polygone et je veux calculer la superficie de ce dernier. Avec la commande Boundary, je peux me créer une polyligne suivant les limtes de mon polygone et ensuite je peux mesurer la superfice de ce polygone.

 

 

Par la suite j'utilise la commande GetEntity afin de sélectionner la polyligne.

Mon problème est qu'il lit ma commande SendCommand mais va aussitôt à la prochaine ligne de code (GetEntity)

 

 

Voici mon code

 

 ThisDrawing.SendCommand "-boundary" & vbCr

   ThisDrawing.Utility.GetEntity ReturnObj1, BasePnt, "Selectionnez l'object pour calculer la Superfice"
   Set Entite(0) = ReturnObj1
.....

 

Comment faire, avec VBA, pour faire fonctionner correctement la commande boundary afin de créer un polygone

 

 

Merci d'avance