Letter + Num on Line!-_RunScript (Option ExplicitCall Numbering02Sub Numbering02 Dim Number Dim Fontsize, Text Dim arrBod01, arrBod02, arrBod03 Dim arrTextassociate Dim Line01, Line02 Dim UnderlineLength Dim Operator, Letter, Character Dim arrLeaderPoints(1) Operator = 0 Letter = Rhino.GetString("Begin with a:", "A") Number = Rhino.GetReal("Select a number:",1) Fontsize = Rhino.GetReal("Font ..
Simple Numbering!-_RunScript (Option ExplicitCall NumberingSub 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 (arrSuradniceTex..
Num on Line!-_RunScript (Option ExplicitCall Numbering02Sub Numbering02 Dim Number Dim Fontsize, Text Dim arrBod01, arrBod02, arrBod03 Dim arrTextassociate Dim Line01, Line02 Dim UnderlineLength Dim Operator Dim arrLeaderPoints(1) Operator = 0 Number = Rhino.GetReal("Start Number:",1) Fontsize = Rhino.GetReal("Font Size:",2) If Not Rhino.isLayer("Numbers::Parts_Num") Then Rhino.AddLayer "Nu..
Letter+Num in Circle!-_RunScript (Option Explicit'Script written by 'Script copyrighted by 'Script version v1 14.11.2010Call Main()Sub Main() Dim arrBod01, arrBod02 Dim arrArea Dim Circle01, Radius01 Dim Number, FontSize, Shift, Text, LongText, Letter, Charact Dim Operator Letter = Rhino.GetString("Begin with A:", "A") Number = Rhino.GetReal("Select a number:",1) Charact = Asc(Letter) Radius0..
Num in Circle!-_RunScript (Option Explicit'Script written by 'Script copyrighted by 'Script version v1 14.11.2010Call Main()Sub Main() Dim arrBod01, arrBod02 Dim arrArea Dim Circle01, Radius01 Dim Number, FontSize, Shift, Text, LongText Dim Operator Number = Rhino.GetReal("Start Numbers:",1) Radius01 = Rhino.GetReal("Radius of the circle:",2.5) FontSize = Radius01 * 0.8 Operator = 0 If Not Rh..