CADopia - Mirror method

Mirrors an object about an axis defined by two points.

Syntax

object.Mirror(Point1, Point2, [MakeCopy])

Where:

     object is a CADopia entity;

     Point1 and Point2 are CADopia Point objects representing the axis for mirroring;

     MakeCopy is a Boolean variable indicating whether or not to copy the original object.

Mirror method example

Private Sub Mirror_Example()

     Dim myArc As CADopia.Arc

     Dim cenPt As CADopia.Point

     Dim mirrorObj As CADopia.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