CADsite forum

Hallo,

ik heb de volgende vraag. Ik wil een aantal laagnamen die beginnen met AL veranderen in FL of TL. Dus:

AL7.......... --> FL7..........
AL7.......... --> FL8..........
AL9.......... --> TL9..........

En zo hebben we nog meerdere lagen waarvan de eerste 2 letters/eerste cijfer gewijzigd moeten worden. Ik heb een script gevonden waarmee ik lagen kan hernoemen. Het nadeel van deze is dat in deze script je de exacte laagnaam moet neerzetten. Ik zoek er een die alleen kijkt naar de 1e 2 letters en cijfer en die hernoemt en de rest van de laagnaam intact laat. De script die ik heb en werkt is:

(defun C:OldLay2NewLay2   (/ OldNewLayLst i OldLay NewLay)
  (setq   OldNewLayLst
    '(
      ("AL72---- vaste gebruikersvoorzieningen" "FL72---- vaste gebruikersvoorzieningen")
      ("AL82---- inrichting los" "FL82---- inrichting los")
      ("AL90---- terrein" "TL90---- terrein")
     )
  )
  (setq i 0)
  (repeat (length OldNewLayLst)
    (setq OldLay (car (nth i OldNewLayLst))
     NewLay (cadr (nth i OldNewLayLst))
    )
    (if   (and (tblsearch "LAYER" OldLay)
        (not (tblsearch "LAYER" NewLay))
   )
      (command "_.RENAME" "_LA" OldLay NewLay)
    )
    (setq i (1+ i))
  )
  (princ)
);;End OldLay2NewLay2

Weet iemand misschien een oplossing?