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. Example: 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" Else MsgBox "The
current object is an arc" End If End Sub |