GefObject.ArcFormat (read-only property)

Gets the GefArcFormat for the object.
Syntax: Set GefArcFormat = object.ArcFormat
Description: The ArcFormat property is vaild only if the object is an arc. Returns Nothing if this property is not valid for the object.


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