# Problème commande "Renommer"

**URL:** https://dessein-tech.com/t/probleme-commande-renommer/10149
**Category:** AutoCAD
**Created:** 2026-03-25T12:38:21Z
**Posts:** 10
**Showing post:** 3 of 10

## Post 3 by @Patrick — 2026-03-25T20:29:42Z

> [@matthieu.g](#):
>
> Je souhaite renommer plusieurs calques en masse, je pense à la commande Renommer.  
> Mon but est de rajouter « \_Reco » à la suite des calques « \*\_Ancien »

Bonjour, vous pouvez faire ça avec une petite routine Lisp, facile à créer avec [l’assistant AutoCAD expert IA.](https://dessein-tech.com/t/lassistant-expert-autocad-ia-pro-est-disponible/9335)

[RECO\_ANCIEN.lsp](/uploads/short-url/5l2SK964Sk1R4bppsfm4udNBaB9.lsp) (948 Octets)

```
(defun c:RECO_ANCIEN (/ layerData layerName newName)
  (setvar "CMDECHO" 0) ; Désactive l'affichage des étapes en ligne de commande
  
  ; On parcourt la table des calques
  (setq layerData (tblnext "LAYER" T))
  
  (while layerData
    (setq layerName (cdr (assoc 2 layerData))) ; Récupère le nom du calque
    
    ; Vérifie si le nom se termine par _Ancien (insensible à la casse)
    (if (wcmatch (strcase layerName) "*_ANCIEN")
      (progn
        (setq newName (strcat layerName "_Reco"))
        
        ; Utilisation du nom de commande international _.RENAME
        ; _LA correspond à l'option "LAyer" (Calque)
        (command "_.RENAME" "_LA" layerName newName)
        
        (princ (strcat "\nSuccès : " layerName " renommé en " newName))
      )
    )
    (setq layerData (tblnext "LAYER")) ; Passe au calque suivant
  )
  
  (setvar "CMDECHO" 1)
  (princ "\nOpération terminée.")
  (princ)
)
```

---

_[View the full topic](https://dessein-tech.com/t/probleme-commande-renommer/10149)._