Measure lenght of a curve between two point

[maksolino]

hello to all
Rhino question.
it is possible to make a lisp for :
Measure lenght of a curve between two point.
Thanks

[alanjt]

I posted this one a while back...
http://www.theswamp.org/index.php?topic=32677.0


http://www.theswamp.org/screens/alanjt/dbp.gif

[ReMark]

Does Rhino support the use of lisp? I thought it relied upon VBscript?

[alanjt]

Does Rhino support the use of lisp? I thought it relied upon VBscript?
Beats me. :unsure: He said LISP, so that's what I provided.

[ReMark]

Alan. Don't give them what they ask for...give them what they need!:lol:

Maybe the OP can clear up the confusion.:?

[ReMark]

I found a paper written in 2004 that clearly mentions that Rhiniceros uses vbScript.

http://www.rhino3d.com/tutorials/vbscript/RhinoScript.pdf

[alanjt]

Alan. Don't give them what they ask for...give them what they need!:lol:

Maybe the OP can clear up the confusion.:?
LoL, noted. :)

I found a paper written in 2004 that clearly mentions that Rhiniceros uses vbScript.

http://www.rhino3d.com/tutorials/vbscript/RhinoScript.pdf

Well, that answers that question.

[SEANT]

This would be a RhinoScript version of that particular task:


Option Explicit

Sub LenBetweenPts
Dim crv
Dim stParam, ndParam
Dim msg
Dim stpt, ndpt
Dim arrSubDomain(1), dblLen

With Rhino
crv = .GetObject("Pick a curve", 4)
.EnableRedraw False
If (VarType(crv) <> vbString) Then Exit Sub
stpt = .GetPointOnCurve (crv, "Pick first Point:")
If Not IsArray(stpt) Then Exit Sub
stParam = .CurveClosestPoint(crv, stpt)

ndpt = .GetPointOnCurve (crv, "Pick next Point:")
If Not IsArray(ndpt) Then Exit Sub
ndParam = .CurveClosestPoint(crv, ndpt)

If stparam > ndparam Then
arrSubDomain(1) = stParam
arrSubDomain(0) = ndParam
Else
arrSubDomain(0) = stParam
arrSubDomain(1) = ndParam
End If

dblLen = Rhino.CurveLength(crv,, arrSubDomain)

If IsNumeric(dblLen) Then
msg = "Length between points: " & CStr(dblLen)
.Print msg
End If

.EnableRedraw True
End With
End Sub