vla-insertblock not working

[rajeshpatnaik2001]

Hi

The following code works fine to insert a block.

(command "-insert" blk_name "0,0" "1" "1" "0")

I am trying to write the same in visual lisp using the following code.

(vla-insertblock (vla-get-modelspace(vla-get-ActiveDocument (vlax-get-Acad-Object))) blk_name (vlax-3d-point 0 0 0) 1 1 1 0)

But it is showing an error:

; error: lisp value has no coercion to VARIANT with this type: #<variant 8197 ...>

What is wrong with my code??

Thanks.

[rajeshpatnaik2001 · Accepted solution]

I found the issue, position of point and name of the block need to be interchanged.

The corrected code is 

(vla-insertblock  (vla-get-modelspace(vla-get-ActiveDocument (vlax-get-Acad-Object))) (vlax-3d-point 0 0 0) blk_name 1 1 1 0)