Bonjour à tous, Merci pour votre aide, mon script fonctionne correctement grace à vous ;) Je met mon script ci dessous cela pourra peut etre aider quelqu'un d'autre. CMDDIA 0 FILEDIA 0 ZOOM ET LAYDEL T 3SUBDFISCTEX T 1SUBDFISC T 3BORNE T 3CADB T 1SUBDSECT T 1FLECHEFL T 3DIVERS T 3TOPOLINE T 3TOPOLINETEX Y PURGETOUT -STYLE ROMANS00 ROMANS -STYLE ARIAL00 ARIAL SSX E TEXT LA LIMITE-PARCELLE-TXT- CHT P H 5 S ROMANS00 TJUST P MC SSX E TEXT LA LIMITE-LIEUDIT-TXT- CHT P H 5.5 S ARIAL00 TJUST P MC SSX E TEXT LA VOIE-CIRCULATION-TXT- CHT P H 3.5 S ROMANS00 SSX E TEXT LA HYDROGRAPHIE--TXT- CHT P H 3.5 S ROMANS00 SSX E TEXT LA LIMITE-SECTION-TXT- CHT P H 10 S ARIAL00 TJUST P MC CMDDIA 1 FILEDIA 1 _SAVEAS CMDDIA 1 FILEDIA 1 _CLOSE Selon mes besoins le script supprime des calques inutiles (même non vide) purge tout, ensuite creation de type de texte, selection de texte dans un calque précis et modification des proprités répétitives ;) Il y a peut être plus simple en lisp mais je sais pas faire et se script est facilement modifiable pour traiter d'autre entité ou propriété. PS : la commande CHT est un LISP provenant de autocad 14 qui doit être rajouté dans les LISP à charger au démarage. Encore merci à tous ;) EDIT : quand je met les balise quote ou code ca me met un gros pavé noir à l'écran [Edité le 2/2/2007 par Benoit71]