Need a lisp that will count blocks until I reach my number (NOT BCOUNT)

[Anonymous]

I have 3 different size blocks that I need to add up to an exact number.  BCOUNT works great but it takes up too much time when I have to select the section with the blocks, press enter and add the blocks with my calculator.  If I'm short I will have to go back and select a few more until I hit my number (which changes per project).  So I need something that will keep on adding these blocks up until I hit the number I need to.  Example below.

Block "ABC" = 1 string

Block "ABCD" = 2 strings

Block "ABCDE" = 3 strings

BCOUNT results 

ABC= 50                                                   50x1=50

ABCD= 75                                                 75x2=150 

ABCDE=12                                                12x3=36

                                                                            236

Hope someone can help me with this.

[Kent1Cooper]

I confess to not quite understanding what you're after.  What are the "strings" mentioned?  [Around here, that word usually refers to a text string.]  Does "add blocks" mean select additional already-drawn Blocks, rather than Insert more new Blocks?  If it's a matter of selecting more, is it the User who selects, rather than a routine finding more?  Is there a relationship between selected ones, such as a proximity limit, or defined areas ["the section with the blocks" mentioned], or some other such thing?  What happens if you select [or Insert?] some more, and the total of "strings" overshoots the target amount?  What happens if you select all of them, and the total is still short to the target?  Etc.

A sample drawing with a selection of such Blocks, and an example of the kind of selection involved, would help.