大家是如何镜像面域的啊？？？？？？？？？？？？

kingchoice00

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方法）

大家是如何镜像面域的啊？？？？？？？？？？？？