{"id":48,"date":"2008-11-19T21:37:36","date_gmt":"2008-11-19T19:37:36","guid":{"rendered":"https:\/\/blogs.ua.es\/glac\/?p=48"},"modified":"2008-11-19T22:34:30","modified_gmt":"2008-11-19T20:34:30","slug":"suavizar-polineas","status":"publish","type":"post","link":"https:\/\/blogs.ua.es\/glac\/2008\/11\/19\/suavizar-polineas\/","title":{"rendered":"Suavizar pol\u00edneas"},"content":{"rendered":"

Este es el Script para suavizar polil\u00edneas:<\/p>\n

\"\"<\/a><\/p>\n

<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
<\/address>\n
Option Explicit<\/span><\/address>\n
‘Script para suavizar polil\u00edneas y hacer un offset de las mismas<\/address>\n
\n<\/address>\n
<\/address>\n
<\/address>\n
Call SuavizarPolilineas()<\/address>\n
<\/address>\n
<\/address>\n
Sub SuavizarPolilineas()<\/address>\n
<\/address>\n
<\/span>Dim arrCrvs,strCrv, arrPoints,arrPoint<\/address>\n
<\/span>Dim K,i,arrNPt,hh,kk, Offset, Degree<\/address>\n
<\/address>\n
<\/span>arrCrvs = Rhino.GetObjects(“Select curves”, 4)<\/address>\n
<\/span>Offset = Rhino.GetReal(“Offset?”)<\/address>\n
<\/span>Degree = Rhino.GetReal(“Degree?”,3,1,100)<\/address>\n
<\/span>If IsNull(arrCrvs) Then Exit Sub<\/address>\n
<\/address>\n
<\/span>ReDim arrCC(UBound(arrCrvs))<\/address>\n
<\/address>\n
<\/span>hh=0<\/address>\n
<\/span>For Each strCrv In arrCrvs<\/address>\n
<\/span>If Rhino.IsPolyline(strCrv) Then<\/address>\n
<\/span>arrPoints = Rhino.PolylineVertices(strCrv)<\/address>\n
<\/address>\n
<\/span>If IsArray(arrPoints) Then<\/address>\n
<\/span>k=UBound(arrPoints)<\/address>\n
<\/span>kk=(k+1)*2-2<\/address>\n
<\/address>\n
<\/span>ReDim arrNPt(kk)<\/address>\n
<\/address>\n
<\/span>Dim nn : nn=0<\/address>\n
<\/address>\n
<\/span>For i=1 To kk Step 2<\/address>\n
<\/span>arrNPt(i) = Array((arrPoints(nn)(0)+arrPoints(nn+1)(0))\/2, (arrPoints(nn)(1)+arrPoints(nn+1)(1))\/2, (arrPoints(nn)(2)+arrPoints(nn+1)(2))\/2 ) <\/address>\n
<\/span>nn=nn+1 <\/address>\n
<\/span>Next<\/address>\n
<\/span>nn=0<\/address>\n
<\/span>For i=0 To kk Step 2<\/address>\n
<\/span>arrNPt(i) = arrPoints(nn)<\/address>\n
<\/span>nn=nn+1<\/address>\n
<\/span>Next<\/address>\n
<\/address>\n
<\/span>arrCC(hh) = Rhino.AddCurve (arrNPt ,Degree)<\/address>\n
<\/span>Dim arrCentro : arrCentro = Rhino.CurveAreaCentroid(arrCC(hh))<\/address>\n
<\/span>Call Rhino.OffsetCurve(arrCC(hh), arrCentro(0), Offset)<\/address>\n
<\/span><\/address>\n
<\/span>hh=hh+1 <\/address>\n
<\/span><\/address>\n
<\/span><\/address>\n
<\/span>End If<\/address>\n
<\/span>End If<\/address>\n
<\/span>Next<\/address>\n

<\/span>Rhino.SelectObjects arrCC<\/p>\n

<\/span>Rhino.DeleteObjects arrCC<\/p>\n

<\/span>Rhino.DeleteObjects arrCrvs<\/p>\n

End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"

Este es el Script para suavizar polil\u00edneas: Option Explicit ‘Script para suavizar polil\u00edneas 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 arrCrvs […]<\/p>\n","protected":false},"author":503,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[835],"tags":[2431,3283,167021],"class_list":["post-48","post","type-post","status-publish","format-standard","hentry","category-cursos","tag-agregar-una-nueva-etiqueta","tag-ceclec","tag-rhinoscript"],"_links":{"self":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/48","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/users\/503"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/comments?post=48"}],"version-history":[{"count":12,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/48\/revisions"}],"predecessor-version":[{"id":61,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/48\/revisions\/61"}],"wp:attachment":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/media?parent=48"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/categories?post=48"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/tags?post=48"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}