How to know the total number of any "text-value"?

Here I come up with another simple but interested routine.
Say you have a ground Floor plan of a commercial building in which you put a text with the value read as "SHOP" in all the rooms which are designated as SHOPs.

This routine will help you to find out the total number of shops in the drawing instantly. Just pick any text value of "SHOP". Within a milli-second, this routine will show you the total number of text entities placed in the whole drawing as "SHOP".
Howzat??
Isn't it good? Cheers.....!!

P.S.:
This selection will also saved thru out the drawing session. i.e. If you want to select all the texts (named as "SHOP") again, then just type
!V1
at the Select objects: prompt.

* TotalNoOfPickedTEXTs.lsp (1Kb)
This command finds out the total number of any picked TEXTVALUE.

Sequence of command lines for this routine:-

Command: TXTV
Pick text entity:

Download : TotalNoOfPickedTEXTs.lsp

Filtering lines/Plines of given length

There is a line with an specified length (say 60cm) in a drawing which represents an "electricity light" symbol. Remember this is not a "block". And we have to count the total number of "light-symbol" with a given line-length of 60cm.
Ofcourse we can use FILTER command. But there is'nt any option in FILTER, to filter out the line with a given length.
So is this LISP... :)

* FILT2.lsp (2Kb)
This command filters Lines/Plines of given length.

Sequence of command lines for this routine:-

Command: FILLP
Pick source LINE/PLINE:
Select objects:

Download : FILT2.LSP