非常简单但很实用的脚本.不管做异型还是规整的几何体，都能用的上。

脚本如下:

Call Main()

Sub Main()

Const rhObjectCurve = 4

Dim arrObjects,k,n,i,line,line3,t1,t2,t3,po,line1,line2

Dim zi

n=20

zi=0.4

arrObjects = Rhino.GetObjects("Pick curves ", rhObjectCurve )

c=UBound(arrObjects)

ReDim a(c),line1(n),line2(n)
For k=0 To c Step 1

a(k)= Rhino.DivideCurve(arrObjects(k), n)

If k>0 Then

For i =0 To n Step 1

line1(i)=rhino.AddLine (a(k-1)(i),a(k)(i))

If i>0 Then

line2(i)=rhino.AddLine (a(k)(i-1),a(k)(i))

End If

t1=Rhino.CurveLength (line1(i))

po=rhino.CurveMidPoint(line1(i))

Rhino.addtext "NO."&k*n+i+1&"=" & int(t1)*500&"mm" ,po,zi

If i>0 Then

t2=Rhino.CurveLength (line2(i))

po=rhino.CurveMidPoint(line2(i))

Rhino.addtext "NO."&k*n+i+1&"="& int(t2)*500&"mm" ,po,zi

End If

Next

For i=0 To n-1 Step 1

rhino.addloftsrf array(line1(i),line1(i+1))

Next

End If

Next

End Sub