[Need help] Lisp to add prefix for all freeze layer's name

[Nguyen Thong Nhat]

Hi everyone, I have received a drawing with many layer (see attached image). I want to laytrans some layer (freeze) to a new layer but they have same prefix with other layer. So is there any lisp can find and add prefix all freeze layer in a drawing? then i can use laytrans easier. Thank you very much

[Tharwat]

Try this and let me know how it works for you if possible?

NOTE: You can change the word PREFIX- as noted below in the routine that suits your needs, besides that, the layer name 0 & DefPoints along with the External References layer names are excluded as well.

 

(defun c:PrefLayer ( / lay lyn new lst)
  (while (setq lay (tblnext "LAYER" (null lay)))
    (or (wcmatch (setq lyn (cdr (assoc 2 lay))) "0,DefPoints,*|*")
        (and (= 1 (logand 1 (cdr (assoc 70 lay))))
             (or (tblsearch "LAYER" (setq new (strcat "PREFIX-" lyn))) ;; change the prefix word that suits yours
                 (entmod (subst (cons 2 new) (assoc 2 (setq lst (entget (tblobjname "LAYER" lyn)))) lst))
                 )
             )
        )
    )
  (princ)
  )

 

Edited December 26, 2019 by Tharwat
Note added