Topic: Block replacement lisp needed

[cadd4la]

Hi everyone,

Looking to see if someone has or can write a lisp for me that will replace existing blocks in a drawing with another one. I'm not looking for it to do it globally (like the one in the express tools) or individual, I need to select the new block, then select the old one, and then do a window around the area and only the selected existing block updates.

Thanks,

Cadd4la

[CAB]

Have you tried this one?
https://www.theswamp.org/index.php?topic=48776.msg538769#msg538769

[cadd4la]

 CAB,

It is only an individual block replacer, I'm looking for on that I can window over a group of different blocks and only replace the blocks that I pre-selected 

Thanks,

Cadd4la

[ChrisCarlson]

Try this

[ronjonp]

Here's a quick one without much error checking:

Code - Auto/Visual Lisp: [Select]

1. (defun c:bswap (/ b1 b2 ss)
2.   (if (and (setq b1 (car (entsel "\nPick block to copy: ")))
3.            (setq b2 (car (entsel "\nPick block to swap: ")))
4.            (setq ss (ssget ":L" (list '(0 . "insert") (assoc 2 (entget b2)))))
5.       )
6.     (foreach b (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
7.       (entmod (subst (assoc 2 (entget b1)) (assoc 2 (entget b)) (entget b)))
8.     )
9.   )
10.   (princ)
11. )

[Grrr1337]

@ronjonp

Be aware of this old picky trick:

Code: [Select]

(cons 2 (cdr (assoc 2 (entget b2))))


Code: [Select]

(assoc 2 (entget b2))


[ronjonp]

@ronjonp

Be aware of this old picky trick:

Code: [Select]

(cons 2 (cdr (assoc 2 (entget b2))))


Code: [Select]

(assoc 2 (entget b2))


Ah yes .. need to finish my coffee before starting to write code.

[cadd4la]

ronjonp,

Thanks, your code works but I also need it to work on dynamic and/or attributed blocks as well.

Regards,

Cadd4la

[ronjonp]

ronjonp,

Thanks, your code works but I also need it to work on dynamic and/or attributed blocks as well.

Regards,

Cadd4la

That's handy info to know before hand