GPT答：

https://ask.gongduoduo.com

(setq obj (vla-copyobject blk blocks))
              (vla-put-insertionpoint obj '(0.0 0.0 0.0))
              )
            )
          )
        )
      (vla-close DBXDOC :vlax-false)
      ) ; end progn
    ) ; end if
  ) ; end defun