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

没有条件测试，但是好像没有什么错误。唯一可能有问题的是pi， VB好像没有这个，需要自己定义成常量或者定义成变量后赋值。
另外，报什么错误，还是执行没有效果？

没有执行！pi有申明