(DEFUN c:rnbindla () (SETQ latbl1 (TBLNEXT "layer" T)) (SETQ layers_lst (LIST (STRCASE (CDR (ASSOC 2 latbl1))))) (WHILE (SETQ latbl2 (TBLNEXT "layer")) (SETQ layers_lst (APPEND layers_lst (LIST (STRCASE (CDR (ASSOC 2 latbl2)))))) ) ;_ end of while (FOREACH n layers_lst (IF (WCMATCH (STRCASE n) "*$0$*") (PROGN (SETQ this_n (STRCASE n)) (WHILE (AND (WCMATCH this_n "*$*")(NOT (WCMATCH this_n "*$"))) (SETQ this_n (SUBSTR this_n 2))) (IF (TBLSEARCH "layer" this_n) (PROGN (SETQ cnt 1) (WHILE (TBLSEARCH "layer" (SETQ new_layer (STRCAT (IF (< cnt 10) "XR0" "XR" ) ;_ end of IF (ITOA cnt) "_" this_n ) ;_ end of STRCAT ) ;_ end of SETQ ) ;_ end of TBLSEARCH (SETQ cnt (1+ cnt)) ) ;_ end of WHILE (COMMAND "-rename" "layer" n new_layer) ) ;_ end of PROGN (COMMAND "-rename" "layer" n this_n) ) ;_ end of if ) ;_ end of PROGN ) ;_ end of if ) ;_ end of foreach ) ;_ end of defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 1 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;