-
Notifications
You must be signed in to change notification settings - Fork 2
/
AllProjectMaterials.vb
77 lines (77 loc) · 1.98 KB
/
AllProjectMaterials.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
''Import the GH stuff
'
'Imports Grasshopper.Kernel
'
'Imports Grasshopper.Kernel.Types
'
'Imports Rhino.Geometry
'
'Imports System
'
'Imports System.IO
'
'Imports System.Diagnostics
'
'Public Class AllProjectMaterials
'
'Inherits GH_Component
'
' 'Constructor
' Public Shared PublicAllProjectMaterialsList As New List(Of String)
' Public Shared PublicAllGerillaMaterialsList As New List(Of String)
'
' Public Sub New()
'
' MyBase.New("All Project Materials", "All Project Materials", "All Project Materials", "Gerilla", "Library")
'
' End Sub
'
' Public Overrides ReadOnly Property ComponentGuid As System.Guid
'
' Get
' Return New Guid("E1195491-A4FD-4604-80EC-5C59BFFC9D80") 'www.createguid.com
' End Get
'
' End Property
'
'
' Protected Overrides Sub RegisterInputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_InputParamManager)
'
' 'This node has no inputs
'
' End Sub
'
'
' Protected Overrides Sub RegisterOutputParams(ByVal pManager As Grasshopper.Kernel.GH_Component.GH_OutputParamManager)
'
' pManager.AddTextParameter("All Materials", "All Materials", "All Materials")
'
' End Sub
'
'
' Protected Overrides Sub SolveInstance(ByVal DA As Grasshopper.Kernel.IGH_DataAccess)
'
' 'Private Variables
'
' 'Trying to use a list to assembly all the variables - didn't work properly to clear the data.
'
' Dim AllProjectMaterialsStringList As New List (Of String)
' Dim AllGerillaMaterialsStringList As New List (Of String)
'
'' PublicAllProjectMaterialsList = AllProjectMaterialsList
'' PublicAllGerillaMaterialsList = AllGerillaMaterialsList
'
'' If (Not DA.GetData(0, grabProjectName)) Then Return
'
' 'Use a Dictionary to complie the list values
'
'
'
' 'Assign Outputs
' DA.SetDataList(0, AllProjectMaterialsStringList)
'
'' PublicAllGerillaMaterialsList.Clear
'
' End Sub
'
'End Class