Topic: How to add to block defenition selected elements through vla funtions?

[valerik88]

I have some selected elements:

Code: [Select]

(setq sel (ssget)), ok just one element

Code: [Select]

(setq n (ssname sel 0))
(setq vla vlax-ename->vla-object n)

I make new block definition

Code: [Select]

(setq blocks (vla-get-Blocks active_document))
(setq block_def (vla-add blocks (vlax-3d-point  pt) "blockName"))
How to add selected element n to block defenition block_def?

[roy_043]

Code - Auto/Visual Lisp: [Select]

1. (vlax-invoke
2.   (vla-get-activedocument (vlax-get-acad-object))
3.   'copyobjects
4.   (list (vlax-ename->vla-object n))
5.   block_def
6. )

[valerik88]

thanks