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