superficie polylignes multiples

[dainese]

Est-il possible de créer un lips pour faire le cumul de la superficie de plusieurs objets polylignes fermées ?

 

J'ai fait quelques recherches sur le forum mais rien à ce sujet visiblement.

 

Autoca@dement :casstet:

[Tramber]

Commande AIRE, mode ADDITION, pas besoin de lisp.

Sinon il y en a un paquet, tu as mal cherché :cool:

[dainese]

Merci pour le renseignement Trambler mais je me suis sans doute mal expliqué.

 

Est-il possible par une simple selection de plusieures polylignes fermées de connaitre la superficie totale sans avoir à reprendre les coins ?

 

Pour le moment je passe par _liste mais ce n'est pas tres simple et c'est facile d'en oublier :(

 

Autoc@dement

[dainese]

Désolé Tramber, j'ai eccorché ton nom à la frappe

[(gile)]

Je pense comme Tramber que cela a été fait nombre de fois, mais plutôt que de chercher, je t'en propose deux autres :

 

Une première qui utilise la commande AIRE options Addition et Objet (pas besoin de sélectionner tous les sommets).

 

(defun c:add-aire ()
 (command "_.area" "_a" "_o")
 (while (/= 0 (getvar "CMDACTVE"))
   (command pause)
 )
 (princ)
) 

 

Une seconde qui traite un jeu de sélection, en Visual LISP.

 

(defun c:aire-poly (/ tot)
 (vl-load-com)
 (and
   (setq tot 0)
   (ssget '((0 . "LWPOLYLINE") (-4 . "&") (70 . 1)))
   (vlax-for ob (vla-get-ActiveSelectionSet
	   (vla-get-ActiveDocument (vlax-get-acad-object))
	 )
     (setq tot (+ (vla-get-Area ob) tot))
   )
   (alert (strcat "Surface totale : " (rtos tot)))
 )
 (princ)
) 

 

[Edité le 5/6/2007 par (gile)]

[dainese]

Merci beaucoup

Bonne continuation

Autoc@dement

[az2din]

voir la rubrique "get the code" du site www.Cadalyst.com

 

[Patrick_35]

Bah (gil), il manque le vba pour être complet :( ;)

 

@+