Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

52 lines (41 sloc) 1.333 kb
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ImportInterpCrv.rvb -- September 2007
' If this code works, it was written by Dale Fugier.
' If not, I don't know who wrote it.
' Works with Rhino 4.0.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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
Jump to Line
Something went wrong with that request. Please try again.