| Search |
Languages
The following RhinoScript demonstrates how to read a text file containing point coordinates and create an interpolated curve from the points. See the RhinoScript help file for details on running scripts.
Option Explicit
Sub ImportInterpCrv
Dim strFilter, strFileName
strFilter = "Text File (*.txt)|*.txt|All Files (*.*)|*.*||"
strFileName = Rhino.OpenFileName("Open Point File", strFilter)
If IsNull(strFileName) Then Exit Sub
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objFile = objFSO.OpenTextFile(strFileName, 1)
If Err Then
MsgBox Err.Description
Exit Sub
End If
Dim strLine, arrPt, arrPoints(), nCount
nCount = 0
Do While objFile.AtEndOfStream <> True
strLine = objFile.ReadLine
If Not IsNull(strLine) Then
strLine = Replace(strLine, Chr(34), "", 1)
arrPt = Rhino.Str2Pt(strLine)
If IsArray(arrPoint) Then
ReDim Preserve arrPoints(nCount)
arrPoints(nCount) = arrPt
nCount = nCount + 1
End If
End If
Loop
If IsArray(arrPoints) Then
Rhino.AddInterpCurveEx arrPoints
End If
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
End Sub
' Run the script
ImportInterpCrv