Mover o ponto de origem do hachurado mais perto da borda do hachurado para melhorar o desempenho

Como mover o ponto de origem do hachurado mais perto da borda do hachurado para melhorar o desempenho

Problema: Como mover o ponto de origem do hachurado mais perto da borda do hachurado para melhorar o desempenho (CADNET-1340).

Dicas: Para fazer isso, obtenha as entidades CadHatch do desenho, defina os pontos necessários com Point2D, calcule a distância e, em CadHatchPatternData, defina LineBasePoint para X e Y.

Exemplo:

foreach (CadBaseEntity entity in cadImage.Entities)
{
    if (entity.TypeName == CadEntityTypeName.HATCH)
    {
        CadHatch hatch = (CadHatch)entity;

        if (hatch.PatternDefinitions.Count > 0)
        {
            Point2D firstPoint = new Point2D(hatch.PatternDefinitions[0].LineBasePoint.X, hatch.PatternDefinitions[0].LineBasePoint.Y);

            if (hatch.BoundaryPaths[0].BoundaryPath[0].GetType() == typeof(CadPolylineBoundaryPath))
            {
                CadPolylineBoundaryPath polyline = (CadPolylineBoundaryPath)(hatch.BoundaryPaths[0].BoundaryPath[0]);
                firstPoint = polyline.Vertices[0];
            }
            else
            {
                CadEdgeBoundaryPath edgePath = (CadEdgeBoundaryPath)(hatch.BoundaryPaths[0].BoundaryPath[0]);

                if (edgePath.Objects[0].GetType() == typeof(CadBoundaryPathLine))
                {
                    CadBoundaryPathLine line = (CadBoundaryPathLine)edgePath.Objects[0];
                    firstPoint = line.FirstPoint;
                }

                if (edgePath.Objects[0].GetType() == typeof(CadBoundaryPathCircularArc))
                {
                    // TODO
                }

                if (edgePath.Objects[0].GetType() == typeof(CadBoundaryPathCircularEllipse))
                {
                    // TODO
                }

                if (edgePath.Objects[0].GetType() == typeof(CadBoundaryPathSpline))
                {
                    // TODO
                }
            }


            bool requiresShift = false;
            double distanceX = 0, distanceY = 0;

            if (Math.Abs(hatch.PatternDefinitions[0].LineBasePoint.X - firstPoint.X) > 20000
                || Math.Abs(hatch.PatternDefinitions[0].LineBasePoint.Y - firstPoint.Y) > 20000)
            {
                requiresShift = true;
                distanceX = hatch.PatternDefinitions[0].LineBasePoint.X - firstPoint.X;
                distanceY = hatch.PatternDefinitions[0].LineBasePoint.Y - firstPoint.Y;
            }

            if (requiresShift)
            {
                foreach (CadHatchPatternData d in hatch.PatternDefinitions)
                {
                    d.LineBasePoint.X -= distanceX;
                    d.LineBasePoint.Y -= distanceY;
                }
            }
        }
    }
}