Dim ent1(0 To 10) As AcadEntity
Dim regionObj1 As Variant
regionObj1 = ThisDrawing.ModelSpace.AddRegion(ent1)
Dim regionObj As Variant
regionObj=regionObj1 .mirror point1,point2 (regionObj1没有mirror方法)
或者
regionObj=regionObj1(0) .mirror point1,point2 (regionObj1(0)没有mirror方法)
大家是如何镜像面域的啊????????????