Набързо направено, мога да предложа това. Работи и с динамични блокове, не ги мести. Малко примига като влиза в блок-едитора.

(defun c:goto0 (/ blk blkname)
(setq blkob (entsel "\nSelect Block >"))
(setq blkname (vla-get-EffectiveName (vlax-ename->vla-object (car blkob))))
(progn
(COMMAND "-BEDIT" blkname)
(command "change" "all" "" "p" "la" "0" "")
(command "bsave")
(command "bclose" "")
)
)