Autonumeracja

[Mazur007]

Witam.

Znacie może jakiś skrypt co auto numeruje pozycje w rhino.

Tak by te same elementy mialy te same numery ?? 

[vv3k4i]

Ale jakie pozycje i jakie elementy? Można jaśniej?

[Mazur007]

Robię wyposażenie na statek. Ściany panele sufitowe itd... Jest tego bardzo dużo, a większość elementów jest taka sama. Chcialbym usprawnić numerację tak by nie wpisywać każdy element oddzielnie, a po prostu puścić skrypt tak by każdy element znumerowal, a dublujące się podpisywal tym samym numerem. Znalazlem kilka skryptów ale one numerują jak leci, a niestety jestem za świeży by zrobić wlasny skrypt albo zmodyfikować kod.

[vv3k4i]

Załącz przykładowy skrypt.

[Mazur007]

 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))
 
  For i = 0 To UBound(arrObjects)

[vv3k4i]

Czy wszystkie "takie same" elementy mają wspólną nazwę? albo może są na jednej warstwie? Albo może każdy  (nie taki sam) element, różni się od innego wymiarami geometrycznymi? Rozumiesz o co mi chodzi? Jak chcesz rozróżnić element z jednej grupy od elementu z drugiej grupy?

[Mazur007]

Rozumiem. Chcialbym by kazdy element o tych samych wymiarach geometrycznych byl pod tym samym numerem.

Przyklad:

-profil 10x10 o dlugosci 1200 ma nr 1. szt 10
-profil 10x10 o dlugosci 1300 ma nr 2. szt 5

[skalanya]

Coś w tym stylu:
https://www.youtube.com/watch?v=ASF8J4W308k&feature=youtu.be

[Mazur007]

Dokladnie o to.