Formato quote

Rhino Windows
1

Esiste il copia formato per non dover rivedere ogni quota?
saluti
Luca

2

Non ho capito se vuoi fare uno stile di quota o altro…

Se si tratta di fare un nuovo stile di quota con lo stesso formato di uno esistente:

Document properties → Annotation Styles

Cliccando su nuovo si può selezionare uno degli stili già esistenti nel documento o tra quelli di default (ovviamente il nuovo stile dovrà avere un nome differente da quello già esistente).
Altro sistema è utilizzare il pulsante match sempre all’interno della stessa finestra (fa il match con uno stile già esistente).

immagine
immagine1132Ă—1276 47.7 KB

Se invece vuoi assegnare alle quote selezionate lo stesso formato di un’altra quota editata, nel pannello properties c’è il pulsante match

immagine
immagine675Ă—1039 25 KB

Nel caso invece vuoi che lo stile di quotatura vada ad adeguarsi con la quota selezionata (che ha degli overrides) basta selezionare lo stile di quotatura e cliccare su “update NOME STILE to match”

immagine
immagine1063Ă—881 73 KB

Per modificare lo stile di quotatura ad una selezione multipla di quote e testi (quindi quote di differente tipologia), invece di cliccare su ogni tab del tipo di quota e selezionare il nuovo stile, mi sono fatto uno script (perchè trovo noioso dover star li a cambiare tab tra quote lineari, angolari, testi…).

2 Mi Piace
3

Grande Lucio! Certi dettagli non li conoscevo … grazie.

1 Mi Piace
4

La seconda che hai detto, grazie Luciooooo

1 Mi Piace
5

Peccato che non sia prevista nativamente una modifica multipla.
@giuseppe si può fare qualche richiesta?

PS lo script è condivisibile? Meglio se fosse in C#

6

Certo che si può fare!

7

Posso farla io in qualche modo e ci pensi tu?

8

Lo script è in vbscript.
Non so se ti serve ma te lo riporto qui.
E’ già pronto da copiare e incollare in un pulsante.

-_Runscript (

Option Explicit
'Script written by Lucio Zadra
'Script copyrighted by Zadra Giuseppe
'Script version venerdì 31 maggio 2024 09:02:04

Call Main()
Sub Main()
	Dim DimStyles, Obj, Objects, CurrentStyle
	Objects = Rhino.GetObjects("Seleziona le quote e i testi a cui modificare lo stile",,, True)
	If Not IsNull(Objects) Then
		DimStyles = Rhino.DimStyleNames
		CurrentStyle = Rhino.CurrentDimStyle
		CurrentStyle = Rhino.ListBox(DimStyles, "Seleziona lo stile di quotatura", "Assegna Sile", CurrentStyle)
		If IsNull(CurrentStyle) Then Exit Sub
		For Each Obj In Objects
			If Rhino.IsDimension(obj) Then
				Rhino.DimensionStyle Obj, CurrentStyle
			ElseIf Rhino.IsText(obj) Then
				Rhino.DimensionStyle Obj, CurrentStyle
			End If
		Next
		
	End If
End Sub

)
1 Mi Piace