Adding Block Definitions in Visual LISP

[Lee Mac]

I realise this can be achieved without the use of Visual LISP using entmake, however, I am intrigued as to the Visual LISP alternative, if indeed, there is one.

I have read the help article on "vla-add", but this seems to only require a basepoint and Block name String. So how does one add the necessary objects to the block definition?

Thanks,

Lee

[fixo]

Then you need to add to this block definitions all
of the entities you want
The same way as for vla-add-modelspace but in this case
you need to write:

vla-addline <myblock definition> etc etc
vla-addattribute <myblock definition> etc etc

Sorry for my bad explanation, hope you're understand

~'J'~

[wizman]

just like fixo is saying, think of the block as another space:

	(setq myblockspace
	       (vla-add
		 (vla-get-Blocks
		   (vla-get-ActiveDocument
		     (vlax-get-acad-object)))
			(vlax-3d-point '(0 0 0))
			"testblock"
		))
        (vla-addline myblockspace (vlax-3d-point '(0 0 0)) (vlax-3d-point '(0 1 0)))

[Lee Mac]

Then you need to add to this block definitions all
of the entities you want
The same way as for vla-add-modelspace but in this case
you need to write:

vla-addline <myblock definition> etc etc
vla-addattribute <myblock definition> etc etc

Sorry for my bad explanation, hope you're understand

~'J'~

Yes, I understand perfectly, thanks as always Fixo

[Lee Mac]

Thanks Wizman for the example - much appreciated