Gets and sets whether or not the line object is closed. | |
Syntax: | GefTriStateEnum = object.Closed object.Closed = GefTriStateEnum |
Description: | Only line (gefLine) objects support this
property. If the line is closed a line segment is drawn between the
starting and ending vertices of the line object. If the object does not support this property the return value is undefined. Example: Sub PolylineFormat_Closed() Dim oCimObj As GefObject Dim oCimPolyFmt As
GefPolylineFormat Set oCimObj = CimGetObject Set oCimPolyFmt =
oCimObj.PolylineFormat If Not oCimPolyFmt Is Nothing
Then Select Case
oCimObj.PolylineFormat.Closed Case
gefStateFalse MsgBox
"The polyLine is not closed" Case
gefStateMixed MsgBox
"The ployline is in an unknown state " & _ "or
is not set" Case
gefStateTrue MsgBox
"The polyline object is closed" End
Select End If End Sub |