pegas

Bonsoir à toutes et à tous! Quelqu'un pourrez-t-il me raffraichir la mémoire? Je m'explique il y quelques années j'utilisais un petit lisp afin de calculer la surface et l'aire d une polyligne et l inscriver automatiquement sous forme de texte (attribut)sur le dessin. Hors je ne me souviens plus comment creer l attribut.Merci donc de m indiquer SVP pas à pas comment faire fonctionner ce lisp afin d avoir les informations Surface et aire dans une étiquette. Une derniere requete une fois les attributs renseignés comment les exporter vers excel. (je suis sur Autocad 2009). (defun c:surf () (setq PL (entsel "\nselectionner la polyligne : ")) (command "_AREA" "_E" PL) (setq S (getvar "AREA")) ;pour UD le cm ;setq S (/S10000)) (setq S (rtos S 2 1)) (setq P (getvar "PERIMETER")) (setq P (rtos P 2 1)) (setq NL (getstring "\nNom du local :")) (setq PI (getpoint "\nPosition du bloc :")) (command "_INSERT" "SURFACE" PI 1 1 0 NL S P ) ) Je fais beaucoup de metre si quelqu un à une meilleure mèthode je suis preneur. Cordialement. Pegas