r.vetrano
2005-09-11, 04:18 AM
Hi
Have column base plate. Have a Yes/No parameter "Anchor bolts". If I uncheck in properties it will turn off the visibility of the anchor bolts. Created a form called "baseplate" with a checkbox. Can not get the Checkbox to trigger the parameter. Baseplate name is BP1-4 Bolts.
Public Function ChangeBasePlateParam(ByVal elem As Revit.Element)
'
Dim params As Revit.ParameterSet = elem.Parameters
Dim Parameter As Autodesk.Revit.Parameter
Dim ParamElem As Double
Dim ParamQty As Integer
Dim ParamStr As String
For Each Parameter In params
If (Parameter.Definition.Name = "H Width") Then
ParamElem = Val(baseplate.PltHorzWidthBox.Text)
Parameter.Set(ParamElem)
End If
If (Parameter.Definition.Name = "V Width") Then
ParamElem = Val(baseplate.PltVWidthBox.Text)
Parameter.Set(ParamElem)
End If
If (Parameter.Definition.Name = "Anchor bolts") Then
If baseplate.AnchorChkBox.Checked = True Then
Else
End If
End If
Next
End Function
Other parameters work fine.
Thanks
bob v
Have column base plate. Have a Yes/No parameter "Anchor bolts". If I uncheck in properties it will turn off the visibility of the anchor bolts. Created a form called "baseplate" with a checkbox. Can not get the Checkbox to trigger the parameter. Baseplate name is BP1-4 Bolts.
Public Function ChangeBasePlateParam(ByVal elem As Revit.Element)
'
Dim params As Revit.ParameterSet = elem.Parameters
Dim Parameter As Autodesk.Revit.Parameter
Dim ParamElem As Double
Dim ParamQty As Integer
Dim ParamStr As String
For Each Parameter In params
If (Parameter.Definition.Name = "H Width") Then
ParamElem = Val(baseplate.PltHorzWidthBox.Text)
Parameter.Set(ParamElem)
End If
If (Parameter.Definition.Name = "V Width") Then
ParamElem = Val(baseplate.PltVWidthBox.Text)
Parameter.Set(ParamElem)
End If
If (Parameter.Definition.Name = "Anchor bolts") Then
If baseplate.AnchorChkBox.Checked = True Then
Else
End If
End If
Next
End Function
Other parameters work fine.
Thanks
bob v