GPT答：

7i24.cn

(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