Forum użytkowników programu Rhinoceros 3D

RHINOCEROS => RhinoScript i RhinoPython => Wątek zaczęty przez: Mazur007 w 27 Styczeń 2016, godz.12:05

Tytuł: Autonumeracja
Wiadomość wysłana przez: Mazur007 w 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 ?? 

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: vv3k4i w 28 Styczeń 2016, godz.00:57

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

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: Mazur007 w 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.

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: vv3k4i w 29 Styczeń 2016, godz.00:28

Załącz przykładowy skrypt.

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: Mazur007 w 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)

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: vv3k4i w 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?

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: Mazur007 w 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

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: skalanya w 04 Luty 2016, godz.19:06

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

Tytuł: Odp: Autonumeracja
Wiadomość wysłana przez: Mazur007 w 08 Luty 2016, godz.08:32

Dokladnie o to.