Topic: overlay blocks

[aswin]

hi.. Is there any way  to place new blocks (overlay) on top of existing blocks without replacing..?

[renkor]

Hello all,

Any suggestions to this?

[ronjonp]

Try this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ _dxf e o p s)
2.   ;; RJP » 2019-01-15
3.   (defun _dxf (c e) (cdr (assoc c (entget e))))
4.   (cond ((and (setq e (car (entsel "\nPick source block: ")))
5.               (= "INSERT" (_dxf 0 e))
6.               (setq s (ssget ":L" '((0 . "insert"))))
7.          )
8.          (ssdel e s)
9.          (setq p (_dxf 10 e))
10.          (setq e (vlax-ename->vla-object e))
11.          (foreach b (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
12.            (setq o (vla-copy e))
13.            (vlax-invoke o 'move p (_dxf 10 b))
14.            ;; (entdel b)
15.          )
16.         )
17.   )
18.   (princ)
19. )

[renkor]

Hello ronjonp,

It works perfectly, thanks!

[ronjonp]

You're welcome!