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 etc etc

vla-addattribute 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 etc etc

vla-addattribute 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