(defun LLTCHANGE (LTYPES / TND) ; LTypeSwap ohne XRef-Layer
  (while (setq TND (tblnext "LAYER" (not TND)))
    (if (wcmatch (cdr(assoc 2 TND)) "~*|*")
        (foreach LTYPE LTYPES
          (if (wcmatch (strcase (cdr(assoc 6 TND))) (strcase(car LTYPE)))
              (command "_.-LAYER" "_ltype" (cadr LTYPE) (cdr(assoc 2 TND)) "")
          )
        )
    )
         
  )
);_defun