![\"\"](\"https:\/\/blogs.ua.es\/glac\/files\/2008\/12\/sunsurfacesplit.jpg\")
<\/a><\/p>\n\u00a0<\/p>\n
\u00a0<\/p>\n
‘Script written by Miguel Mesa<\/p>\n
‘Script copyrighted by {LAC}<\/p>\n
‘Script version martes, 26 de agosto de 2008 3:18:07<\/p>\n
\u00a0<\/p>\n
Call SunSurfaceSplit()<\/p>\n
Sub SunSurfaceSplit()<\/p>\n
<\/span>Dim strSurfaceID : strSurfaceID = Rhino.GetObject(“Selecciona una Superficie”, 8, True, True)<\/p>\n <\/span>Dim strDirSolID: strDirSolID = Rhino.GetObject(“Selecciona Direcci\u00f3n del Sol”, 4, True, True)<\/p>\n <\/span>If IsNull (strSurfaceID) Then Exit Sub<\/p>\n <\/span>If IsNull (strDirSolID) Then Exit Sub<\/p>\n <\/span><\/p>\n <\/span>Dim intCount1 : intCount1 = Rhino.GetInteger(“\u00bfN\u00famero de Frames en u?”, 10, 2, 2000)<\/p>\n <\/span>If IsNull(inCount) Then Exit Sub<\/p>\n <\/span><\/p>\n <\/span>Dim intCount2 : intCount2 = Rhino.GetInteger(“\u00bfN\u00famero de Frames en v?”, 10, 2, 2000)<\/p>\n <\/span><\/p>\n <\/span>Dim uDomain : uDomain = Rhino.SurfaceDomain(strSurfaceID, 0)<\/p>\n <\/span>Dim vDomain : vDomain = Rhino.SurfaceDomain(strSurfaceID, 1)<\/p>\n <\/span><\/p>\n <\/span>Dim uStep : uStep = (uDomain(1) – uDomain(0))\/intCount1<\/p>\n <\/span>Dim vStep : vStep = (vDomain(1) – vDomain(0))\/intCount2<\/p>\n <\/span><\/p>\n <\/span>Dim u, v<\/p>\n <\/span>Dim pt<\/p>\n <\/span>Dim srfFrame<\/p>\n <\/span><\/p>\n <\/span>Call Rhino.EnableRedraw(False)<\/p>\n <\/span>For u = uDomain(0) To uDomain(1) Step uStep<\/p>\n <\/span>For v = vDomain(0) To vDomain(1) Step vStep<\/p>\n <\/span>pt = Rhino.EvaluateSurface(strSurfaceID, Array(u, v))<\/p>\n <\/span>If Rhino.Distance(pt, Rhino.BrepClosestPoint(strSurfaceID, pt)(0)) < 0.1 Then<\/p>\n <\/span>srfFrame = Rhino.SurfaceFrame(strSurfaceID, Array(u, v))<\/p>\n <\/span>Dim VectorPerp : VectorPerp = Rhino.SurfaceNormal(strSurfaceID, Array(u, v))<\/p>\n <\/span>VectorPerp = Rhino.VectorScale(VectorPerp, 10)<\/p>\n <\/span>Dim ExtrudePath : ExtrudePath = Rhino.AddLine(pt,Rhino.VectorAdd(pt,VectorPerp))<\/p>\n <\/span><\/p>\n <\/span>Dim A : A = Rhino.CurveStartPoint(strDirSolID)<\/p>\n <\/span>Dim B : B = Rhino.CurveEndPoint(strDirSolID)<\/p>\n <\/span>Dim C : C = Pt<\/p>\n <\/span>Dim D : D = Rhino.CurveEndPoint(ExtrudePath)<\/p>\n <\/span>‘Dim VSol : VSol = Rhino.VectorCreate(A, B)<\/p>\n <\/span>Dim dblAngulo : dblAngulo = Rhino.Angle2(array(A,B), array(C,D))<\/p>\n \u00a0<\/p>\n <\/span><\/p>\n \u00a0<\/p>\n <\/span>Dim Circle : Circle = Rhino.AddCircle(srfFrame,0.01*dblAngulo(0))<\/p>\n <\/span>Dim Cilindro : Cilindro = Rhino.ExtrudeCurve(Circle,ExtrudePath)<\/p>\n <\/span>Dim CilindroMoved : CilindroMoved = Rhino.MoveObject(Cilindro, pt, Rhino.VectorSubtract(pt, Rhino.VectorDivide(VectorPerp, 2)))<\/p>\n <\/span><\/p>\n \u00a0<\/p>\n <\/span>Dim SplitBrep : SplitBrep = Rhino.SplitBrep(strSurfaceID, CilindroMoved, True)<\/p>\n <\/span><\/p>\n <\/span>If Not IsNull (SplitBrep(0)) Then<\/p>\n <\/span>strSurfaceID = SplitBrep(0)<\/p>\n <\/span>Call Rhino.DeleteObject(SplitBrep(1))<\/p>\n <\/span><\/p>\n <\/span>End If<\/p>\n <\/span>Call Rhino.DeleteObject(CilindroMoved)<\/p>\n <\/span>Call Rhino.DeleteObject(Circle)<\/p>\n <\/span>Call Rhino.DeleteObject(ExtrudePath)<\/p>\n <\/span>End If<\/p>\n <\/span><\/p>\n <\/span>Next <\/span><\/p>\n <\/span>Next<\/p>\n <\/span>Call Rhino.EnableRedraw(True)<\/p>\n End Sub<\/p>\n","protected":false},"excerpt":{"rendered":" \u00a0 Os subimos el script para utilizar la inclinaci\u00f3n del sol como par\u00e1metro que explicamos en la \u00faltima clase \u00a0 \u00a0 ‘Script written by Miguel Mesa ‘Script copyrighted by {LAC} ‘Script version martes, 26 de agosto de 2008 3:18:07 \u00a0 Call SunSurfaceSplit() Sub SunSurfaceSplit() Dim strSurfaceID : strSurfaceID = Rhino.GetObject(“Selecciona una Superficie”, 8, True, True) […]<\/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":[167021],"class_list":["post-108","post","type-post","status-publish","format-standard","hentry","category-cursos","tag-rhinoscript"],"_links":{"self":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/108","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=108"}],"version-history":[{"count":3,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/108\/revisions"}],"predecessor-version":[{"id":112,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/posts\/108\/revisions\/112"}],"wp:attachment":[{"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/media?parent=108"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/categories?post=108"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blogs.ua.es\/glac\/wp-json\/wp\/v2\/tags?post=108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}