AutoLISP routine sets the default properties for the Hatch command to those of a selected hatch pattern.