샘플 코드

다음의 샘플 코드는 커브를 선택하고 해당 커브의 3D 좌표값을 텍스트 파일로 내보내는 방법을 소개합니다.

    Sub ExportControlPoints


      'Pick a curve object
      Dim strObject
      strObject = Rhino.GetObject("Select curve", 4)
      If IsNull(strObject) Then Exit Sub


      ' Get the curve's control points
      Dim arrPoints
      arrPoints = Rhino.CurvePoints(strObject)
      If Not IsArray(arrPoints) Then Exit Sub


      ' Prompt the user to specify a file name    
      Dim strFilter, strFileName
      strFilter = "Text File (*.txt)|*.txt|All Files (*.*)|*.*||"
      strFileName = Rhino.SaveFileName("Save Control Points As", strFilter)
      If IsNull(strFileName) Then Exit Sub


      ' Get the file system object
      Dim objFSO, objStream
      Set objFSO = CreateObject("Scripting.FileSystemObject")


      ' Open a text file to write to
      On Error Resume Next
      Set objStream = objFSO.CreateTextFile(strFileName, True)
      If Err Then
        MsgBox Err.Description
        Exit Sub
      End If


      ' Write each point as text to the file
      Dim strPoint, strText
      For Each strPoint In arrPoints
        strText = Rhino.Pt2Str(strPoint)
        objStream.WriteLine(strText)
      Next


      ' Close the file
      objStream.Close


    End Sub
RhinoScript 는 Microsoft 의 ""VBScript"" 언어를 기반으로 한 스크립트 언어입니다. RhinoScript 를 사용하여 Rhino 에 신속하게 기능을 추가하거나 반복적인 작업을 처리할 수 있습니다.
12/27/2007 10:34:53 PM - -211.41.27.121