BendData.Use
Get the UseType of this bend data
Syntax
use =
barreocrd.Use
Parameters
None
Returns
UseType. The current value of the Use property
Example
This example displays the Use property
Dim use As
UseType
use = benddata.Use
Dim msg as String
Select Case use
Case utLongitudinal
msg = "Longitudinal"
Case utTransverse
msg = "Transverse"
Case utSeismic
msg = "Seismic"
End Select
MsgBox "This bend data is used for " + msg + " bends"
|