Call Main()
Sub Main()
Rhino.EnableRedraw False
Rhino.Print “script started”
Dim arrCurves : arrCurves = Rhino.objectsbylayer(“default”)
‘ReDim arrObjs(arrCurves)
‘Dim Counta : Counta = 2
Dim a
For a = 0 To ubound (arrCurves)
Dim strCent : strCent = Rhino.CurveAreaCentroid(arrCurves(a))
Dim dist : dist = exceldata ((a)+2,(4))
‘Rhino.Print dist
Dim newpt : newpt = Array(strCent(0)(0)+(2),strCent(0)(1),strCent(0)(2))
‘Rhino.Print newpt
Dim strpath : strpath = Rhino.addline(strcent(0),newpt)
Dim strNewObj : strNewObj = Rhino.extrudecurve(arrCurves(a),strpath)
‘arrObjs(a) = strNewObj
Rhino.DeleteObject strpath
‘Counta = Counta+1

Next
Rhino.Print “script completed”
Rhino.EnableRedraw True
Rhino.Redraw

End Sub
Function exceldata (a,b)
Dim FileName, file, excel
FileName = “C:\Users\johncameronpalm\Desktop\master\centercitymaster1″
‘If isNull(FileName) Then Exit Function

Set excel = CreateObject(“Excel.Application”)
excel.Visible = False

excel.Workbooks.Open(FileName)
Set file = excel.ActiveSheet

Dim x:x= file.Cells(a,b).Value

Call Rhino.Print(x)

excel.UserControl = True
End Function