CAD VBA 使用函数绘图后阵列的问题

在CAD2007  VBA中，使用自定义的画矩形函数，绘制矩形没问题，但无法矩阵，请问有知道原因的吗（阵列语句放在函数里可以阵列）？

求解，谢谢!

代码：

Option Explicit
Function juxing(jx_x0, jx_y0, jxcd, jxkd As Double) As AcadLWPolyline
    Dim jx As AcadLWPolyline
    Dim jx_pt(0 To 7) As Double
    Dim retObj As Variant
        jx_pt(0) = jx_x0
        jx_pt(1) = jx_y0
        jx_pt(2) = jx_pt(0) + jxcd
        jx_pt(3) = jx_pt(1)
        jx_pt(4) = jx_pt(2)
        jx_pt(5) = jx_pt(3) + jxkd
        jx_pt(6) = jx_pt(0)
        jx_pt(7) = jx_pt(5)
        Set jx = ThisDrawing.ModelSpace.AddLightWeightPolyline(jx_pt) '画矩形
        jx.Closed = True
        'retObj = jx.ArrayRectangular(3, 2, 1, 2000, 4000, 0)     '阵列：行数，列数，层数，行距，列距，层距
        jx.Update
End Function
Private Sub CommandButton1_Click() '绘制箱体
    Dim xiangti As AcadLWPolyline
    Set xiangti = juxing(500, 600, 3000, 800)
    Dim retObj As Variant
    retObj = xiangti.ArrayRectangular(3, 2, 1, 2000, 4000, 0)     '阵列：行数，列数，层数，行距，列距，层距
End Sub