On this same topic, I have tried to make the block using this method, but can't seem to get it to work. I keep getting an error: "Invalid Owner Object".
Here is the current method I am trying:
(vla-copyobjects doc
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbObject (cons 0 (1- (length bLst)))) bLst))
(setq bdef
(vla-add
(vla-get-Blocks doc)
(vlax-3D-point pt) "NewBlock"))
Where bLst is a list of VLA-Objects, doc is the ActiveDocument.
I have also tried this:
(vla-copyobjects doc
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbObject (cons 0 (1- (length bLst)))) bLst))
(vlax-make-variant
(vlax-safearray-fill
(vlax-make-safearray
vlax-vbObject '(0 . 0))
(setq bdef
(vla-add
(vla-get-Blocks doc)
(vlax-3D-point pt) "NewBlock")))))
Also, with no luck.
Any help is appreciated.
Lee