To use this routine you must do the following:
The selection of the objects is done by means of a window that includes all the punctures including the text of the progressive of the section.
The lisp sums all the areas of the shaders that are in the layer ' ShadingCut” and all areas of the layer shadings “ ShadowFill” and once the selection of the hatches is finished, the attributes of the block of areas are updated, for this the progressive attribute of the block must first be selected, this is an invisible attribute, but the lisp just before the selection shows it and then hides it again, this is done using the command “ Attdisp“, then the attributes of the cut and fill areas will be selected and these will be updated by the values of the areas found. The selected shadings must be in a layer that describes the type of area to obtain, by default the lisp will read two layer names, which are the following: “ ShadingCut'And' ShadowFill'.
