
 (defun c:kix ()
  (setvar "cmdecho" 0)
  (if (setq ss (ssget "x" (list (cons 2 "EXCELSIOR_PERMIT_AB"))))
      (command "change" ss "" "p" "la" "border" ""))

  (if (setq ss (ssget "x" (list (cons 2 "rdatt"))))
      (command "erase" ss ""))

 (princ))