how to copy a subentity of a block?

[taner]

Dear Sirs.

 

I would like to ask a queation, how to copy the subentity of a block without exploading the block?

 

Thanks very much.

[stevsmith]

Open the block editor and use a simple cut and paste into a new drawing perhaps?

[jammie]

Hi taner

 

If the express tools are installed try NCOPY

 

From the menu Express > Block > Copy Nested Objects

[taner]

thanks!

I wonder if there is anthoer way ,how about using vla method?

[ASMI]

vla-CopyObjects method. Here in post #7 example of copy objects from MInsert block to Model Space http://www.cadtutor.net/forum/showthread.php?t=20429

[wizman]

Please try:

 

(defun c:test (/ basept ent ent_data)
   (vl-load-com)
   (setq ent_data (entget (car (setq ent (nentsel)))))
   (setq basept (cdr (assoc 10 (entget (car (last ent))))))
   (vla-TransformBy
(vlax-ename->vla-object
    (entmakex ent_data)
) ;_ vlax-ename->vla-object
(vlax-tmatrix
    (list
	(list 1. 0. 0. (car basept))
	(list 0. 1. 0. (cadr basept))
	(list 0. 0. 1. (caddr basept))
	(list 0. 0. 0. 1.)
    ) ;_ list
) ;_ vlax-tmatrix
   ) ;_ vla-TransformBy
) ;_ defun

[taner]

(defun copy-fmblk (/ e el newent new-entlst)

(while (and

(setq e (nentselp "\n选择块内实体: "))

(= (length e) 4)

)

(setq el (entget (car e)))

(setq newent (entmakex el))

(vla-transformby (vlax-ename->vla-object newent) (vlax-tmatrix

(caddr e)

)

)

(setq new-entlst (cons newent new-entlst))

)

new-entlst

)

[Lee Mac]

That looks like a similar (if not nigh identical) method to Wizmans

[wizman]

i tested taners version, allows multiple selection and ok also for nested blocks, but needs some extra coding for scaled(uniform/non-uniform) blocks.