VBA pour AutoCAD 2002

Fermé

Jena1977 Messages postés 2 Date d'inscription mercredi 17 mars 2010 Statut Membre Dernière intervention 18 mars 2010 - 17 mars 2010 à 21:26
Jena1977 Messages postés 2 Date d'inscription mercredi 17 mars 2010 Statut Membre Dernière intervention 18 mars 2010 - 18 mars 2010 à 16:26

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

A voir également:

VBA pour AutoCAD 2002
Ancienne version autocad gratuite - Télécharger - CAO-DAO
Excel compter cellule couleur sans vba - Guide
Find vba - Astuces et Solutions
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Jena1977 Messages postés 2 Date d'inscription mercredi 17 mars 2010 Statut Membre Dernière intervention 18 mars 2010
18 mars 2010 à 16:26

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

Discussions similaires

réparation de fichiers .dwg (AutoCAD)

Bonjour,
Je souhaiterais réparer les fichiers .dwg du Logiciel AutoCAD car l'ors de leur ouverture je reçois le message qui stipule qu'ils sont corrompus.
Merci

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

TELECHARGEMENT DE AUTOCAD 2018 OU 2017

Bonjour,

JE VOUDRAI TÉLÉCHARGER AUTOCAD 2018 EN VERSION D'ESSAI. COMMENT FAIRE?

Configuration: Windows / Chrome 58.0.3029.110

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

mysqli_real_connect(): (HY000/2002)

Bonjour,

J'utilise Laragon comme serveur et depuis hier, impossible de me connecter à mon php my admin. J'ai ce message d'erreur qui apparait : mysqli_real_connect(): (HY000/2002).

Quelles sont les modifs dans la config que je peux réaliser pour le refaire fonctionner normalement?

Merci!