Auto-name&numbering of objects

Willem · October 28, 2020, 3:38pm

Hi,

Per email I was requested for a script to auto-name object with numbering:

I would like now to know if it is possible to have a script how create the name of following a number order, as example kn01, kn02, kn03, kn04….
The problem is, all the lines in my project should have a name with an associated number
I would like to select a couple of lines and the script give the names.

Does anyone have such script laying around?
I’m on a tight schedule and cannot help right now.

Cheers
-Willem

dale · June 20, 2018, 2:49pm

Here is a simple one:

github.com

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

stevebaer · August 30, 2013, 7:58pm

Just because it is Friday and we need more python samples, here’s a python version of Dale’s sample

""" August 2013
Shamelessly stolen from Dale's AutoNameObjects.rvb
"""
import rhinoscriptsyntax as rs

def AutoNameObjects():
    msg = "Select objects to automatically name"
    objects = rs.GetObjects(msg, rs.filter.allobjects, True, True)
    if not objects: return
    
    prefix = rs.GetString("Object name prefix")
    if not prefix: return
    
    width = len(str(len(objects)+1))
    for i, obj in enumerate(objects):
        name = prefix + str(i+1).rjust(width, '0')
        rs.ObjectName(obj, name)


AutoNameObjects()

Wee · September 19, 2013, 6:42pm

Anyway to modify one of these scripts to give the same name to duplicate objects regardless of there location and I would only need it to work on closed polysurfaces.

Brian

Helvetosaur · September 19, 2013, 7:50pm

It’s almost impossible to tell if one object is an exact duplicate of another if it has been displaced… One could check a number of criteria - same volume, surface area, number of sub-surfaces etc. but it might not be guaranteed 100% if something tiny has changed.

–Mitch

Wee · September 19, 2013, 8:21pm

Tiny as in 1/16" difference would be fine…Tiny as in 1/8" would not. I work in stone

Mitch I downloaded your scripts and if I run remapobjs to world (3 point) on each one then seldup picks them up…? I’m sure that doesn’t help much.

Brian

carvecream · October 28, 2020, 3:36pm

Will this work in v6?

carvecream · October 28, 2020, 3:37pm

just checked, yes it does.