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..
스크립트 1!-_RunScript (Option ExplicitCall Main()Sub Main() Dim Point01, Point02, Point03, Point04, Point05, AuxiliaryPoint, Center Dim Angle01, Angle02, Angle03, Angle04 Dim Width, Hypotenuse Dim Operator Dim newFlapLayer : newFlapLayer = "Fold_Lines::Flap_Lines" Dim flapObj, arrFlapObj(3) Dim lineCnt : lineCnt = 0 Width = Rhino.GetReal("Height:",3) Angle02 = Rhino.GetReal("Angle:", 45, 1, 90) An..