y_varelaDEVAW
en réponse à: -didier-

Bonjour @-didier- @_Steven_ 

 

Merci pour votre réponse, désolé pour le vocabulaire j'ai essayé d'être le plus claire dans mon explication :visage_rayonnant_avec_des_yeux_rieurs:

 

Du coup j'ai utilisé une ligne de repère, qui est par défaut dans Autocad.

 

Capture d'écran 2024-11-21 100346.png

 

Pour les caractéristiques je suppose que c'est ça:

 

Capture d'écran 2024-11-21 102129.png

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Donc je voudrais que la longueur du spline s'affiche avec un texte et une ligne de repère comme ceci dans la mesure du possible:

 

Capture d'écran 2024-11-21 102112.png

Car actuellement le LISP affiche la longueur dans une fenêtre qui disparait quand j'appuie sur OK..

 

 

Capture d'écran 2024-11-21 103124.png

Et pour finir voici le LISP en question(voir pièce jointe):

 

Je vous remercie pour le temps que vous passez à m'aider et j'espère avoir apporté toutes les informations nécessaires:visage_faisant_un_câlin:

 

Yvan Varela

;|https://bit.ly/2SyqL41   

TLEN.LSP - Total LENgth of selected objects
(c) 1998 Tee Square Graphics

|;

(defun C:LONG (/ 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)))
  (alert (strcat "La longueur total des objets selectionnes = " (rtos tl)))
  (princ)
)