Longueur de polyligne ....

[FIL]

Salut à tous...

 

Quelqu'un pourrait-il me dire comment on peux la longueur totale de plusieures polylignes en une seule sélection

 

lisp, astuces etc... acceptés... ;)

 

Merci d'avance :D

[MNT]

Bonsoir,

ci-joint un lisp pour la somme des poly

@+

 

PS: tu trouveras la même chose mais pour les surfaces dans le forum VRD

 

;|

 

TLEN.LSP - Total LENgth of selected objects

© 1998 Tee Square Graphics

 

|;

 

(defun C:TL (/ ss tl n ent itm obj l)

(setq ss (ssget)

tl 0

n (1- (sslength ss)))

(while (>= n 0)

(setq ent (entget (setq itm (ssname ss n)))

obj (cdr (assoc 0 ent))

l (cond

((= obj "LINE")

(distance (cdr (assoc 10 ent))(cdr (assoc 11 ent))))

((= obj "ARC")

(* (cdr (assoc 40 ent))

(if (minusp (setq l (- (cdr (assoc 51 ent))

(cdr (assoc 50 ent)))))

(+ pi pi l) l)))

((or (= obj "CIRCLE")(= obj "SPLINE")(= obj "POLYLINE")

(= obj "LWPOLYLINE")(= obj "ELLIPSE"))

(command "_.area" "_o" itm)

(getvar "perimeter"))

(T 0))

tl (+ tl l)

n (1- n)))

(alert (strcat "Total length of selected objects is " (rtos tl)))

(princ)

)

[Oli553]

Et je cherchai comment fire depuis tous ce temps moi, merci (avec du retard)