[求助]：[求助]：[求助]：我编制的矩形阵列程序如下，请问环形阵列怎样编？

jshua

(defun c:load_Column()
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
        AcadDocument(vla-get-ActiveDocument AcadObject)
        mSpace(vla-get-ModelSpace AcadDocument)
  )
;;;创建块
  (setq xt1 (list 50 50 0))
  (setq xt2 (list  1250 50 0))
  (setq pt1 (list 0 0 0))
  (setq pt2 (list 50 0 0))
  (setq pt3 (list 50 100 0))
  (setq pt4 (list 0  100 0))
  (setq insertionPnt1 (getpoint "指定一点："))
  (setq x1 (car insertionPnt1))
  (setq ff4 (rtos x1 2 0))
  (setq insertionPnt (vlax-3d-point (list 0 0 0)))
  (setq blockObj (vla-add (vla-get-Blocks AcadDocument)insertionPnt  ff4 ))
(defun ax:3D(pt)
  (setq xt(vlax-make-safearray vlax-vbDouble'(0 . 2)))
  (vlax-safearray-fill xt pt)
)  
  ;创建直线
    (setq Lp (vla-addline blockobj  (ax:3D xt1) (ax:3D xt2)))
  ;创建多段线
   (setq pnts(vlax-make-safearray vlax-vbDouble '(0 . 14)))
  (vlax-safearray-fill Pnts (append pt1 pt2 pt3 pt4 pt1))
  (setq lp(vla-AddPolyline blockobj  pnts))

(setq insertPnt (ax:3D insertionPnt1))
;;; 使用图块以及AddMInsertBlock 方法建立一个矩形阵列
  (setq newMBlock(vla-addmInsertBlock mSpace insertPnt  ff4   1 1  3.14159265 3.14159265 10 1 800 0))   
  (vla-ZoomExtents AcadObject)
;;; 显示以 MInsertBlock定义的行与列的信息
  (princ (STRCAT "矩形阵列的组成是: " (ITOA (vla-get-Columns newMBlock)) "行，"
               "间距是: " (RTOS (vla-get-ColumnSpacing newMBlock)) " 与 "

                (ITOA (vla-get-Rows newMBlock)) "列，"

               "间距是: " (RTOS (vla-get-RowSpacing newMBlock)) "\n"))

  (princ)

)