Auto-name&numbering of objects

dale · August 8, 2013, 6:11pm

Here is a simple one:

mcneel/rhino-developer-samples/blob/6/rhinoscript/AutoNameObjects.rvb

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' AutoNameObjects.rvb -- August 2013
' If this code works, it was written by Dale Fugier.
' If not, I don't know who wrote it.
' Works with Rhino 4 and 5.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Sub AutoNameObjects
  
  Dim arrObjects, strPrefix, nDigits, strName, i
  
  arrObjects = Rhino.GetObjects("Select objects to automatically name", 0, True, True)
  If IsNull(arrObjects) Then Exit Sub
    
  strPrefix = Rhino.GetString("Object name prefix")
  If IsNull(strPrefix) Then Exit Sub
    
  nDigits = Len(CStr(UBound(arrObjects) + 1))

This file has been truncated. show original