Topic: Redefine all block inside a block

[Andrea]

Hi all,..

I'm trying to found a way to redefine all block inside a block when inserting..
in lisp..

any idea ?

thanks.

[Yoland]

Hi,

http://www.theswamp.org/index.php?topic=4546.msg54979#msg54979

Bye

Yolanda

[T.Willey]

When you know what block you are going to insert, then you can check the blocks definition in the blocks collection, step through it, and find all the objects that are blocks, and then redefine them before you insert.

[Andrea]

Thanks Yoland.....I know the trick..
but it not redefine all block inside a block..
need to search in this block...if there is other blocs..extract the name and redefine them.

When you know what block you are going to insert, then you can check the blocks definition in the blocks collection, step through it, and find all the objects that are blocks, and then redefine them before you insert.

do you think that is the easiest and best way ?

If yes..i'll work on it...

thanks.

[T.Willey]

When you know what block you are going to insert, then you can check the blocks definition in the blocks collection, step through it, and find all the objects that are blocks, and then redefine them before you insert.

do you think that is the easiest and best way ?

I do.  I can't think of a better way, and I do think you will want to do it before you insert it into the drawing so that you don't have to reinsert the new one incase it has attributes.

[RbtDanforth]

As I use block instead of xrefs I ran into the nested block problem a while back. I came up with a pair of programs.
One to wblock all the nested blocks

Code: [Select]

(defun c:wmd (/ a b c d X)
                    (SETQ X (CADDDR (NENTSEL "WBLOCK DEEP PICKS")))
      (FOREACH Q X (setq a(strcat(cdr (assoc 2 (entget Q))) "")
                        b(getfiled "update" a "dwg" 9))
                        (command "WBLOCK"  b a(terpri)))
(TERPRI)
                          )
steps through all the levels in a single line picked wblocking out each nested block starting with the deepest one
and

Code: [Select]

(defun c:Nud (/ a b c d X)
                    (SETQ X (CADDDR (NENTSEL "DEEP PICKS")))
      (FOREACH Q X (setq a(strcat(setq b(cdr (assoc 2 (ENTGET Q))))
                                "=" (setq c (getfiled "update" b "dwg" 8)) )
                            C  (IF(=(substr C 2 1)":")
                               (PRINC (substr C (1+ (strlen(getvar "dwgprefix")))))
                               (PRINC  C))
                            d (- (strlen c) 4)
                            c (substr c 1 d)
                          ) (command "insert" a(terpri))(entupd q))
(TERPRI)
 )
         

will go out looking for blocks of that name and insert them = updating each level.

More recently I have discovered that you can go into a drawing that has the correct block using the Design center and if you right click of the block, just redefining is one of the options. If you do not have a block of that name in your drawing the redefine stuff is greyed out.