Adiabatic Surface Selector about hive HOT 1 OPEN

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version Wednesday, 14 February 2024 20:50:56

Call Main()
Sub Main()


	' Prompt user to select surfaces
	Dim surfaces
	surfaces = Rhino.GetObjects("Select surfaces", 8) ' 8 corresponds to surface filter
    
	If IsNull(surfaces) Then
		Exit Sub
	End If
    
	' Loop through each selected surface
	Dim surface
	For Each surface In surfaces
		' Get the center of the surface
		Dim surfaceCenter
		surfaceCenter = Rhino.SurfaceAreaCentroid(surface)
        
		' Check if the center is valid
		If Not IsNull(surfaceCenter) Then
			' Add a text dot at the surface center
			Rhino.AddTextDot "Adiabatic", surfaceCenter(0)
		End If
	Next
End Sub