an AutoLISP routine that lists all the blocks within a selected area with the number of each occurrence.