Mover um objeto, sem utilizar o comando "move" no lisp

> Olá pessoal
>
> Se eu tivesse tantas respostas como tenho dúvidas, seria rico... :(
>
> Bom, estou tentando mover um objetos utilizando o visual lisp.
> seguem o código...
>
> (defun c:dd ()
> (vl-load-all)
> (setq bb (entsel "teste entidade"))
> (setq ent_bb (vlax-ename->vla-object (car bb)))
> ;ler propriedades
> (vlax-get-property ent_bb "length")
> ;lista ações e propriedade do objeto.
> (vlax-dump-object ent_bb T)
>
> (setq po1 (list 0 0 0))
> (setq po2 (list 500 0 0))
> (vlax-invoke-method ent_bb "Move" po1 po2)
> );defun
>
> por algum motivo, quando chegar o "vlax-invoke-method", dá o seguinte erro...
>
> ; error: lisp value has no coercion to VARIANT with this type: (0 0 0)
>
> alguém sabe o porquê disto???
>
> mais uma vez, obrigado pela atenção de todos...
>