Petibonom

Sympa, j'ai pu finir mon Lisp Merci à tous

Merci pour vos réponses. Mais je voudrai les récuperer sous la forme d'une liste (ou autre) afin de les integrer dans la boite de dialogue d'un programme Lisp En tout cas merci pour votre rapidité

Bonjour à tous Avant tout, merci pour toutes les solutions et les renseignements qu'on peut rouver sur ce site. J'ai une petite question : Est il possible de récuperer les noms de tous les SCU d'un dessin sous la forme d'une liste ? Merci d'avance pour vos réponses.

Bonjour, j'espere que ces quelques lignes pourront vous aider. (defun c:pol_aire () (setvar "cmdecho" 0) (princ "\nSélectionnez un Cercle, Polyligne ou Polygone: ") (setq objet (car (entsel))) (if (or (= (cdr (assoc 0 (entget objet))) "CIRCLE") (and (or (= (cdr (assoc 0 (entget objet))) "LWPOLYLINE") (= (cdr (assoc 0 (entget objet))) "POLYLINE")) (< (cdr (assoc 70 (entget objet))) 16)) ) (progn (setq htxt (cdr (assoc 40 (tblsearch "STYLE" (getvar "textstyle"))))) (if (= htxt nil) (setq htxt 0.0) ) (command "aire" "e" objet) (setq pt1 (getpoint "\nPosition du texte: ")) (if (= htxt 0.0) (setq h_txt (getdist "\nHauteur du texte: " pt1)) ) (setq ang (angtos (getangle "\nAngle du texte: " pt1) (getvar "aunits"))) (if (/= htxt 0.0) (command "texte" pt1 ang (strcat (rtos (getvar "AREA") 2 (getvar "luprec")) " m2")) (command "texte" pt1 h_txt ang (strcat (rtos (getvar "AREA") 2 (getvar "luprec")) " m2")) ) ) (princ "\nCe n'est pas un objet Cercle, Polyligne ou Polygone") ) (princ) ) (princ "\n==> Pol_Aire") (princ)