Topic: Get number of block tags (no selection)

[Lastknownuser]

Hi! I want to know if its possible to find number and names of block tags in drawing, without selection. Example, I have a block called CONS_C1 with tags NUMBER, HEIGHT, LLC, EEC.
I'd like to, just by knowing name of the block, find out number of tags, and names if possible, but the number is mainly what I want.
I tried the following

Code: [Select]

(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq testblock (vla-item (vla-get-blocks doc) "CONS_C1"))And with

Code: [Select]

(vla-get-count testblock)I get some something (number of tags+1), but not sure if its the best way to do what I need.
Any help welcome, thanks!

[Tharwat]

If I got you right, you want to get the number of certain block name inserted into your current DWG then if so here is an example.
NOTE: this works with regular blocks and not with dynamic

Code - Auto/Visual Lisp: [Select]

1. (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "CONS_C1"))))
2.   (alert (strcat "Number of blocks found < "
3.                  (itoa (sslength ss))
4.                  " >"
5.          )
6.   )
7.   (alert "None found !")
8. )

[Lastknownuser]

If I got you right, you want to get the number of certain block name inserted into your current DWG then if so here is an example.
NOTE: this works with regular blocks and not with dynamic

Code - Auto/Visual Lisp: [Select]

1. (if (setq ss (ssget "_X" '((0 . "INSERT") (2 . "CONS_C1"))))
2.   (alert (strcat "Number of blocks found < "
3.                  (itoa (sslength ss))
4.                  " >"
5.          )
6.   )
7.   (alert "None found !")
8. )

No, not really. Block is not inerted into drawing model space. I just know the name of the block, that potentially can be inserted (picture 1).
I'd like to find out number and names of that block attribute tags (not values because the block is not inserted of course). So in this case (picture 2), result would be number of tags: 4, and their names (NUMBER, HEIGHT, LLC, EEC)

[Tharwat]

Something like this ?

Code - Auto/Visual Lisp: [Select]

1. (setq doc (vla-get-activedocument (vlax-get-acad-object)))
2. (vlax-for itm (vla-item (vla-get-blocks doc) "CONS_C1")
3.   (and (= (vla-get-objectname itm) "AcDbAttributeDefinition")
4.        (princ (strcat "\nTag : " (vla-get-tagstring itm) " --- Value : " (vla-get-textstring itm)))
5.   )
6. )
7.  

[Lastknownuser]

Something like this ?

Code - Auto/Visual Lisp: [Select]

1. (setq doc (vla-get-activedocument (vlax-get-acad-object)))
2. (vlax-for itm (vla-item (vla-get-blocks doc) "CONS_C1")
3.   (and (= (vla-get-objectname itm) "AcDbAttributeDefinition")
4.        (princ (strcat "\nTag : " (vla-get-tagstring itm) " --- Value : " (vla-get-textstring itm)))
5.   )
6. )
7.  

Yes, thank you!

[Tharwat]

Yes, thank you!

You're welcome anytime.