0 1 1 634086556068155571 0 6 59 true true 602c705f-158e-4789-80e9-8d94d5ca814c Shaded PT_SelectPanels_Component.ghx 634084987928861371 0 23 34 1 0 0 7 fb6aba99-fead-4e42-b5d8-c6de5ff90ea6 DotNET VB Script 'Check that SelectGrid toggle is set to True, otherwise exit 'This helps protect the component from being implemented whenever the definition is changed If Not SelectPanels Then 'Output points and names P = pt_list SL = sl_list Print("SelectPanels=False") Return End If 'Create list of breps and their seializing data Dim pt_list_temp As New List(Of OnBrep) Dim sl_list_temp As New List(Of Integer) 'Select panels Dim rc As Boolean = SelectPTPanels(pt_list_temp, sl_list_temp) 'make sure selection is not empty If Not rc Then P = pt_list SL = sl_list Print("No successful section") Return End If pt_list = pt_list_temp sl_list = sl_list_temp 'Output points and names P = pt_list SL = sl_list Private Shared pt_list As New List(Of OnBrep) Private Shared sl_list As New List(Of Integer) Function ExtractIndex(ByVal pt_name As String, ByRef s As Integer)As Boolean pt_name = pt_name.Replace(")(", ",") pt_name = pt_name.Replace("(", ",") pt_name = pt_name.Replace(")", ",") If pt_name.EndsWith(",") Then 'Remove it pt_name = pt_name.Remove(pt_name.Length() - 1) End If Dim parts As String() = pt_name.Split(",".ToCharArray()) 'Make sure that each line at least 2 parts If UBound(parts) < 0 Then Return False 'Convert last value to the serial number s = Convert.ToInt32(parts(parts.Length() - 1)) Return True End Function Function SelectPTPanels(ByRef p_list As List(Of OnBrep), ByRef s_list As List(Of Integer)) As Boolean Print("inside select pnels function") Dim go As New MRhinoGetObject() go.SetCommandPrompt("Select panels") go.SetGeometryFilter(IRhinoGetObject.GEOMETRY_TYPE_FILTER.polysrf_object Or IRhinoGetObject.GEOMETRY_TYPE_FILTER.surface_object) go.EnableGroupSelect() go.GetObjects(1, 0) If( go.CommandResult() <> RMA.Rhino.IRhinoCommand.result.success ) Then Return False 'Iterate through all points and isolate their names For i As Integer = 0 To Go.ObjectCount() - 1 Dim brep As OnBrep brep = Go.Object(i).Brep() If brep.IsValid() Then Dim new_brep As New OnBrep() new_brep = brep.Duplicate() 'Add point to points list p_list.Add(new_brep) Dim pt_name As String pt_name = Go.Object(i).Object().Attributes().m_name 'extract serial number from the name Dim rc As Boolean Dim s As Integer rc = ExtractIndex(pt_name, s) If Not rc Then Print("Failed in the loop of SelectPTGrid") Return rc End If s_list.Add(s) End If Next Return True End Function 0 VB bb2af541-38cd-4e23-852f-8d4eda3522d7 false true true longest_list 131 83 127 64 207 85 24 60 219 115 false 1 84fa917c-1ed8-4db3-8be1-7bdc4a6495a2 Variable x Script Variable x true true 3 3ede854e-c753-40eb-84cb-b48008f14fd4 Output Print, Reflect and Error streams true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result A Output parameter A true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Result Data Output parameter Data true false SelectPanels a1c05296-10f2-455d-8cf1-f94c3bb31662 true true true 1 86ea057b-b3b9-4643-853e-25b016f057d2 3cda2745-22ac-4244-9b04-97a5255fa60f true 133 85 74 60 133 85 74 60 170 115 false out 9958094f-82e0-4857-92c7-84d2b2051b3f true true true 0 0 231 85 25 20 231 85 25 20 243.5 95 false P 72e5d137-8f88-4df1-bb49-550c1bdd02ab true true true 0 231 105 25 20 231 105 25 20 243.5 115 false SL 536145c6-d050-4833-9328-0e742ea24cdf true true true 0 231 125 25 20 231 125 25 20 243.5 135 false ad483f40-dc72-40dc-844d-c9e462c7d19f Boolean Toggle false Toggle 86ea057b-b3b9-4643-853e-25b016f057d2 true true true 0 27 97 87 20 27 97 87 20 26.53358 97.38107 false 59e0b89a-e487-49f8-bab8-b5bab16be14c Panel 31a02417-9a92-4e64-8307-7e036e13632a true true true 0 Set to True to select ordered panels, then don't forget to set to false true true true 0 false 255;0;0;0 255;255;250;90 23 38 196 40 23 38 196 40 22.64873 37.93793 false 59e0b89a-e487-49f8-bab8-b5bab16be14c Panel 8823ca2b-15ef-4b7f-9023-c4b0646003be true true true 1 9958094f-82e0-4857-92c7-84d2b2051b3f Double click to edit panel content… true true true 0 false 255;0;0;0 255;255;250;90 318 68 217 36 318 68 217 36 317.8782 67.85638 false cacb2c64-61b5-46db-825d-c61d5d09cc08 Sort List Sort 3085092d-4d0c-447e-af69-636f10428e87 true true true longest_list 318 117 62 44 337 119 24 40 349 139 false 2 3e8ca6be-fda8-4aaf-b5c0-3c54c8bb7312 Keys List of sortable keys 1 true false 8ec86459-bf01-4409-baee-174d0d2b13d0 Values A Optional list of values to sort synchronously 1 true true K a742e2b4-e5ba-479a-a046-d799c778e879 true true true 1 1 536145c6-d050-4833-9328-0e742ea24cdf 0 320 119 17 20 320 119 17 20 328.5 129 false A 9d55aa40-0fec-4148-86ee-e92a4929925c true true true 1 1 72e5d137-8f88-4df1-bb49-550c1bdd02ab 320 139 17 20 320 139 17 20 328.5 149 false K 907ee819-ec07-4f3b-8aa1-7106ef3701f2 true true true 0 0 361 119 17 20 361 119 17 20 369.5 129 false A f2625ade-c2fd-4c7b-acbe-1199eb7b9926 true false true 0 361 139 17 20 361 139 17 20 369.5 149 false 57da07bd-ecab-415d-9d86-af36d7073abc Number Slider Slider 5d2dc95d-45c8-4921-84ce-bcac980cfcb9 true true true 0 231 226 142 20 231 226 42 20 231 226.2 false 0 0 170 4 1 285ddd8a-5398-4a3e-b3c2-361025711a51 List Item Item ad03c2f4-1f39-49e5-b0fe-bb89791d5a6c true true true longest_list 459 170 65 64 481 172 24 60 493 202 false L f7aed5a1-4615-4864-b46e-e2cf4837f63f true true true 1 1 f2625ade-c2fd-4c7b-acbe-1199eb7b9926 461 172 20 20 461 172 20 20 471 182 false i c66d000d-3b34-41e6-965e-c8b769cde612 true true true 1 5d2dc95d-45c8-4921-84ce-bcac980cfcb9 0 461 192 20 20 461 192 20 20 471 202 false W fd3cc7e9-757a-40c3-ae3e-4538f519e0bf true true true 0 1 false 461 212 20 20 461 212 20 20 471 222 false false E 915f3d45-542d-47ea-aaf1-f34fe32df314 true true true 0 505 172 17 60 505 172 17 60 513.5 202 false