public static SketchUpNET.Surface ToSKPGeo(this Autodesk.DesignScript.Geometry.Surface surface)
{
Surface srf = new Surface();
srf.Vertices = new List <Vertex>();
foreach (Autodesk.DesignScript.Geometry.Curve curve in surface.PerimeterCurves())
{
foreach (Autodesk.DesignScript.Geometry.Curve tesselated in curve.ApproximateWithArcAndLineSegments())
{
srf.Vertices.Add(tesselated.StartPoint.ToSKPGeo());
}
}
return(srf);
}
/// <summary>
/// Create Region from Dynamo surface.
/// </summary>
public static Geometry.Region FromDynamo(Autodesk.DesignScript.Geometry.Surface obj)
{
// get all perimeter curves
// curves[] is ordered by the loops of the surface.
// the assumption here is that the loop with the largest circumference (i.e. the outline) is placed first in the array
// for fd definition it is neccessary that the outline is the first contour, the subsequent loops can have any order.
Autodesk.DesignScript.Geometry.Curve[] curves = obj.PerimeterCurves();
// find closed outlines
List <Autodesk.DesignScript.Geometry.Curve> perimeterCurves = new List <Autodesk.DesignScript.Geometry.Curve>();
List <List <Autodesk.DesignScript.Geometry.Curve> > container = new List <List <Autodesk.DesignScript.Geometry.Curve> >();
Autodesk.DesignScript.Geometry.Point pA0, pA1, pB0, pB1;
// control if new perimeter
// this happens is pA0/pA1 != pB0/pB1
for (int idx = 0; idx < curves.Length; idx++)
{
if (idx == 0)
{
perimeterCurves.Add(curves[idx]);
}
else
{
pA0 = curves[idx - 1].StartPoint;
pA1 = curves[idx - 1].EndPoint;
pB0 = curves[idx].StartPoint;
pB1 = curves[idx].EndPoint;
// using Autodesk.DesignScript.Geometry.Point.Equals causes tolerance errors
// instead Autodesk.DesignScript.Geometry.Point.IsAlmostEqualTo is used
// note that this can cause errors as it is unclear what tolerance IsAlmostEqualTo uses
// another alternative would be to create an extension method, Equal(Point point, double tolerance), to Autodesk.DesignScript.Geometry.Point
if (pA0.IsAlmostEqualTo(pB0) || pA0.IsAlmostEqualTo(pB1) || pA1.IsAlmostEqualTo(pB0) || pA1.IsAlmostEqualTo(pB1))
{
perimeterCurves.Add(curves[idx]);
}
// new perimeter
else
{
container.Add(new List <Autodesk.DesignScript.Geometry.Curve>(perimeterCurves));
perimeterCurves.Clear();
perimeterCurves.Add(curves[idx]);
}
}
}
// add last perimeter to container
container.Add(new List <Autodesk.DesignScript.Geometry.Curve>(perimeterCurves));
perimeterCurves.Clear();
// control if direction is consistent
// as FromRhinoBrep.
foreach (List <Autodesk.DesignScript.Geometry.Curve> items in container)
{
// if Contour consists of one curve.
if (items.Count == 1)
{
// check if curve is a Circle
// if curve is not a Circle, raise error.
}
// if Contour consists of more than one curve.
else
{
// using Autodesk.DesignScript.Geometry.Point.Equals causes tolerance errors
// instead Autodesk.DesignScript.Geometry.Point.IsAlmostEqualTo is used
// note that this can cause errors as it is unclear what tolerance IsAlmostEqualTo uses
// another alternative would be to create an extension method, Equal(Point point, double tolerance), to Autodesk.DesignScript.Geometry.Point
for (int idx = 0; idx < items.Count - 1; idx++)
{
// curve a = items[idx]
// curve b = items[idx + 1]
pA0 = items[idx].StartPoint;
pA1 = items[idx].EndPoint;
pB0 = items[idx + 1].StartPoint;
pB1 = items[idx + 1].EndPoint;
if (pA0.IsAlmostEqualTo(pB0))
{
if (idx == 0)
{
items[idx] = items[idx].Reverse();
}
else
{
throw new System.ArgumentException("pA0 == pB0 even though idx != 0. Bad outline.");
}
}
else if (pA0.IsAlmostEqualTo(pB1))
{
if (idx == 0)
{
items[idx] = items[idx].Reverse();
items[idx + 1] = items[idx + 1].Reverse();
}
else
{
throw new System.ArgumentException("pA0 == pB1 even though idx != 0. Bad outline.");
}
}
else if (pA1.IsAlmostEqualTo(pB0))
{
// pass
}
else if (pA1.IsAlmostEqualTo(pB1))
{
items[idx + 1] = items[idx + 1].Reverse();
}
else
{
throw new System.ArgumentException("Can't close outline. Bad outline.");
}
}
}
}
// create contours
List <Geometry.Edge> edges = new List <Geometry.Edge>();
List <Geometry.Contour> contours = new List <Geometry.Contour>();
foreach (List <Autodesk.DesignScript.Geometry.Curve> items in container)
{
foreach (Autodesk.DesignScript.Geometry.Curve curve in items)
{
edges.Add(Geometry.Edge.FromDynamo(curve));
}
contours.Add(new Geometry.Contour(new List <Edge>(edges)));
edges.Clear();
}
// get LCS
FdCoordinateSystem cs = FdCoordinateSystem.FromDynamoSurface(obj);
// return
return(new Geometry.Region(contours, cs));
}
