Mirror method example

Private Sub Mirror_Example()

     Dim myArc As IntelliCAD.Arc

     Dim cenPt As IntelliCAD.Point

     Dim mirrorObj As IntelliCAD.Arc

     Set cenPt = Library.CreatePoint(4, 3)

     'Add the arc to the .dwg

     Set myArc = ThisDocument.ModelSpace.AddArc(cenPt, 4, 1, 3)

     ' Display the entity

     myArc.Update

     ThisDocument.ActiveViewport.ZoomExtents

     'MsgBox "x = " & myArc.startpoint.x & " y = " & myArc.startpoint.y & " x = " & myArc.endpoint.x & " y = " & myArc.endpoint.y

     'MsgBox "rad pt x = " & myArc.center.x & "rad pt y = " & myArc.center.y

     Set mirrorObj = myArc.Mirror(myArc.startpoint, myArc.endpoint)

End Sub