AutoCAD Lisp

I need a lisp written for AutoCAD which counts the number of dynamic blocks according to visibility states and attributes. I design sprinkler irrigation systems. I have dynamic blocks for sprinklers, in which, I use visibility states for watering angles and list attirbute for the radius. Nozzles on the sprinklers can be changed in order to determine the watering distance, namely raduis. Each nozzle have a specific range of watering, and angle of watering can be changed. For each type of nozzle and used angle, there is a floq rate. I mainly need to know the total flow rate / water consumed by the "selected" number of sprinkler blocks. This lisp I need may only give me the total water consumed, but also print a table that has a summary of all nozzles and angles used in the selection set. I will be supplying the dynamic block I have. The consumption data of each sprinkler. I want the lisp to be written clearly that I can change the flow rates and types of nozzles later.