{"id":28,"date":"2008-11-17T18:46:31","date_gmt":"2008-11-17T16:46:31","guid":{"rendered":"https:\/\/blogs.ua.es\/glac\/?p=28"},"modified":"2008-11-23T20:04:31","modified_gmt":"2008-11-23T18:04:31","slug":"ejercicio-20081111-unir-los-puntos","status":"publish","type":"post","link":"https:\/\/blogs.ua.es\/glac\/2008\/11\/17\/ejercicio-20081111-unir-los-puntos\/","title":{"rendered":"Ejercicio 2008.11.11 &#8211; Unir los puntos"},"content":{"rendered":"<p>Una posible soluci\u00f3n al ejercicio que se plante\u00f3 al final de la clase del pasado d\u00eda 11:<\/p>\n<p style=\"text-align: center\"><a href=\"https:\/\/blogs.ua.es\/glac\/files\/2008\/11\/20081111.png\"><img loading=\"lazy\" decoding=\"async\" class=\"aligncenter size-full wp-image-29\" style=\"border: 0pt none\" src=\"https:\/\/blogs.ua.es\/glac\/files\/2008\/11\/20081111.png\" alt=\"\" width=\"500\" height=\"416\" srcset=\"https:\/\/blogs.ua.es\/glac\/files\/2008\/11\/20081111.png 515w, https:\/\/blogs.ua.es\/glac\/files\/2008\/11\/20081111-300x249.png 300w\" sizes=\"auto, (max-width: 500px) 100vw, 500px\" \/><\/a><\/p>\n<p><span style=\"color: #ff0000\">Option Explicit<\/span><\/p>\n<p><span style=\"color: #ff0000\">Dim arrPuntos<br \/>\nDim n<br \/>\nCall Main()<\/span><\/p>\n<p><span style=\"color: #ff0000\">Sub Main()<br \/>\narrPuntos=Rhino.GetPointCoordinates (&#8220;seleccionar los puntos&#8221;)<br \/>\nn=UBound(arrPuntos)+1<br \/>\nRhino.Print(n &amp; &#8221; puntos seleccionados&#8221;)<br \/>\nIf IsArray(arrPuntos) Then<br \/>\nEnlazar()<br \/>\nEnd If<br \/>\nEnd Sub<\/span><\/p>\n<p><span style=\"color: #ff0000\">Function Enlazar()<br \/>\nDim i,j<br \/>\nFor i=0 To UBound(arrPuntos)<br \/>\nFor j=0 To UBound(arrPuntos)<br \/>\nIf i&lt;&gt;j Then<br \/>\nIf Rhino.Distance(arrPuntos(i),arrPuntos(j))&lt;100 Then<br \/>\nRhino.addline arrPuntos(i),arrPuntos(j)<\/span><\/p>\n<p><span style=\"color: #ff0000\">End If<br \/>\nEnd If<br \/>\nNext<br \/>\nNext<br \/>\nEnd Function<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"<p>Una posible soluci\u00f3n al ejercicio que se plante\u00f3 al final de la clase del pasado d\u00eda 11: Option Explicit Dim arrPuntos Dim n Call Main() Sub Main() arrPuntos=Rhino.GetPointCoordinates (&#8220;seleccionar los puntos&#8221;) n=UBound(arrPuntos)+1 Rhino.Print(n &amp; &#8221; puntos seleccionados&#8221;) If IsArray(arrPuntos) Then Enlazar() End If End Sub Function Enlazar() Dim i,j For i=0 To UBound(arrPuntos) For j=0 [&hellip;]<\/p>\n","protected":false},"author":1035,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[835,518],"tags":[3283,167021,3356],"class_list":["post-28","post","type-post","status-publish","format-standard","hentry","category-cursos","category-foro","tag-ceclec","tag-rhinoscript","tag-script"],"_links":{"self":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/28","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\/1035"}],"replies":[{"embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/comments?post=28"}],"version-history":[{"count":10,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/28\/revisions"}],"predecessor-version":[{"id":32,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/28\/revisions\/32"}],"wp:attachment":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/media?parent=28"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/categories?post=28"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/tags?post=28"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}