종이모형 설명서 제작용 간단한 번호 생성 라이노 스크립트

Simple Numbering

!-_RunScript (
Option Explicit

Call Numbering

Sub Numbering
	Dim Number
	Dim Fontsize
	Dim Text
	Dim arrSuradniceTextu

	Number = Rhino.GetReal("start number:",1)
	Fontsize = Rhino.GetReal("Font Size:",4)

	If Not Rhino.isLayer("Numbers::Parts_Num") Then
		Rhino.AddLayer "Numbers::Parts_Num"
	End If
  
	Do 
		arrSuradniceTextu = Rhino.GetPoint("Select a location:")
		If Not IsNull (arrSuradniceTextu) Then
			Text = Rhino.AddText (Number, arrSuradniceTextu, Fontsize)
                                          Rhino.TextObjectFont Text, "Arial"
               		Rhino.TextObjectStyle Text,0
			Number = Number + 1
		End If
		Rhino.ObjectLayer Text, "Numbers::Parts_Num"
	Loop Until IsNull(arrSuradniceTextu)
  
End Sub
)

 

 

Simple Num + Letter

!-_RunScript (
Option Explicit

Call Numbering

Sub Numbering
	Dim Number
	Dim Fontsize
	Dim Text, Letter, Character
	Dim arrSuradniceTextu

	Number = Rhino.GetReal("Select a number:",1)
	Letter = Rhino.GetString("Begin with a:", "a")
	Character = Asc(Letter)
	Fontsize = Rhino.GetReal("Font Size:",2.5)

	If Not Rhino.isLayer("Numbers::Parts_Num") Then
		Rhino.AddLayer "Numbers::Parts_Num"
	End If
  
	Do 
		arrSuradniceTextu = Rhino.GetPoint("Select a location:")
		If Not IsNull (arrSuradniceTextu) Then
			Text = Rhino.AddText (Number&Letter, arrSuradniceTextu, Fontsize)
                                          Rhino.TextObjectFont Text, "Arial"
               		Rhino.TextObjectStyle Text,0
			Character = Character + 1
			Letter = Chr(Character)
		End If
		Rhino.ObjectLayer Text, "Numbers::Parts_Num"
	Loop Until IsNull(arrSuradniceTextu)
  
End Sub
)