Aller au contenu

Surface en fonction de points


yubari

Messages recommandés

Bonjour,

 

J'ai une série de points et je souhaiterais pouvoir extraire un texte reprenant la surface que forme certains points, sans avoir à dessiner une polyligne les reliant.

 

Le top serait quelque chose comme l'extraction de données mais qui me donnerait les surfaces après sélection de mes points.

 

Pour l'instant, je me débrouille avec la fonction AIRE mais je dois pouvoir recopier cette surface dans un fichier excel.

Je travaille donc en double écran et l'écris manuellement sur mon .xls ,avec le risque d'avoir une faute de frappe à un moment donné...

 

Quelqu'un aurait une idée pour automatiser le truc?

 

Merci d'avance :)

Lien vers le commentaire
Partager sur d’autres sites

Comme ta demande précédente, en repartant du code de Patrick_35, voici une variante...

 

; by patrick_35
; mods by beekeecz and bonuscad
(vl-load-com)
(defun c:surf_by_pt2xls ( / flag doc factor xls wks lin)
 (setq
   flag T
   doc (vla-get-activedocument (vlax-get-acad-object))
   factor (getreal "\nFacteur multiplicatif à appliquer aux surfaces? <1>: ")
 )
 (if (not factor) (setq factor 1.0))
 (vla-startundomark doc)
 (setq xls (vlax-get-or-create-object "Excel.Application"))
 (or (setq wks (vlax-get xls 'ActiveSheet))
   (vlax-invoke (vlax-get xls 'workbooks) 'Add)
 )
 (setq
   wks (vlax-get xls 'ActiveSheet)
   lin 2
 )
 (vlax-put xls 'Visible :vlax-true)
 (vlax-put (vlax-get-property wks 'range "A1") 'value "Surface")
 (initget "Suivante Quitter _Next Quit")
 (while (/= (getkword "\nSurface [suivante/Quitter]? <Suivante>: ") "Quit")
   (command-s "_.Area")
   (while (not (zerop (getvar "CMDACTIVE")))
     (command-s pause)
   )
   (vlax-put (vlax-get-property wks 'range (strcat "A" (itoa lin))) 'value (* factor (getvar "AREA")))
   (setq lin (1+ lin))
   (initget "Suivante Quitter _Next Quit")
 )
 (mapcar 'vlax-release-object (list wks xls))
 (gc)(gc)
 (vla-endundomark doc)
 (princ)
)

Choisissez un travail que vous aimez et vous n'aurez pas à travailler un seul jour de votre vie. - Confucius

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

1) Je sens que je n'ai pas bien suivi le sujet !?

 

2) Car avec des 3DFaces triangulees depuis des Points graphiques AutOCAD

et la routine 3DFAREA de Bryce, on obtenait la surface totale des N 3DFaces ...

 

http://cadxp.com/index.php?/topic/36568-connaitre-le-volume-et-la-surface-dun-objet-maille/

 

Bye, lecrabe

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

Je ne sais pas si on s'est bien compris... Mes points ne sont pas en 3D.

 

En gros, imaginons que j'ai un rectangle avec un point (qui est un bloc avec attributs) à chaque sommet et que je souhaiterais avoir la surface de ce rectangle sans avoir à tracer la polyligne du contour du rectangle

 

Dans mon cas, ce sont des polygones irréguliers. J'ai utilisé les coordonnées pour faire un tableau excel avec mes distances entre points (juste une formule ajoutée directement sur mon tableur) mais pour les surfaces, c'est trop compliqué pour être fait directement sur excel

Lien vers le commentaire
Partager sur d’autres sites

Coucou

 

Je suis désolé de deux choses

 

Un - si tu penses que c'est trop compliqué à faire dans Excel c'est que tu manques de notions de géométrie

Deux - on ne peut plus déposer de fichiers sur le site.

 

Mais je vais utiliser wetransfer car je n'aime pas laisser quelqu'un dans la crotte quand je connais la réponse

Eh oui ! les vieilles recettes de l'école de géomètre fonctionnent encore...

 

Fichier Excel avec solution

 

Les cellules bleu clair sont des formules

 

Amicalement

Lien vers le commentaire
Partager sur d’autres sites

Hello

 

Je te remercie et je rosis de tes compliments

Quand je dis que je rosis, c'est une image car j'ai passé la journée à crapahuter sur le terrain hier et je suis rouge vif au point de disparaître quand je passe devant un camion de pompiers!

Je confirme que le soleil Algérien est mordant, merci Biafine

Je souhaite que Yubari soit aussi content et que j'aie répondu dans le bons sens.

 

Amicalement

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité