VBA pour AutoCAD 2002

Jena1977 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
Jena1977 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je cherche un moyen pour utiliser la fonction Area.
Je code en VB6 et en VBA afin de travailler avec Autocad.

Je doit réussir à calculer l'aire d'un boundary. Ce Boundary est une polyligne.

Je ne sais trop comment coder pour arriver à mes fins.

Sois j'appelle la fonction Area
ActiveDocument.SendCommand "_area" & vbCr & "O" & vbCr
mais si j'utilise cette facon de faire, je dois réussir `
a aller cherche la réponse qui se mets dans les commandes. Je ne sais pas si cela se fait.


Sinon j'avais pensé de cliquer tout simplement sur mon objet et dans la fenêtre properties j'ai une valeur Area qui s'affiche. Mais comment faire pour aller chercher cette valeur.


Dans l'aide de VBA j'arrive toujours au même endroit qui propose de créer une polyline et d'utiliser le tableau afin de calculer l'aire. Mais moi ma forme est déjà créée...


Si vous voyer un truc pour me donner un coup de main...

meric d'avance

1 réponse

Réponse 1 / 1
Jena1977 Messages postés 2 Date d'inscription   Statut Membre Dernière intervention  
 
Si ca peut aider... J'ai trouvé

Dim returnObj1 As AcadObject
Dim basePnt As Variant
Dim dblSuperficie As Double

ActiveDocument.Utility.GetEntity returnObj1, basePnt, "Selectionner l'object"

'Retourne la superficie de l'objet sélectionné
dblSuperficie = returnObj1.Area
0

Discussions similaires

TELECHARGEMENT DE AUTOCAD 2018 OU 2017
dipouma -
tanteelise -

2 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
mysqli_real_connect(): (HY000/2002)
Chacha28 -
jordane45 -

3 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses