GefArcFormat (object)

Represents the attributes of an arc object.
Description: The GefArcFormat object represents the attributes of an arc object. If the GefObject does not have an ArcFormat property then Nothing is returned.


Sub GefObject_ArcFormat()
    Dim oCimObj As GefObject
    Dim oCimArcFmt As GefArcFormat
    Set oCimObj = CimGetObject
    Set oCimArcFmt = oCimObj.ArcFormat
    If oCimArcFmt Is Nothing Then
        MsgBox "The current object is not an arc"
        MsgBox "The current object is an arc"
    End If
End Sub
Properties: Application , Direction , EndAngle , Parent , StartAngle , Style