Count Attribute Values of Specified blocks

[Grrr]

Hello,

So I use this Lee Mac's lisp for counting att values, but the problem is that I have too many attributed blocks (for levels, labeling materials, labeling doortype, windowtype and so on..). The table created from my selectionset gets too big with 80% useless information, where I want to extract info from 1 or 2 blocks.

 

My question is: Could someone modify it, to count those attributes of specified blocks?

Example:

1.Select blocks to count their att values

2.Proceed with selectionset and filter only these selected blocks and count their attrib values

 

[Dipesh Kalasaria]

Which lisp do you use ?

[Lee Mac]

As a quick modification, add the following line at line 70 of the code:

(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '([highlight]"A1" "A2"[/highlight]))) alist))

List the attribute tags you wish the program to count.

 

Dipesh, I believe the OP is referring to my Count Attribute Values program.

[Grrr]

Well, thats not quite I was looking for, but it does the job:

 

(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("П1" "П2" "П3" "П4" "П5" "П6" "П7" "П8" "П9" "П10" "П11" "П12" "A1" "A2" "A3" "A4" "A5" "A6" "A7"))) alist))

 

If I don't get *error* too long string on input.

 

Tried:

(setq att-string (getstring T "\nType attribute name to count: "))
(setq alist (vl-remove-if-not '(lambda ( x ) (member (car x) '("att-string"))) alist))

But It didn't work.