[sathalex]

Привет.
Никак не могу передать второй аргумент список 3Д точек.
Формат точек:

Код:

[Выделить все]

(list (list x1 y1 z1) (list x2 y2 z2)...)

Где я что упускаю?
Сам код:

Код:

[Выделить все]

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.EditorInput;
using Autodesk.AutoCAD.Geometry;
using Autodesk.AutoCAD.Runtime;
using System;
using System.Collections.Generic;
using System.Linq;

public class LispFunctions
{
    [LispFunction("CountPointsInsidePolyline")]
    public static int CountPointsInsidePolyline(ResultBuffer args)
    {
        Document doc = Application.DocumentManager.MdiActiveDocument;
        Editor ed = doc.Editor;
        Database db = doc.Database;

        if (args == null)
        {
            ed.WriteMessage("\nОшибка: аргументы не переданы.");
            return 0;
        }

        TypedValue[] argsArray = args.AsArray();
        if (argsArray.Length != 2)
        {
            ed.WriteMessage("\nОшибка: требуется 2 аргумента.");
            return 0;
        }

        if (!(argsArray[0].Value is ObjectId polylineId))
        {
            ed.WriteMessage("\nОшибка: первый аргумент должен быть полилинией.");
            return 0;
        }

        if (!(argsArray[1].Value is ResultBuffer pointsBuffer))
        {
            ed.WriteMessage("\nОшибка: второй аргумент должен быть списком точек.");
            return 0;
        }

        List<Point3d> points = new List<Point3d>();
        try
        {
            foreach (TypedValue tv in pointsBuffer)
            {
                if (tv.TypeCode == (int)LispDataType.ListBegin)
                {
                    ResultBuffer coordBuffer = tv.Value as ResultBuffer;
                    double[] coords = coordBuffer.AsArray()
                        .Take(3)
                        .Select(c => (double)Convert.ChangeType(c.Value, typeof(double)))
                        .ToArray();
                    points.Add(new Point3d(coords[0], coords[1], coords[2]));
                }
            }
        }
        catch (System.Exception)
        {
            ed.WriteMessage("\nОшибка: неверный формат точек.");
            return 0;
        }

        int count = 0;
        using (Transaction tr = db.TransactionManager.StartTransaction())
        {
            try
            {
                Entity entity = tr.GetObject(polylineId, OpenMode.ForRead) as Entity;
                if (entity == null || !IsClosedPolyline(entity))
                {
                    ed.WriteMessage("\nОшибка: объект не является замкнутой полилинией.");
                    return 0;
                }

                if (!(entity is Curve curve))
                {
                    ed.WriteMessage("\nОшибка: объект не является кривой.");
                    return 0;
                }

                List<Point2d> polygon = GetPolygonPoints(curve, tr);

                foreach (Point3d pt in points)
                {
                    Point2d checkPoint = new Point2d(pt.X, pt.Y);
                    if (IsPointInPolygon(polygon, checkPoint))
                        count++;
                }

                tr.Commit();
            }
            catch (System.Exception ex)
            {
                ed.WriteMessage($"\nОшибка: {ex.Message}");
                return 0;
            }
        }

        return count;
    }

    private static bool IsClosedPolyline(Entity entity)
    {
        switch (entity)
        {
            case Polyline pl:
                return pl.Closed;
            case Polyline2d pl2d:
                return pl2d.Closed;
            default:
                return false;
        }
    }

    private static List<Point2d> GetPolygonPoints(Curve curve, Transaction tr)
    {
        List<Point2d> points = new List<Point2d>();

        if (curve is Polyline pl)
        {
            for (int i = 0; i < pl.NumberOfVertices; i++)
            {
                Point3d pt3d = pl.GetPoint3dAt(i);
                points.Add(new Point2d(pt3d.X, pt3d.Y));
            }
        }
        else if (curve is Polyline2d pl2d)
        {
            foreach (ObjectId vxId in pl2d)
            {
                Vertex2d vx = tr.GetObject(vxId, OpenMode.ForRead) as Vertex2d;
                if (vx != null)
                {
                    Point3d pt3d = vx.Position;
                    points.Add(new Point2d(pt3d.X, pt3d.Y));
                }
            }
        }

        return points;
    }

    private static bool IsPointInPolygon(List<Point2d> polygon, Point2d point)
    {
        bool inside = false;
        int count = polygon.Count;

        for (int i = 0, j = count - 1; i < count; j = i++)
        {
            if (((polygon[i].Y > point.Y) != (polygon[j].Y > point.Y)) &&
                (point.X < (polygon[j].X - polygon[i].X) * (point.Y - polygon[i].Y) /
                (polygon[j].Y - polygon[i].Y) + polygon[i].X))
            {
                inside = !inside;
            }
        }

        return inside;
    }
}

[Кулик Алексей aka kpblc]

Студию запускать лениво. А что на самом деле приходит вторым (и далее) в argsArray?

[trir]

(list (list x1 y1 z1) (list x2 y2 z2)...) => List<List<double>>

[Кулик Алексей aka kpblc]

Не уверен.
Скорее всего, будет нечто типа

Код:

[Выделить все]

if (resBuf == null)
{
    throw new ArgumentOutOfRangeException("Надо 2 аргумента");
}

TypedValue[] argsArray = resBuf.AsArray();
if (argsArray.Length <= 2)
{
    throw new ArgumentOutOfRangeException("\nОшибка: требуется 2 аргумента.");
}

ObjectId objId = (ObjectId)argsArray[0].Value;
List<Point3d> pointList = new List<Point3d>();
for (int i = 1; i < argsArray.Length; i++)
{
    TypedValue value = argsArray[i];
    if (value.TypeCode == (int)LispDataType.Point3d)
    {
        pointList.Add((Point3d) value.Value );
    }
}