GefPipeFormat.Radius (property)

Gets and sets the Radius of the pipe.
Syntax: long = object.Radius
object.Radius = long

We can set and get the Radius of PipeObject, valid range for Radius is from 1 to 8.


Sub GefPipeFormat_Radius()
    Dim oCimObj As GefObject
    Dim oCimPipeFmt As GefPipeFormat
    Set oCimObj = CimGetObject
    Set oCimPipeFmt = oCimObj.PipeFormat
    If Not oCimPipeFmt Is Nothing Then
         oCimPipeFmt.Radius = 5
         CimGetScreen.Refresh False
    End If
End Sub