VB或VBA操作CAD为什么阵列不了镜像过的圆弧

Dim point1(0 To 2) As Double
 Dim point2(0 To 2) As Double
 point1(0) = 0: point1(1) = 0: point1(2) = 0
 point2(0) = (50): point2(1) = 0: point2(2) = 0
 Dim micgyjObj As AcadLWPolyline
 Set micgyjObj = cgArc.Mirror(point1, point2) ' 镜像圆角

 Dim noOfObjects As Integer
 Dim angleToFill As Double
 noOfObjects = 20  ' 阵列个数
 angleToFill = pi * 2 ' 360 度
 Dim armicgyjObj As Variant
 armicgyjObj = micgyjObj.ArrayPolar(noOfObjects, angleToFill, point1) ' 阵列镜像过的圆角
 MoSpace.Update
 ZoomAll