izado.
Taller 5 Centro de Diseño Auditorio Principal radio y televisión
comuníquese con nuestro PBX : 57 1.215 1510 ó
inscríbase en mercadeo2@goldsysla.com
…
cenPt As New On3dPoint(0, 0, 0)
Dim tSphere As New OnSphere
Dim rad As Double = 5.0
tSphere.Create(cenPt, rad)
Dim nSphere As New OnNurbsSurface
tSphere.GetNurbForm(nSphere)
Dim tSrf As New OnNurbsSurface
Dim ptList As New List (Of On3dPoint)
ptList.Add(New On3dPoint(-5, -5, 0))
ptList.Add(New On3dPoint(-5, 5, 0))
ptList.Add(New On3dPoint(5, 5, 0))
ptList.Add(New On3dPoint(5, -5, 0))
tSrf = RhUtil.RhinoCreateSurfaceFromCorners(ptList(0), ptList(1), ptList(2), ptList(3))
Dim arrCrv(0) As OnCurve
RHUtil.RhinoIntersectSurfaces(nSphere, tSrf, tol, arrCrv, Nothing)
A = arrCrv…