Somme de surfaces

[nbk67]

Bonjour,

 

Je souhaiterais pouvoir avoir rapidement la somme des surfaces d'une sélection de polylignes fermées.

 

Quelqu'un aurait-il une méthode qui pourrait m'aider ?

 

Merci d'avance.

 

Bonne journée.

[nbk67]

Bon en fait, en cherchant, j'ai trouvé mon bonheur.

 

Pour ceux que ça intéresse:

 

;calcule la somme des surfaces des

;polygones sélectionnés

(defun c:SumArea ( / ss i o a ) ;D. C Georges S 2007

(setq ss (ssget (list (cons 0 "lwpolyline")))

i 0

a 0)

(repeat (sslength ss)

(setq o (vlax-ename->vla-object (ssname ss i)))

(setq i (+ 1 i))

(setq a (+ a (vla-get-area o)))

)

(setq str (strcat "Surface totale de " (itoa i) " polygones = " (rtos a 2 2) " m²"))

;(print str)

);fin defun

(princ "\nSomme des surfaces polygones chargé, taper Sumarea pour commencer.")

 

En jouant avec la fonction ssget on peut affiner les sélections.

 

Bonne journée.