[Нюк]

В общем нужно решить такую задачу - есть две пересекающиеся поверхности, по ним надо создать результирующую - только врехнюю часть или только нижнюю (как на прилагаемом эскизе)
возможно ли такое реализовать в Civile?

Tin для объемов не подходит - нужны абсолютные отметки и дальнейшее сравнение этой поверхности с другими.

[Константин Д]

А чем "определение"->"редактировать"->"вставить поверхность" в определении новой не устраивает?

[trir]

1. Построить поверхность объёмов
2. Получить по ней нулевую линию
3. Использовать её как маску для исходных поверхностей и нарезать на кусочки
4. Объеденить

как то так

[Нюк]

Вот тут описана технология с экспортом точек в эксель, постобработкой и вставкой.
Наверное так сделаю.
Кусочков очень много.

Может еще есть у кого варианты?

[trir]

програмно
1. Построить поверхность объёмов
2. Присвоить её min/max отметки исходных поверхностей

[dorogi-dorogi]

Как уже написали, вставить одну поверхность в другую.

[Нюк]

Сообщение от dorogi-dorogi Как уже написали, вставить одну поверхность в другую.

У меня получается просто, что одна поверхность замещает другую в пределах границ. Но нужный результат не достигается

[dorogi-dorogi]

тогда в два шага:
вытаскиваете линии пересечения поверхностей, в одну из поверхностей вставляете как границы, потом вставляете

[Нюк]

Результат достигнут на основании статьи Игоря Рогачева

Метод довольно быстрый удобный. В случае изменения какой-либо из поверхности построение результирующей занимает минут 20-30 + минут 10-20 на картограмму, итого на приведение всего в соответствие около часа.
Методика хорошо расписана в статье.

Краткий алгоритм:
- создаем единый контур для обоих поверхностей
- создаем группу точек по 1 поверхности, строим точки по сетке с нужным нам шагом
- создаем группу точек по 2 поверхности, строим точки по сетке с идентичными настройками (начальная точка и шаг должны соответствовать, чтобы точки легли на одни и те же координаты)
- экспортируем точки в текстовый файл, далее в эксель и проводим необходимые манипуляции (выбираем наименьшее или суммируем или еще чего-нибудь)
- получаем координаты результирующие и импортируем их в civil для новой поверхности.

От себя добавлю, что точки в эксель лучше копировать точки со всеми тремя координатами и сравнить X Y точек обеих групп, потому что у меня во второй поверхности где-то закралась лишняя точка, и все точки "съехали". Результат был бы неправильный.

[trir]

делов то

Код:

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

[CommandMethod("test2")]
        public void test2()
        {
            CivilDocument cdoc = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument;
            AppServ.Document adoc = AppServ.Application.DocumentManager.MdiActiveDocument;
            Editor ed = adoc.Editor;
            ObjectId surfid1 = cdoc.GetSurfaceIds()[0];
            ObjectId surfid2 = cdoc.GetSurfaceIds()[1];
            using (Transaction tr = adoc.Database.TransactionManager.StartTransaction())
            {
                BlockTable acBlkTbl = (BlockTable)tr.GetObject(adoc.Database.BlockTableId, OpenMode.ForRead);
                BlockTableRecord acBlkTblRec = acBlkTblRec = (BlockTableRecord)tr.GetObject(acBlkTbl[BlockTableRecord.ModelSpace], OpenMode.ForWrite);
                TinSurface surf1 = (TinSurface)tr.GetObject(surfid1, OpenMode.ForRead);
                TinSurface surf2 = (TinSurface)tr.GetObject(surfid2, OpenMode.ForRead);
                TinSurface surf3 = (TinSurface)surf1.Clone();
                acBlkTblRec.AppendEntity(surf3);
                tr.AddNewlyCreatedDBObject(surf3, true);
                surf3.PasteSurface(surfid2);
                Double h;
                List<Point3d> wList = new List<Point3d>();
                foreach (TinSurfaceVertex v in surf3.Vertices)
                {
                    ed.WriteMessage(string.Format("point {0},{1},{2}\n", v.Location.X, v.Location.Y, v.Location.Z));
                    try
                    {
                        h = Math.Min(surf1.FindElevationAtXY(v.Location.X, v.Location.Y),
                                     surf2.FindElevationAtXY(v.Location.X, v.Location.Y));
                        if (h < v.Location.Z) wList.Add(new Point3d(v.Location.X, v.Location.Y, h));
                    }
                    catch (PointNotOnEntityException e)
                    {
                        ed.WriteMessage(e.Message);
                    }
                }            
                foreach (Point3d p in wList)
                {
                    TinSurfaceVertex v = surf3.FindVertexAtXY(p.X, p.Y);
                    surf3.SetVertexElevation(v, p.Z);
                }
                tr.Commit();
            }

[Нюк]

Слабо понимаю lisp, но по общим командам вижу что код делает тот же алгоритм что я описывал.

Подскажите с чего начать изучение lisp для решения подобных задач?

[trir]

это не lisp

[Нюк]

А что это? VBA?
Хотя максимум что я знаю о lisp или vba - что это "фичи" для реализации различных алгоритмов))).

Подскажите - куда смотреть, что изучать чтобы решать подобного рода задачи?

[trir]

https://download.microsoft.com/docum...n/c_sharp2.pdf

[NewNeo]

А не проще вычесть из нулевой поверхности одну из тех, которые надо сложить. Получить поверхность с отрицательными значениями высот, а потом из другой вычесть эту отрицательную поверхность - как раз получится сумма)