Gets and sets the Radius of the pipe. | |
Syntax: | long = object.Radius object.Radius = long |
Description: | We can set and get the Radius of PipeObject, valid range for Radius is from 1 to 8. Example: 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 |