BarRecord.PrimaryBend
Set/Get the PrimaryBend property
Syntax
bend =
barrecord.PrimaryBend
barrecord.PrimaryBend = bend
Parameters
None
Returns
IBend Interface. Returns an object that implements the IBend
interface
Remarks
The PrimaryBend property must be set. BarRecord objects
are not valid unless you explicitly set the PrimaryBend property.
Example
This example sets the PrimaryBend property of a bar record
Set group =
barlist.Groups("Pier 1")
'Create a new BarRecord and populate
Dim barrecord As New barrecord
barrecord.Mark = "123"
barrecord.Location = "Top Bar"
barrecord.NumReqd = 10
barrecord.Epoxy = False
barrecord.LumpSum = False
barrecord.Substructure = False
barrecord.use = utLongitudinal
barrecord.bardata = bardata
'Create an object that supports the IBend interface
Dim type51 As New type51
type51.U = 10
barrecord.PrimaryBend = type51
Set type51 = Nothing
group.BarRecords.Add barrecord
Set barrecord = Nothing
|