Surface en fonction de points

[yubari]

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 :)

[Geof]

Bonjour,

 

Un petit bloc avec des attributs aire ?

Style ça

https://e-nautia.com/share/48517-u4d1tfs6

 

Cordialement

[yubari]

Bonjour,

 

Un petit bloc avec des attributs aire ?

Style ça

https://e-nautia.com/share/48517-u4d1tfs6

 

Cordialement

Merci pour la réponse mais ça implique de créer une polyligne qui relie mes points. Je souhaiterais que la surface soit calculée sur base des coordonnées de mes points si c'est possible

[lecrabe]

Hello

 

Si tu as des points AutoCAD XYZ (2D/3D), la generation de surfaces (en 3DFaces) triangulees

devrait te permettre APRES d'avoir la surface des N triangles !?

 

Bye, lecrabe

[bonuscad]

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)
)

[lecrabe]

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

[yubari]

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

[didier]

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

[lecrabe]

Hello Didier

 

1) BRAVO

 

2) Je n'avais rien compris en lisant simplement le sujet !

 

Bye, lecrabe

[didier]

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