Problème commande "Renommer"

AutoCAD
3

Bonjour, vous pouvez faire ça avec une petite routine Lisp, facile à créer avec l’assistant AutoCAD expert IA.

RECO_ANCIEN.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)
)