Suavizar políneas

Este es el Script para suavizar polilíneas:

Option Explicit ‘Script para suavizar polilíneas y hacer un offset de las mismas Call SuavizarPolilineas() Sub SuavizarPolilineas() Dim arrCrvs,strCrv, arrPoints,arrPoint Dim K,i,arrNPt,hh,kk, Offset, Degree arrCrvs = Rhino.GetObjects(“Select curves”, 4) Offset = Rhino.GetReal(“Offset?”) Degree = Rhino.GetReal(“Degree?”,3,1,100) If IsNull(arrCrvs) Then Exit Sub ReDim arrCC(UBound(arrCrvs)) hh=0 For Each strCrv In […]