FlipY Example

FlipY Example

Sub Example_FlipY()

 
    ' This example will flip an object that uses an AecAnchorEntToCurve about the curve's Y axis.

    Dim obj As AcadObject
    Dim pnt As Variant
    ThisDrawing.Utility.GetEntity obj, pnt, vbCrLf & "Select a Geo anchored to a Curve"

    If TypeOf obj Is AecGeo Then
    Dim geo As AecGeo
    Set geo = obj
    Dim anchor As AecAnchor
    Set anchor = geo.GetAnchor
    If TypeOf anchor Is AecAnchorEntToCurve Then
            Dim curveAnchor As AecAnchorEntToCurve
            Set curveAnchor = anchor
            If curveAnchor.FlipY Then
                MsgBox "FlipY is True", vbInformation, "FlipY Example"
            Else
                MsgBox "FlipY is False", vbInformation, "FlipY Example"
            End If
            ' The following line will flip the current anchor
            curveAnchor.FlipY = Not curveAnchor.FlipY
        Else
            MsgBox "Anchor not of type AecAnchorEntToCurve", vbExclamation, "FlipY Example"
        End If
    Else
        MsgBox "Not an AecGeo Object", vbExclamation, "FlipY Example"
    End If

End Sub