Topic: How to list all subentitys of a block?

[taner]

Dear all,

How to list all subentitys of a block? thanks!

taner

[Kerry]

What sort of list ?
What information do you want ?

[taner]

What sort of list ?
What information do you want ?

ename of subentity without sequence

[CAB]

Here is an old routine to try.
http://www.theswamp.org/index.php?topic=1173.msg15092#msg15092

[Kerry]

taner, just for interest, what do you propose doing with the entity list when you have it. I'd like to make you aware that the entitys do not reside in the block reference, but in the block definition in the block table. I haven't had a good look at the code Alan referenced, but I'm sure you'll see from that what I mean.

[taner]

when i get the ename list of the subentitys,I can change some kinds of type(such as line,circle)entity's color ,layer etc.

thanks.

[taner]

I solved it finally.

(defun th-subelst-blk (blkname / blk lst)
  (setq blk (vla-item (vla-get-blocks (vla-get-activedocument
                           (vlax-get-acad-object)
                  )
            ) blkname
       )
  )
  (vlax-for each blk (if (/= (vla-get-objectname each) "AcDbBlockReference")
             (setq lst (cons each lst))
             (setq lst (append
               (th-subelst-blk (vla-get-name each))
               lst
             )
             )
           )
  )
  lst
)

[ronjonp]

That works pretty well....but you still have to account for attributes.


*edit From my tests this morning, it grabs attributes too....I'll just shut up now :ugly:. Good Job!

[T.Willey]

That works pretty well....but you still have to account for attributes.


*edit From my tests this morning, it grabs attributes too....I'll just shut up now :ugly:. Good Job!

Depends what attributes you are talking about.  This will grab the attribute definition, not the attribute reference, so if you want to change the existing attributes of the inserts already inserted, then this way will not work.  But if you don't, then it will.