Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Sunday, September 28, 2008 12:18:06 AM Call Main() Sub Main() Dim objects, folder, name, arrResults, arrDrawings objects = Rhino.GetObjects(“Select Objects”) If isNull(objects) Then Exit Sub arrDrawings = Rhino.GetBoolean(“DrawingTypes”, array(“orthoElev”,”no”,”yes”,”auxElev”,”no”,”yes”,”auxTop”,”no”,”yes”,”auxBottom”,”no”,”yes”,”isoTop”,”no”,”yes”,”isoBottom”,”no”,”yes”),array(True,False,False,False,False,True)) arrResults = Rhino.GetBoolean(“Output Options”, array(“drawings”,”no”,”yes”,”renders”,”no”,”yes”),array(True,False)) If arrResults(1) = True Then name=Rhino.GetString(“Enter prefix for jpeg file naming”) [...]
