Surface à partir d\'intersection entre deux wpoly

[gaara]

Salut tt le monde

y a t il un lisp qui peut calculer et insérer la valeur des aires à à partir de l'intersection se 2 wpolylines??

 

pour plus de detail voir image dans le lien!!

http://www.4shared.com/file/240278334/6a03fa1b/Aires.html

 

merci d avance

:casstet:

[(gile)]

Salut,

 

Comme on est dans le forum "Débuter en LISP", j'ai fait au plus simple.

 

(defun c:toto (/ pt ent)
 (while (setq pt (getpoint "\nSpécifiez un point: "))
   (if	(setq ent (bpoly pt))
     (progn
(command "_.area" "_object" ent)
(entdel ent)
(command "_.text" pt "" "" (rtos (getvar 'area)))
     )
   )
 )
 (princ)
)

[gaara]

merci gile pour ta rep

toujours à la hauteur :exclam: