Auto-name&numbering of objects

Willem · 2013-08-08 10:12:58 UTC

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 · 2013-08-08 18:11:58 UTC

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 · 2013-08-30 19:58:53 UTC

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 · 2013-09-19 18:42:52 UTC

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 · 2013-09-19 19:50:36 UTC

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 · 2013-09-19 20:21:16 UTC

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