VB或VBA操作CAD为什么阵列不了镜像过的圆弧
Dim point1(0 To 2) As DoubleDim 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
