Zaloguj się lub zarejestruj. 29 Marzec 2024, godz.02:07

Autor Wątek: Autonumeracja  (Przeczytany 5527 razy)

Offline Mazur007

  • Użytkownik
  • *
  • Wiadomości: 5
  • Reputacja na forum: +0/-0
Autonumeracja
« dnia: 27 Styczeń 2016, godz.12:05 »
Witam.

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

Tak by te same elementy mialy te same numery ?? 

Offline vv3k4i

  • Członek forum
  • ***
  • Wiadomości: 181
  • Reputacja na forum: +25/-0
Odp: Autonumeracja
« Odpowiedź #1 dnia: 28 Styczeń 2016, godz.00:57 »
Ale jakie pozycje i jakie elementy? Można jaśniej?

Offline Mazur007

  • Użytkownik
  • *
  • Wiadomości: 5
  • Reputacja na forum: +0/-0
Odp: Autonumeracja
« Odpowiedź #2 dnia: 28 Styczeń 2016, godz.09:09 »
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.

Offline vv3k4i

  • Członek forum
  • ***
  • Wiadomości: 181
  • Reputacja na forum: +25/-0
Odp: Autonumeracja
« Odpowiedź #3 dnia: 29 Styczeń 2016, godz.00:28 »
Załącz przykładowy skrypt.

Offline Mazur007

  • Użytkownik
  • *
  • Wiadomości: 5
  • Reputacja na forum: +0/-0
Odp: Autonumeracja
« Odpowiedź #4 dnia: 29 Styczeń 2016, godz.09:16 »
 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)

Offline vv3k4i

  • Członek forum
  • ***
  • Wiadomości: 181
  • Reputacja na forum: +25/-0
Odp: Autonumeracja
« Odpowiedź #5 dnia: 30 Styczeń 2016, godz.23:55 »
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?

Offline Mazur007

  • Użytkownik
  • *
  • Wiadomości: 5
  • Reputacja na forum: +0/-0
Odp: Autonumeracja
« Odpowiedź #6 dnia: 01 Luty 2016, godz.09:18 »
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


Offline skalanya

  • Specjalista
  • ****
  • Wiadomości: 265
  • Reputacja na forum: +19/-0
    • Skalany Architects
Odp: Autonumeracja
« Odpowiedź #7 dnia: 04 Luty 2016, godz.19:06 »

Offline Mazur007

  • Użytkownik
  • *
  • Wiadomości: 5
  • Reputacja na forum: +0/-0
Odp: Autonumeracja
« Odpowiedź #8 dnia: 08 Luty 2016, godz.08:32 »
Dokladnie o to.