스크립트 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..