Incremental Counter

A tool developed to expedite fabrication. Each click adds text which counts by a specified increment allowing for quick numbering, with your choice of prefixes.

Rhino Script

Option Explicit 
'Script written by <David Mans> 
'Script copyrighted by <Neoarchaic Design> 
'Script version Thursday, June 26, 2008 9:54:36 PM 
Call Main() 
Sub Main() 
	Call sequential() 
End Sub 
Function sequential() 
	sequential = Null 
	Dim pt 
	Dim pre, strt, incr, i 
	pre = Rhino.GetString("Enter Prefix", "", array("")) 
	If pre <> "" Then 
		pre = pre &amp; "_" 
	End If 
	strt = Rhino.GetReal("count from = ", 0) 
	If isNull(strt) Then  Exit Function 
	incr = Rhino.GetReal("increment = ", 1) 
	If isNull(incr) Then Exit Function 
	i = strt 
	Do 
		pt = Rhino.GetPoint("press enter to finish") 
		If isNull(pt) Then Exit Function 
		Call Rhino.AddText(pre &amp; i, pt) 
		i = i + incr 
	Loop 
End Function