Site Tools


Differences

This shows you the differences between two versions of the page.

Link to this comparison view

developer:scriptsamples:exportcontrolpoints [2015/09/14] (current)
Line 1: Line 1:
 +====== Export Curve Control Points ======
 +> **Developer:​** //​[[developer:​rhinoscript|RhinoScript]]//​
 +> **Summary:​** //How to export the 3D coordinates of a curve'​s control points to a text file.//
 +
 +=====Example=====
 +The following code sample demonstrates how to select a curve object and export the 3D coordinates of its control points to a text file.
 +
 +<code vb>
 +   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
 +
 +</​code>​
 +
 +\\
 +
 +{{tag>​Developer RhinoScript}}
  
developer/scriptsamples/exportcontrolpoints.txt ยท Last modified: 2015/09/14 (external edit)