TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: valerik88 on July 09, 2016, 03:44:45 AM

Title: How to add to block defenition selected elements through vla funtions?
Post by: valerik88 on July 09, 2016, 03:44:45 AM

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?

Title: Re: How to add to block defenition selected elements through vla funtions?
Post by: roy_043 on July 09, 2016, 05:00:41 AM

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. )

Title: Re: How to add to block defenition selected elements through vla funtions?
Post by: valerik88 on July 09, 2016, 07:24:45 AM

thanks