FlipX Example
Sub Example_FlipX()
' This example will flip an object that uses an AecAnchorEntToCurve about the curve's X 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.FlipX Then MsgBox "FlipX is True", vbInformation, "FlipX Example" Else MsgBox "FlipX is False", vbInformation, "FlipX Example" End If ' The following line will flip the current anchor curveAnchor.FlipX = Not curveAnchor.FlipX Else MsgBox "Anchor not of type AecAnchorEntToCurve", vbExclamation, "FlipX Example" End If Else MsgBox "Not an AecGeo Object", vbExclamation, "FlipX Example" End If End Sub