11-21-2024
10:37 AM
- Marquer comme nouveau
- Marquer
- S'abonner
- Sourdine
- S'abonner au fil RSS
- Lien permanent
- Imprimer
- Signaler
11-21-2024
10:37 AM
Merci pour votre réponse, désolé pour le vocabulaire j'ai essayé d'être le plus claire dans mon explication ![]()
Du coup j'ai utilisé une ligne de repère, qui est par défaut dans Autocad.
Pour les caractéristiques je suppose que c'est ça:
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:
Car actuellement le LISP affiche la longueur dans une fenêtre qui disparait quand j'appuie sur OK..
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![]()
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)
)