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