Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Monday, May 26, 2008 1:43:26 PM Call Main() Sub Main() Dim surf surf = Rhino.GetObject(“select surface”,8) If isNull(surf) Then Exit Sub Call reparameterize(surf) Dim arrItems, arrValues, arrResults arrItems = array(“Cell_Colums”,”Cell_Rows”,”Offset”,”Scale_btw_0-1″,”tabHeight”,”cutTemplate”,”surfaces”,”imageScale”,”imageOculi”) arrValues= array(10,10,1,0.4,1,True,True,False,True) arrResults = Rhino.PropertyListBox (arrItems, arrValues ,,”Volume Parameters”) Dim scale, oculi If CBool(arrResults(7)) = [...]
