王朔《计算机辅助建筑设计》第十一节-RhinoScript教程.pdfVIP

第十一讲 RhinoScript教程 （参考资料）RhinoScript Primer_Chinese Edition Data Stream Matching* （匹配数据流） 00_Hello,World Option Explicit Call Main() Sub Main() rhino.PrintHello,World End Sub 01_Hello,World_Ver2 Option Explicit Call Main() Sub Main() call HW End Sub sub HW rhino.PrintHello,World_By HW Funciont End Sub RhinoScript编辑器 使用Command的调用方式 Command Runs a Rhino command script. All Rhino commands can be used in command scripts. The command can be a build-in Rhino command or a command that is provided by a 3rd party plug-in. Write command scripts just as you would type the command sequence at the command line. A space between characters or a new line act like pressing Enter at the command line. For more information on writing command scripts, see Scripting in the Rhino help file. Note, this method is designed to run one command and one command only. Do not combine multiple Rhino commands into a single call to this method. For example: WRONG: Rhino.Command _Line _SelLast _Invert CORRECT: Rhino.Command _Line Rhino.Command _SelLast Rhino.Command _Invert Example Rhino.Command _Line 0,0,0 2,2,2 Rhino.Command _Line _Pause _Pause 使用Command的调用方式 Dim dblMajorRadius, dblMinorRadius Dim intSides dblMajorRadius = Rhino.GetReal(Major radius, 10.0, 1.0, 1000.0) dblMinorRadius = Rhino.GetReal(Minor radius, 2.0, 0.1, 100.0) intSides = Rhino.GetInteger(Number of sides, 6, 3, 20) Dim strPoint1, strPoint2 strPoint1 = w dblMajorRadius ,0,0 strPoint2 = w (dblMajorRadius + dblMin