Copy multiple selected nested blocks from master block to outside.

[brahmanandam.thadikonda762224]

Dear Helpers,
I nead a lisp that should copy selected multiple nested blocks from master block. Suppose I have a master block from a Architect, that contains chairs and tables as blocks inside the master block. The lisp code should copy only the selected nested blocks to outside. Please have a look on attached dwg and image.
I got a lisp code that can copy nested elements from master block, The requirement is instead of copying nested elements the lisp should copy only selected nested blocks from master block.

(defun c:MCN1 (/ lastent ss)
(setq lastent (entlast))
(setq ss (ssadd))
(command "_.ncopy")
(while (> (getvar "cmdactive") 0)
(command pause "0,0" "0,0")
)
(while (setq lastent (entnext lastent))
(ssadd lastent ss)
)
)

Regards,
T.Brahmanandam

[Tom Beauford]

Several ways of doing this
1. Design Center
2. Add a macro to open Design Center with the drawing containing the blocks you need using the ADCNAVIGATE command to make it even simpler.
ex.

^C^C^P(command "adcnavigate" "G:/BeaufordT/Blocks/MUTCD.dwg")

3. Use Lee Mac's Steal from Drawing routine. I use it mainly for Linetypes, Dimension Styles, Text Styles, Layouts, and Page Setups which only scratches the surface. It's my favorite routine of all time. Find it at: http://www.lee-mac.com/programs.html.