fonction lisp pour ajouter les polylignes

[horatio]

Salut cherche petit programme lisp pour additionner toutes les polygnes d'un meme callque

ou different

Merci d'avance urgent

[Bred]

Salut,

vite fait :

;;; Additionner touts les longueurs de polylignes :
(defun c:lgp (/ sel i d ent)
 (setq sel (ssget "I")
d 0)
 (if (not sel)
   (setq sel (ssget '((0 . "LWPOLYLINE")))))
 (repeat (setq i (sslength sel))
   (if (equal (cdr (assoc 0 (entget (setq ent (ssname sel (setq i (1- i))))))) "LWPOLYLINE")
     (setq d (+ d (vla-get-length (vlax-ename->vla-object ent))))
     )
   )
 (alert (Strcat "Longueur totale : " (rtos d)))
 )

 

pour

pour additionner toutes les polygnes d'un meme callque

Tu fais une "sélection rapide" avant de lancer la commande.