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..
!-_RunScript (Option ExplicitCall Main()Sub Main() Dim Line, Length, Height, Operator, Operator02, LengthCurves, Auxiliary01, Auxiliary02 Dim Point01, Point02, Point03, Point04, Point05 Dim Distance, Shoulder, Angle01, Angle02, Angle00 Do Line = Rhino.GetObject("Choose a curve:") If Not isNull(Line) Then LengthCurves = Rhino.CurveLength(Line) Length = Rhino.GetReal("Length:", 5) Height..