请问如何用ActiveX方法创建一个块,并包含一些图元?

cag

meflying

(vl-load-com)
(defun c:atx()
  (setq dc (vla-get-activedocument (vlax-get-acad-object)))
  (setq blks (vla-get-blocks dc))
  (setq blk (vla-add blks (vlax-3d-point '(0 0 0)) "1"))
  (vla-addline blk (vlax-3d-point '(0 0 0)) (vlax-3d-point '(100 0 0)))
)