lisp surface

[pointpower]

Bonjour,

 

Je cherche un lisp qui me permettra de faire des métrés de surfaces (polyligne, ligne, cercle, hachure,arc...). Il serait intéressant d'appliquer ce lisp après avoir sélectionner mes objets avec le bouton sélection rapide.

 

Quelqu'un a une idée?

 

J'ai trouvé des lisps trop compliqués et qui n'inclus pas les hachures.

 

Merci

[(gile)]

Salut,

 

TotalArea, sur cette page.

[pointpower]

Merci.

 

Celui-ci me parait compliqué par contre j'en ai trouvé un plus simle est-ce que quelqu'un peut le modifier pour qu'il prenne en compte également les hachures.

 

;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.

[lili2006]

Bonjour à toutes et tous,

 

Celui-ci me parait compliqué

 

Heu, tu parles de "TotalArea" ?

 

Au contraire il est très simple d'utilisation et très complet puisqu'il utilise les propriétés dynamiques des objets.

 

A savoir, tu peux retravailler une surface et mettre à jour tes données. Tu peux également imposer une unité de résultat (exemple : Tu dessines en EO en "cm" et tu souhaites des résultats de surface en m²,...).

 

Tu peux également lier (et visualiser d'un coup d'oeil !!!) l'ensemble de plusieurs polylignes pour faire un métré, c'est génial (exemple : surface totale de zone bureaux, couloirs, ....).

 

http://images2.hiboox.com/images/1709/62d750302c9c1ca5e2c5401fb83c857b.jpg

 

(Gile) à même prévu une aide, c'est pas beau ça,...

 

700x500http://images2.hiboox.com/images/1709/8323d6a831eb37399e25610ffdca8677.jpg[/img]

Au passage, idem pour "totalperimètre",...

 

:P

[pointpower]

ok merci je vais le tester de suite.

 

A+

[mattxp]

Salut,

 

 

TotalArea, sur cette page.

 

Bonjour,

 

le lien me renvoie un message d'erreur, et je ne peux donc pas accéder au lisp. Je recherche le même genre de lisp, j'ai eu l'habitude d'utiliser "chpaire" dans une ancienne agence mais ne le retrouve nulle part ; celui ci a cependant l'air(e) plus complet ;)

 

Merci d'avance,

 

Matt

[(gile)]

Salut,

 

Regarde ici.

[mattxp]

Salut,

 

Regarde ici.

 

Super merci ! A bientot et merci pour la réactivité !