BarRecord.VariesBend
Set/Get the VariesBend property
Syntax
bend =
barrecord.VariesBend
barrecord.VariesBend = bend
Parameters
None
Returns
IBend Interface. Returns an object that implements the IBend
interface
Remarks
To remove a VariesBend from a bar record, set this property
to Nothing.
The VariesBend must be of the same type as the PrimaryBend
object.
Example
This example sets the VariesBend 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 primaryBend As New type51
primaryBend.U = 10
barrecord.PrimaryBend = primaryBend
Set primaryBend = Nothing
'Create an object that supports the IBend interface
Dim variesBend As New type51
variesBend.U = 20
barrecord.VariesBend = variesBend
Set variesBend = Nothing
group.BarRecords.Add barrecord
Set barrecord = Nothing
|