Additionner les longueurs de plusieurs polylignes

[Scod]

Bonjour à toutes et tous,

L'un de vous aurait-il une méthode pour obtenir la longueurs totale de plusieurs polylignes ?

Merci d'avance

[Fraid]

Bonjour,

Voici un petit lisp:

;;; tl cumule les longueurs de polylignes et autre
(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")
         )
         (vl-cmdf "_.area" "_o" itm)
         (getvar "PERIMETER")
        )
        (t 0)
          )
      tl  (+ tl l)
      n   (1- n)
    )
  )
  (alert (strcat "La longueur total est " (rtos tl)))
  (princ)
)

 

[Fraid]

je vient de voir que tu est sur LT, cela ne fonctionne pas désolé.

[Steven]

Salut @Scod,

 

Scan DXF de @bryce répondra a ton besoin 😉