(DEFUN c:fixpattlayers ()
  (SETQ ss (SSGET "X" '((0 . "~HATCH") (8 . "*PATT"))))
  (SETQ ssl (SSLENGTH ss))
  (SETQ cnt 0)
  (WHILE (< cnt ssl)
    (SETQ oldentdat (ENTGET (SSNAME ss cnt)))
    (SETQ entdat
           (SUBST (CONS 8
                        (STRCAT (SUBSTR (CDR (ASSOC 8 oldentdat)) 1 (- (STRLEN (CDR (ASSOC 8 oldentdat))) 4)) "BNDY")
                  ) ;_ end of CONS
                  (ASSOC 8 oldentdat)
                  oldentdat
           ) ;_ end of SUBST
    ) ;_ end of SETQ
    (ENTMOD entdat)
    (SETQ cnt (1+ cnt))
  ) ;_ end of while
) ;_ end of DEFUN

;|«Visual LISP© Format Options»
(120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
;*** DO NOT add text below the comment! ***|;