Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (21 sloc) 0.748 kb
' ExtractSrfEditPt.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 ExtractSrfEditPt
Const rhSurface = 8
Dim arrSrf, strSrf, arrPts
arrSrf = Rhino.GetObjects("Select surfaces for edit point extraction", rhSurface, True, True)
If IsArray(arrSrf) Then
For Each strSrf In arrSrf
arrPts = Rhino.SurfaceEditPoints(strSrf)
If IsArray(arrPts) Then
Rhino.AddPoints Rhino.CullDuplicatePoints(arrPts)
End If
End If
End Sub
Jump to Line
Something went wrong with that request. Please try again.