Untitled

Two things

I created a custom component, and for some reason the geometry does not display as a GH preview in the rhino canvas. All of the outputs are lists of either lines or geometry. Strangly enough, when I bake, the geometry suddenly exists in rhino.

Second, I can seem to figure out how to set default numeric values in the component.

Protected Overrides Sub RegisterInputParams(pManager As Grasshopper.Kernel.GH_Component.GH_InputParamManager)
pManager.AddPointParameter("Focal Point", "FP", "The focal point", GH_ParamAccess.item)
pManager.AddNumberParameter("Focal Point Horiz Dist", "D", "Focal point distance from performance boundary", GH_ParamAccess.item)
pManager.AddNumberParameter("Focal Point Height", "H", "Focal point height above performance boundary", GH_ParamAccess.item)
pManager.AddPointParameter("First Row Start Point", "FR", "Location of first row in tiered seating", GH_ParamAccess.item)
pManager.AddNumberParameter("First Row Horiz Dist", "FRD", "First row distance from performance boundary", GH_ParamAccess.item)
pManager.AddNumberParameter("First Row Height", "FRH", "First row height above performance boundary", GH_ParamAccess.item)
pManager.AddNumberParameter("C Value", "C", "C value", GH_ParamAccess.item)
pManager.AddNumberParameter("Row Width", "RW", "Row width", GH_ParamAccess.item)
pManager.AddIntegerParameter("Number of Rows", "RN", "Number of Rows", GH_ParamAccess.item)
pManager.AddIntegerParameter("Construction Tolerance", "CT", "Construction Tolerance: 1=1in, 2=1/2in, 4=1/4in, 8=1/8in", GH_ParamAccess.item)
pManager.AddNumberParameter("Max Riser Height", "MR", "Maximum riser height allowed", GH_ParamAccess.item)
pManager.AddGeometryParameter("Spectator", "S", "Seated/Standing spectator", GH_ParamAccess.item)
End Sub

Protected Overrides Sub RegisterOutputParams(pManager As Grasshopper.Kernel.GH_Component.GH_OutputParamManager)
pManager.AddLineParameter("Sightlines", "SL", "Sightlines", GH_ParamAccess.list)
pManager.AddLineParameter("C Value", "CL", "Line represents C value height", GH_ParamAccess.list)
pManager.AddLineParameter("Ground Line", "GL", "Ground Line", GH_ParamAccess.list)
pManager.AddLineParameter("Tier tread", "TR", "Line represents tier treads", GH_ParamAccess.list)
pManager.AddLineParameter("Risers", "RI", "Line represents risers", GH_ParamAccess.list)
pManager.AddGeometryParameter("Spectators", "SP", "Seated Standing Spectators", GH_ParamAccess.list)
End Sub

Protected Overrides Sub SolveInstance(DA As IGH_DataAccess)
Dim newLine As New List(Of Line)
Dim newCValue As New List(Of Line)
Dim rowWidthLineList As New List(Of Line)
Dim floorLineList As New List(Of Line)
Dim riserLineList As New List(Of Line)
Dim leghtList As New List(Of String)
Dim newSeated As New List(Of GeometryBase)



Dim inputPoint As Point3d
If (Not DA.GetData(0, inputPoint)) Then Return

Dim viewPointY As Double
If (Not DA.GetData(1, viewPointY)) Then Return

Dim viewPointZ As Double
If (Not DA.GetData(2, viewPointZ)) Then Return

Dim firstRowPoint As Point3d
If (Not DA.GetData(3, firstRowPoint)) Then Return

Dim firstRowY As Double
If (Not DA.GetData(4, firstRowY)) Then Return

Dim firstRowZ As Double
If (Not DA.GetData(5, firstRowZ)) Then Return

Dim cValue As Double
If (Not DA.GetData(6, cValue)) Then Return

Dim rowWidth As Double
If (Not DA.GetData(7, rowWidth)) Then Return

Dim numberOfRows As Integer
If (Not DA.GetData(8, numberOfRows)) Then Return

Dim M As Integer
If (Not DA.GetData(9, M)) Then Return

Dim maxHeight As Double
If (Not DA.GetData(10, maxHeight)) Then Return

Dim seated As GeometryBase
If (Not DA.GetData(11, seated)) Then Return

Call addNewRow(newLine, newCValue, inputPoint, viewPointY, viewPointZ, firstRowPoint, firstRowY, firstRowZ, cValue, numberOfRows, rowWidth, rowWidthLineList, floorLineList, riserLineList, M, maxHeight, seated, newSeated)
DA.SetDataList(0, newLine)
DA.SetDataList(1, newCValue)
DA.SetDataList(2, rowWidthLineList)
DA.SetDataList(3, floorLineList)
DA.SetDataList(4, riserLineList)
DA.SetDataList(5, newSeated)

End Sub

Public Sub addNewRow(---constructor----)
---additional code----
end Sub