Add block name to blocks / anonymous blocks

[Anonymous]

Guys and Gals,

Does anybody have a lisp to add the block name to blocks and anonymous blocks?  It could change an attribute, that would be fine. The thing is we use (or should use) blocks, many blocks, in a given layout.  Many some are the same, many are different but they are all used to detail. If I could add the name and anonymous name to an attribute, I could identify them easily.

I see it working this way>

I start the lisp and create a selection set, probably a window.

The lisp goes through the selection and looks for blocks with attribute "XYZ".

For each "XYZ" it finds, it adds the block name and the effective name (if it is a dynamic block).

For you programmer types, this seems "wick'd" easy. 

Any takers?

Thanks!

Don

[Ranjit_Singh · Accepted solution]

Maybe like this. Minimal testing and no error trap.

(defun c:somefunc  (/ ss1 ssobj)
 (if (setq ss1 (ssget '((0 . "insert") (66 . 1))))
  (vlax-for i  (setq ssobj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
   (foreach j  (vlax-invoke i 'getattributes)
    (and (= "XYZ" (vla-get-tagstring j))
         (vla-put-textstring j
                             (strcat (vla-get-name i)
                                     (if (= :vlax-true (vla-get-isdynamicblock i))
                                      (strcat " " (vla-get-effectivename i))
                                      "")))))))
 (princ))

[john.uhden]

I don't think you can rename an anonymous block.  In fact I don't think you can rename block "A" to block "B" unless the definition of block "B" already exists.  I think you would have to find a way to create the new block by copying all the items from the original.  Hopefully I am wrong.

[Anonymous]

Ranjit,

Perfect!  I knew one of you programming animals could jut pop it off like that! Exactly what I wanted!

Thanks!

Don