Option Explicit 'Script written by 'Script version Thursday, April 15, 2010 8:13:06 AM Sub allPointsOn() Dim arrObjects, Object arrObjects = Rhino.GetObjects( "Select objects for control point display", 671200060, True, True, False ) if isNull( arrObjects ) Then exit sub End If Rhino.EnableRedraw False for each Object in arrObjects Rhino.UnselectAllObjects Rhino.SelectObject Object If rhino.IsPolysurface( Object ) Then Rhino.Command "_noecho _SolidPtOn" Else Rhino.Command "noecho _PointsOn" End If Next Rhino.UnselectAllObjects Rhino.EnableRedraw True End Sub