Печать страницы - Разрезать Region

ADN Club => AutoCAD .NET API => Тема начата: Андрей Бушман от 26-05-2014, 14:08:29

Название: Разрезать Region
Отправлено: Андрей Бушман от 26-05-2014, 14:08:29

Необходимо некоторый region нарезать сеткой с заданным шагом по оси X (dx) и по оси Y (dy). На выходе должны получиться новые объекты region.

На данный момент программно делаю так:
1. Выдавливаю исходный Region в Solid3D.
2. Нарезаю полученный Solid3d сеткой (по оси X и по оси Y). На выходе - огромное количество "ломтиков" (новых объектов Solid3d).
3. Выполняю Explode для каждого Solid3d и удаляю все полученные объекты Region, кроме того, который лежит в основании.

Примечание: Все промежуточные Solid3d инициализирую в блоке using, тем самым автоматически вызывая для них Dispose, т.к. не добавляю их в Database. Добавляю в Database только новые Region.

Хотелось бы выполнять операцию более быстро, минуя промежуточные шаги с использованием Solid3D. Есть ли более быстрый способ сделать это средствами API AutoCAD?

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 26-05-2014, 14:31:02

Цитата: Андрей Бушман от 26-05-2014, 14:08:29

Хотелось бы выполнять операцию более быстро, минуя промежуточные шаги с использованием Solid3D. Есть ли более быстрый способ сделать это средствами API AutoCAD?

У класса Region есть метод BooleanOperation, который теоретически может помочь. Т.е. можно создать эталонный Region размером [dx dy] и, сдвигая его по сетке в границах исходного региона, выполнить пересечение (BoolIntersect) исходного Region с эталонным.
Не уверен, что этот способ будет более быстрым, но попробовать можешь.
Тут возможна еще оптимизация при помощи Brep, если границы эталонного Region находятся внутри исходного Region и не пересекают его, то результирующий Region равен эталонному, а если пересечения границ нет вообще, то эталонный Region вне исходного.

Название: Re: Разрезать Region
Отправлено: German от 26-05-2014, 15:19:01

Цитата: Александр Ривилис от 26-05-2014, 14:31:02

Т.е. можно создать эталонный Region размером [dx dy] и, сдвигая его по сетке в границах исходного региона

Может не сдвигать, а сразу прямоугольный массив создать?

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 26-05-2014, 15:24:36

Цитата: German от 26-05-2014, 15:19:01

Может не сдвигать, а сразу прямоугольный массив создать?

Думаю что тут будут большие расходы по памяти если достаточно большой исходный регион.

Название: Re: Разрезать Region
Отправлено: Дима_ от 26-05-2014, 18:05:07

Цитата: German от 26-05-2014, 15:19:01

Не уверен, что этот способ будет более быстрым, но попробовать можешь.

Я думаю производительность алгоритмов в данном случае будет зависеть от исходных данных (то есть будут случаи когда выигрывает один на одних исходных данных, и проигрывает на других) - в общем смотреть что ближе к "среднестатистическому использованию".
з.ы. но в общем да способ "кривоватый"...

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 27-05-2014, 22:37:46

Цитата: Александр Ривилис от 26-05-2014, 14:31:02

У класса Region есть метод BooleanOperation, который теоретически может помочь. Т.е. можно создать эталонный Region размером [dx dy] и, сдвигая его по сетке в границах исходного региона, выполнить пересечение (BoolIntersect) исходного Region с эталонным.
Не уверен, что этот способ будет более быстрым, но попробовать можешь.

Так и сделал. Прироста производительности по сравнению с этим (http://adn-cis.org/forum/index.php?topic=495.msg1538#msg1538) не наблюдаю (примерно то на то и выходит по времени), однако есть и положительный момент: корректно обрабатываются регионы, выполненные сплайнами.

Цитировать

Тут возможна еще оптимизация при помощи Brep, если границы эталонного Region находятся внутри исходного Region и не пересекают его, то результирующий Region равен эталонному, а если пересечения границ нет вообще, то эталонный Region вне исходного.

Завтра добавлю эту оптимизацию. Надеюсь, что после этого скорость работы всё же увеличится.

В качестве дополнительной оптимизации попробую распараллелить все манипуляции с регионами по разным потокам. Исхожу из того, что весь процесс происходит без привлечения Database и Application; зачистку промежуточных результатов выполняю самостоятельно посредством вызова Dispose на экземплярах классов AutoCAD .NET API. Не факт, что AutoCAD не умрёт после этого, но попробовать стоит, имхо...

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 28-05-2014, 00:13:54

Цитата: Андрей Бушман от 27-05-2014, 22:37:46

В качестве дополнительной оптимизации попробую распараллелить все манипуляции с регионами по разным потокам. Исхожу из того, что весь процесс происходит без привлечения Database и Application;

Так как все объекты из пространства имён Autodesk.AutoCAD.DatabaseServices есть ни что иное как обертки над ObjectARX классами AcDb из библиотеки acdbxx.dll, которая в свою очередь не является потокобезопасной, я бы поостерегся это делать. Во всяком случае рекомендую оставить этот вид оптимизации на потом.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 28-05-2014, 11:09:55

Цитата: Александр Ривилис от 28-05-2014, 00:13:54

обертки над ObjectARX классами AcDb из библиотеки acdbxx.dll, которая в свою очередь не является потокобезопасной, я бы поостерегся это делать.

Ок, спасибо, пожалуй откажусь от этой идеи.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 28-05-2014, 23:12:45

Цитата: Андрей Бушман от 27-05-2014, 22:37:46

Цитировать
Тут возможна еще оптимизация при помощи Brep, если границы эталонного Region находятся внутри исходного Region и не пересекают его, то результирующий Region равен эталонному, а если пересечения границ нет вообще, то эталонный Region вне исходного.

Завтра добавлю эту оптимизацию. Надеюсь, что после этого скорость работы всё же увеличится.

Как оказалось, данная оптимизация оказалась невозможной, т.к. в ряде случаев приводит к некорректным результатам проверки.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 30-05-2014, 13:16:11

В ADN DevHelp подтвердили баг метода BrepEntity.GetMassProperties, т.е. с его помощью в AutoCAD .NET API получать Centroid для Region и Solid3d нельзя.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 30-05-2014, 13:24:01

Цитата: Александр Ривилис от 30-05-2014, 13:16:11

В ADN DevHelp подтвердили баг

А ведь помнится вы утверждали, что в Autodesk тестируют код... Ну и как же они его тестируют, когда обозначенный функционал не работает ни в 2009-м, ни в 2015-м? Что-то мне подсказывает, что все промежуточные версии покажут тот же результат.

Практика показывает, что тестирование компании Autodesk очень напоминает способ "скомпилировалось, значит всё в порядке". Первая же проверка обозначенного функционала сразу бы выявила его неработоспособность. Отсюда вывод: этот свой код в Autodesk даже и не пытались тестировать.

Видимо у нас с вами разные понятия о тестировании...

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 30-05-2014, 13:27:26

Цитата: Андрей Бушман от 30-05-2014, 13:24:01

А ведь помнится вы утверждали, что в Autodesk тестируют код...

Это у тебя склероз проявляется. ;) Я утверждал, что тестируют сам AutoCAD, но не код. Код тестируется (как я понимаю) тот, который они сами используют. Так вот им видимо в голову не пришло использовать managed код для BREP - только native. IMHO.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 30-05-2014, 13:36:00

Цитата: Александр Ривилис от 30-05-2014, 13:27:26

Код тестируется (как я понимаю) тот, который они сами используют.

Тогда удивляться не приходится.

Название: Re: Разрезать Region
Отправлено: Дима_ от 31-05-2014, 13:32:57

Как не странно, паралельно решал схожую проблему (не совсем ту - но тоже с region'ами), есть вариант оптимизации - нужно, как и предлагал А. Ривилис, "гнать" прямоугольник, но заниматься Intersect'ом не на каждой итерации - а анализируя геометрию прохождения границ (строки 55-65): вот "нарезал" из своих кусков:

Код - C# [Выбрать]

open Autodesk.AutoCAD.ApplicationServices 
open Autodesk.AutoCAD.Runtime
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.Geometry
 
let (|AcEnt|AcNum|AcUnknow|) (x:TypedValue)=
  enum<LispDataType>(x.TypeCode|>int)|>function
    |LispDataType.ObjectId->AcEnt(x.Value:?>ObjectId)
    |LispDataType.Int16->AcNum(x.Value:?>int16|>float)
    |LispDataType.Int32->AcNum(x.Value:?>int|>float)
    |LispDataType.Double->AcNum(x.Value:?>float)
    |_->AcUnknow
 
let Rb=function
  |null->[]
  |(rb:ResultBuffer)->rb.AsArray()|>Array.toList
 
let Init()= 
  let doc=Application.DocumentManager.MdiActiveDocument
  doc,doc.Editor,doc.Database,doc.TransactionManager.StartTransaction
 
[<LispFunction "NAREZ">]
let Narez arg=
  let doc,ed,db,trf=Init()
  let MakeRegion (pt1:Point3d) width height=
    let cl=new DBObjectCollection()
    new Polyline2d(Poly2dType.SimplePoly,new Point3dCollection([|pt1
                                                                 new Point3d(pt1.X+width,pt1.Y,pt1.Z)
                                                                 new Point3d(pt1.X+width,pt1.Y+height,pt1.Z)
                                                                 new Point3d(pt1.X,pt1.Y+height,pt1.Z)|]),
                   0.0,true,0.0,0.0,new DoubleCollection([|0.0;0.0;0.0;0.0|]))|>cl.Add|>ignore
    Region.CreateFromCurves(cl).[0]:?>Region
  arg|>Rb|>function
    |[AcEnt id;AcNum width;AcNum height]->
            let start=System.DateTime.Now
            use tr=trf()
            tr.GetObject(id,OpenMode.ForWrite)|>function
            | :? Region as rg->let ext=rg.GeometricExtents
                               let block=tr.GetObject(rg.BlockId,OpenMode.ForWrite):?>BlockTableRecord
                               let AppendEnt ent=
                                   block.AppendEntity ent|>ignore
                                   tr.AddNewlyCreatedDBObject(ent,true)
                               let obr=MakeRegion ext.MinPoint width height
                               let mtw=Matrix3d.Displacement(new Vector3d(width,0.0,0.0))
                               let mth=Matrix3d.Displacement(new Vector3d(-width*(((ext.MaxPoint.X-ext.MinPoint.X)/width|>int)+1|>float),height,0.0))
                               {0..(ext.MaxPoint.Y-ext.MinPoint.Y)/height|>int}
                                    |>Seq.iter (fun _ ->{0..(ext.MaxPoint.X-ext.MinPoint.X)/width|>int}
                                                                |>Seq.fold (fun (next,check) _ ->
                                                                                let cl=(obr.Clone():?>Region)
                                                                                obr.TransformBy(mtw)
                                                                                let pc=new Point3dCollection()
                                                                                cl.IntersectWith(rg,Intersect.ExtendThis,pc,0,0)
                                                                                let inters()=cl.BooleanOperation(BooleanOperationType.BoolIntersect,rg.Clone():?>Region)
                                                                                             cl.Area<0.0000001
                                                                                (pc.Count>0,next,check)|>function
                                                                                  |true,_,_ when inters()->cl.Dispose()
                                                                                                           (false,true)
                                                                                  |true,_,_->AppendEnt cl
                                                                                             (false,true)
                                                                                  |_,_,true when inters()->cl.Dispose()
                                                                                                           (false,false)
                                                                                  |_,_,true|_,true,_->AppendEnt cl
                                                                                                      (true,false)
                                                                                  |_->cl.Dispose()
                                                                                      (false,false))
                                                                           (false,false)|>ignore
                                                        obr.TransformBy(mth))
                               obr.Dispose()
            |_->ed.WriteMessage("Работаем только с Region'ами...\n")
            tr.Commit()
            "Затраченное время: "+string(System.DateTime.Now-start)+"\n"|>ed.WriteMessage
    |_->ed.WriteMessage("Неверный тип аргументов - пример (narez (entlast) 10 10)\n")

Реализованна как лисп функция формат вызова (narez <ename> ширина_сегмента высота_сегмента); проверь идет ли с твоими тестовыми образцами и быстрее-ли.
Скомпилированную для 2014 прикладываю.
p.s. исправил код (стр. 68) - но не вложение.
p.p.s. вложение исправил - но только под 2010.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 14:14:35

Цитировать

вот "нарезал" из своих кусков:

Спасибо, правда для меня F# как китайская азбука.

Цитировать

Реализованна как лисп функция формат вызова (narez <ename> ширина_сегмента высота_сегмента); проверь идет ли с твоими тестовыми образцами и быстрее-ли.
Скомпилированную для 2014 прикладываю.

Очень неудобны следующие моменты:
1. Ctrl + Z отменяет не только то, что выполнила lisp-функция narez. Т.е. по хорошему, в коде должна быть выполнена группировка операций, которые будут отменяться по Ctrl + z, не захватывая при этом лишнего.
2. Я использовал (narez (car(entsel)) 10 10) в тестах. Очень неудобно, что выбирать приходится по одному. Попробовал так: (narez (ssget) 10 10), но не работает. Поскольку мои познания в LISP активно стремятся к нулю, то вполне возможно, что выбрать несколько можно, да я не знаю как - в этом случае прошу показать пример.

Мой вариант решения был показан здесь (http://bushman-andrey.blogspot.ru/2014/05/regions_29.html). На первый взгляд твой код работает быстрее (полагаю, что так будет и на второй, и на третий :) ). Но чтобы было удобно тестировать, было бы неплохо подправить моменты, обозначенные выше.

Спасибо.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 14:42:25

Обнаружил ошибку в результате работы своего кода... Слева направо: регион на основе сплайна, результат narez, результат meshregions. В моём результате присутствует щель между первым и вторым рядом, как показано на скрине. При резке других регионов такого нет.

Ещё обнаружил, что при сильном приближении конур моих полученных регионов не совпадает с контуром исходного региона, подлежащего резке. На третьем скрине нижняя зелёная линия - контур исходного региона, а верхняя - контур полученных резкой (выполнен regen). Это случай, когда исходный регион был создан на основе окружности. Эта проблема наблюдается как в моём решении, так и в narez.

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 14:52:22

ИХМО для автокада лисп хоть немного, но знать необходимо (чтоб велосипеды не делать), по первому вопросу - ну тож функция, а не команда - подразумевается, что будет во что-то завернута, а там и отмены и выбор и прочее - как-то так:

Код - Auto/Visual Lisp [Выбрать]

(vl-load-com)
(defun c:narez()
  ((lambda (doc ss)
     (if ss ((lambda (width height)
                  (vla-startundomark doc)
                  (mapcar '(lambda (ent) (narez ent width height))
                      (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
                  (vla-endundomark doc))
             (getdist "\nШирина ")
             (getdist "\nВысота "))))
   (vla-get-activedocument(vlax-get-acad-object))
   (ssget '((0 . "region")))))

по неточности - то наверное привет от автокада - вполне возможно что это просто неточности отображения примитивов - попробуй регенерацию.
з.ы. подправил - форматирование "плясало"

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 14:55:18

Цитата: Дима_ от 02-06-2014, 14:52:22

попробуй регенерацию.

Цитата: Андрей Бушман

(выполнен regen)

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 15:02:14

Цитата: Андрей Бушман от 02-06-2014, 14:55:18

(выполнен regen)

Проскочил - скорее всего это визуализация проблемы точности вычисления float числа (типа так какой-нибудь синус посчитал)...
p.s. если есть желание "разогнать" свой вариант могу "накоментировать" код.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 15:14:19

твой код работает гораздо быстрее. Кроме того, в нём не вижу ошибки, обозначенной выше в моём решении. Копипаст не компилирует твой код. Полагаю, что показан фрагмент, а не весь исходник.

Цитировать

Error 11 Files in libraries or multiple-file applications must begin with a namespace or module declaration, e.g. 'namespace SomeNamespace.SubNamespace' or 'module SomeNamespace.SomeModule'. Only the last source file of an application may omit such a declaration.

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 15:29:55

Я просто "мелочь" компилирую из *.FSX (в начале) идут строки типа:
#r "c:/program files/autodesk/autocad 2014/acmgd.dll"
#r "c:/program files/autodesk/autocad 2014/acdbmgd.dll"
#r "c:/program files/autodesk/autocad 2014/accoremgd.dll"
а в VS сервис->внешние инструменты настроены различные компиляции (exe 2.0, exe 4.0, dll, standalone dll,...) - ихмо так удобней. В привычном варианте установи библиотеки и добавь1-ю строку типа module narez

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 15:56:17

Разница по скорости (поочерёдно резал объекты командами narez и meshregions):

Цитата: AutoCAD 2014

Command: NAREZ

Select objects: 1 found

Select objects:
РЁРёСЂРёРЅР° 10
Р’С‹СЃРѕС‚Р° 10
Затраченное время: 00:00:00.7099610
nil

Command:
Command: MESHREGIONS

Выберите области (Regions) для добавления их в набор: 1 found

Выберите области (Regions) для добавления их в набор:

Всего выбрано областей (Regions): 1
dx <10>:

dy <10>:

Создано областей (region): 160
Затраченное время: 00:00:00.8574218

Command: NAREZ

Select objects: 1 found

Select objects:

РЁРёСЂРёРЅР° 10

Р’С‹СЃРѕС‚Р° 10
Затраченное время: 00:00:00.7148438
nil

Command:
Command: MESHREGIONS

Выберите области (Regions) для добавления их в набор: 1 found

Выберите области (Regions) для добавления их в набор:

Всего выбрано областей (Regions): 1
dx <10>:

dy <10>:

Создано областей (region): 158
Затраченное время: 00:00:00.8476563

Command: NAREZ

Select objects: 1 found

Select objects:

РЁРёСЂРёРЅР° 10

Р’С‹СЃРѕС‚Р° 10
Затраченное время: 00:00:00.5317500
nil

Command:
Command: MESHREGIONS

Выберите области (Regions) для добавления их в набор: 1 found

Выберите области (Regions) для добавления их в набор:

Всего выбрано областей (Regions): 1
dx <10>:

dy <10>:

Создано областей (region): 132
Затраченное время: 00:00:00.7197266

Command: NAREZ
Select objects: 1 found

Select objects:
РЁРёСЂРёРЅР° 10
Р’С‹СЃРѕС‚Р° 10 Затраченное время: 00:01:05.3681641
nil

Command:
Command: MESHREGIONS

Выберите области (Regions) для добавления их в набор: 1 found

Выберите области (Regions) для добавления их в набор:
Всего выбрано областей (Regions): 1
dx <10>:
dy <10>:

Создано областей (region): 38865
Затраченное время: 00:02:16.3663656

Однако при использовании твоего кода на больших объемах исходных данных, как правило, получаю проблему:

Цитировать

---------------------------
AutoCAD Error Aborting
---------------------------

FATAL ERROR: Out of memory - shutting down

---------------------------
ОК
---------------------------

с последующим Fatal Error. Зачастую это происходит при первом автоматическом сохранении чертежа, в котором нарезкой уже создано огромное количество регионов. Полагаю, что у тебя происходит утечка памяти (например не все нужные Dispose вызываешь).

Цитировать

В привычном варианте установи библиотеки и добавь1-ю строку типа module narez

В строке

Код: [Выделить]

(rg,Intersect.ExtendThis,pc,0n,0n)получаю исключение:

Цитировать

Error 11 This expression was expected to have type
int
but here has type
nativeint

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 16:04:50

Цитата: Андрей Бушман от 02-06-2014, 15:56:17

В строке

Код: [Выделить]
(rg,Intersect.ExtendThis,pc,0n,0n)получаю исключение:

Цитировать
Error 11 This expression was expected to have type
int
but here has type
nativeint

Убрал суффиксы "n" - всё скомпилировалось. Однако в свете обозначенной выше проблемы с утечкой памяти, пока откладываю в сторону.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 16:13:02

Цитата: Дима_ от 31-05-2014, 13:32:57

заниматься Intersect'ом не на каждой итерации - а анализируя геометрию прохождения границ (строки 55-65):

можешь перевести эти строки на C#, чтобы я смог их прочесть?

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 16:21:29

Цитата: Андрей Бушман от 02-06-2014, 16:13:02

Убрал суффиксы "n" - всё скомпилировалось.

По моему там чуть разные перегрузки метода в различных версиях автокада (под 2014 компилировал точно как в примере).
Про утечку - посмотрю - приложи dwg файлик.
"в прямую" их не перевести - вечером закоментирую.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 16:28:23

Цитата: Дима_ от 02-06-2014, 16:21:29

Про утечку - посмотрю - приложи dwg файлик.

Тестировал на этом (http://adn-cis.org/forum/index.php?action=dlattach;topic=495.0;attach=223) файле, предварительно скопировав содержимое два раза и затем всё это отправив в обработку (нарезку). Windows 7x86.

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 16:30:32

"шаг резьбы"?

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 16:35:39

Цитата: Дима_ от 02-06-2014, 16:30:32

"шаг резьбы"?

10х10

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 16:56:12

Две копии одного и того же региона. Слева режется моим кодом на куски размером 52.391x52.391, а справа - на куски 52.392x52.392. Разница в 0.001, а результат различен...

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 02-06-2014, 16:58:52

Я же писал о минимальной относительной погрешности в 1e-6. Вот похоже она и вылезла.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 17:00:50

Цитата: Александр Ривилис от 02-06-2014, 16:58:52

Я же писал о минимальной относительной погрешности в 1e-6. Вот похоже она и вылезла.

1. Это проявляется даже если левый нижний угол границы региона находится в центре WCS.
2. Код, написанный Дима_ не даёт таких погрешностей на тех же самых исходных регионах.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 02-06-2014, 17:09:19

Цитата: Андрей Бушман от 02-06-2014, 17:00:50

1. Это проявляется даже если левый нижний угол границы региона находится в центре WCS.

Здесь это уже не принципиально.

Цитата: Андрей Бушман от 02-06-2014, 17:00:50

2. Код, написанный Дима_ не даёт таких погрешностей на тех же самых исходных регионах.

Дима сразу вырезает ячейки-прямоугольники размером [dx,dy], а ты сначала режешь строками, а потом их уже делишь на ячейки. Наверное разница в этом.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 17:24:36

Цитата: Александр Ривилис от 02-06-2014, 17:09:19

Дима сразу вырезает ячейки-прямоугольники размером [dx,dy], а ты сначала режешь строками, а потом их уже делишь на ячейки. Наверное разница в этом.

А по другому никак: иначе я буду получать неправильные результаты, что и происходит в ряде случаев с использованием кода Дима_. Ниже прилагается дополнительный чертёж с тестовыми регионами. Берём первый "Ш"-образный регион и вызываем команду NAREZ, указывая следующие параметры:

Цитировать

Command: NAREZ
Select objects: 1 found

Select objects:
РЁРёСЂРёРЅР° 135

Р’С‹СЃРѕС‚Р° 20
Затраченное время: 00:00:00.0595703
nil

На выходе визуально всё вроде выглядит правильно, однако это не так: выделяем верхний левый кусок и видим, что выделилась вся "строка". Возможно для Дима_ такой результат является именно тем, что нужно, однако моим пользователям для каждого из нарезанных кусков нужно получать центр масс. Соответственно в данном случае будет показан центр масс, общий для трёх кусков, а это не то, что требовалось моим юзерам. Именно поэтому у меня в коде две итерации: сначала строки, затем колонки. Собственно эти нюансы я и показывал здесь (http://bushman-andrey.blogspot.ru/2014/05/regions.html), выполняя различные логические операции над регионами.

UPD. Александр Наумович, собственно именно эту ситуацию мы и обсуждали с вами по скайпу 28 мая, в результате чего вы согласились, что обозначенная вами ранее оптимизация в данном случае не будет работать. Я как раз на примере буквы "Ш" и показывал вариант, который оптимизация не сможет корректно обработать.

P.S. Теперь мне понятно, за счёт чего код Дима_ работал быстрее, однако данный вариант решения мне не подойдёт.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 21:39:27

Цитата: Александр Ривилис от 02-06-2014, 16:58:52

Я же писал о минимальной относительной погрешности в 1e-6. Вот похоже она и вылезла.

Нет, это однозначно ошибка в моём коде. Завтра буду искать. Скорее всего где-то сделал Ctrl+C, Ctrl + V и не переименовал переменную (ну, или что-то вроде того).

Дима_, спасибо за код.

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 22:43:00

По порядку: Словестное описание алгоритма - суть оптимизации такова, единожды высчитываем "сетку" по габаритным размерам которую заполняем прямоугольниками построчно и в процессе заполнения смотрим не пересекает-ли созданный сегмент границы области, если пересекает и имеет площадь - добавляем его в БД, а следующий за ним проверяем на пересечение (если пересекает - тогда все по новой) и площадь - если она около нуля - то тогда все последующие сегменты до пересечения Dispos'ируем, если площадь есть (то есть полный прямоугольник - пересечений ведь нет), то последующие сегменты рисуем без проверок, до следующего пересечения. Упрощая проверяем на "пересечение" только "граничащие" клетки и 1 следующею за ними - остальные по последней.

В коде:

Код - C# [Выбрать]

Seq.fold (fun (next,check) _ -> //запускаем "свертку" с 2-мя bool аргументами "рисовать следующий" и "проверять" 
    let cl=(obr.Clone():?>Region) //создаем "копию" образцового прямоугольника
    obr.TransformBy(mtw) // перемещаем "оригинал" на следующий столбец
    let pc=new Point3dCollection() // коллекция точек пересечения
    cl.IntersectWith(rg,Intersect.ExtendThis,pc,0n,0n) //заполняем коллекцию точками пересечения (если они есть)
    let inters()=cl.BooleanOperation(BooleanOperationType.BoolIntersect,rg.Clone():?>Region)
                 cl.Area<0.0000001 // функция "наложения" регионов, возвращает true если выходной регион "без площади"
    (pc.Count>0,next,check)|>function // функция проверки от 3 аргументов: есть ли пересечения?, рисовать?, требуется ли проверка
      |true,_,_ when inters()->cl.Dispose() // если было пересечение и примитив без площади
                               (false,true) // уничтожаем сегмент и на след. итерации выполняем проверку
      |true,_,_->AppendEnt cl//если пересечение и нормальная площадь
                 (false,true)// добавляем "обрезок" и проверка на следующем
      |_,_,true when inters()->cl.Dispose()//если установлен флаг проверки, но нет площади
                               (false,false)// до следующего пересечения рисовать не надо
      |_,_,true|_,true,_->AppendEnt cl// если была площадь, либо установленн флаг "рисования"
                          (true,false)// то оставляем сегмент без изменений (его не надо подрезать)
      |_->cl.Dispose()
          (false,false))// во всех остальных случаях - удаляем сегмент.
(false,false) // начальное значение аргументов каждой "строки"

По фаталу - да действительно если создать значительное кол-во сегментов - то автокад намертво зависает на записи (у меня x64) - либо я просто не дождался завершения, причем висит именно на записи, саму "нарезку" он делает, я попробовал еще включать dispose копиям "главных" объектов которые идут как аргумент в BooleanOperation (что по моему представлению должно быть встроено непосредственно в метод) - результата не дало. Можно просто попробывать создать эквивалентное кол-во регионов - может просто акад "не осиливает", т.к. вроде все созданное либо в БД либо в Dispose.

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

з.ы. чтоб лисп не писал "кракозябры" - сохрани в default кодировке.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 23:16:34

Цитата: Дима_ от 02-06-2014, 22:43:00

По фаталу - да действительно если создать значительное кол-во сегментов - то автокад намертво зависает на записи (у меня x64) - либо я просто не дождался завершения, причем висит именно на записи, саму "нарезку" он делает, я попробовал еще включать dispose копиям "главных" объектов которые идут как аргумент в BooleanOperation (что по моему представлению должно быть встроено непосредственно в метод) - результата не дало. Можно просто попробывать создать эквивалентное кол-во регионов - может просто акад "не осиливает", т.к. вроде все созданное либо в БД либо в Dispose.

В режиме DEBUG загляни в отладочную консоль. Если у тебя где-то пропущен вызов Dispose, то там должна появиться подсказка на эту тему, т.к. реализация метода !DBObject() следующая:

Код - C# [Выбрать]

// Autodesk.AutoCAD.DatabaseServices.DBObject
private void !DBObject()
{
object[] args = new object[]
{
base.GetType().ToString()
};
Debug.WriteLine("DisposableWrapper", string.Format(CultureInfo
    .InvariantCulture, "Forgot to call Dispose? ({0})", args));
}

Т.о. при "потере" Dispose должны появляться сообщения вида "Forgot to call Dispose? ...".

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 02-06-2014, 23:29:27

Цитата: Дима_ от 02-06-2014, 22:43:00

По "проблеме буквы Ш" - чтобы "уши" буквы были в разных областях - надо задавать соответствующие размеры "клетки", я не очень понимаю как от этого спасает алгоритм "нарезать вначале строки, потом столбцы", да строки немного "запляшут"

Да, что-то меня перемкнуло: твой код запустил, чтобы проверить проблему, а свой почему-то решил не запускать, т.к. "всё должно быть пучком". Похоже я поторопился, завтра ещё подумаю. Проблема в том, что нужно как-то гарантированно резать так, чтобы в одном регионе не было нескольких сегментов (как при резке буквы Ш клеткой, равной длине региона).

Нужно как-то получить количество внешних контуров в регионе и на основе каждого такого контура (с учётом вложенных контуров- отверстий, если такие есть) создать отдельные регионы. Тут дополнительная проблема возникает: если в одном из таких контуров имеется отверстие, в составе которого будет ещё один контур (островок в отверстии), то и его нужно отдельно обрабатывать и т.д. рекурсивно анализируя структуру контуров... Т.е. всё не так просто, как хотелось бы.

Название: Re: Разрезать Region
Отправлено: Дима_ от 02-06-2014, 23:58:47

Цитата: Андрей Бушман от 02-06-2014, 23:29:27

то и его нужно отдельно обрабатывать и т.д. рекурсивно анализируя структуру контуров...

... это не слабое такое уточнение...
боюсь через текущий .Net API тут глухо, ихмо надо лезть в расшифровку ACIS (что само по себе гемор, а для тебя еще и лисп-гемор), тут надо на поклон к Елпанову Евгению - он по моему в этом "хорошо шагнул". Либо методом Ньютона обрезать регион до допустимых ограничений и искать - но тогда время выполнения "немножко" прибавится (хоть ньютон и быстр, на раз в 10-15 вынь да полож) Или "врзрывать и смотреть" - короче по хорошему сложно (очень), по "быстрому" не быстро и "криво".

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 03-06-2014, 00:04:11

Цитата: Дима_ от 02-06-2014, 23:58:47

... это не слабое такое уточнение...

Согласен. Просто когда я показал юзеру эту ситуацию на конкретных примерах, и уточнил насчёт рекурсивного анализа (островки в отверстиях и т.п.), то ответ был "ну конечно же, это обязательно".

Цитировать

короче по хорошему сложно (очень), по "быстрому" не быстро и "криво".

Буду пытаться найти "консенсус" с юзерами.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 03-06-2014, 00:18:43

Цитата: Дима_ от 02-06-2014, 23:58:47

боюсь через текущий .Net API тут глухо

Для этого есть BREP .NET API

Название: Re: Разрезать Region
Отправлено: Дима_ от 03-06-2014, 00:28:48

Маэстро! раз и Вы не спите - на что похожи "симптомы" когда много (очень) объектов создано, но потом не сохранится? (Dispose пропущен или еще что). Про Brep Вы же сами здесь писали - что не прокатит?

Название: Re: Разрезать Region
Отправлено: Дима_ от 03-06-2014, 00:33:45

Цитата: Андрей Бушман от 03-06-2014, 00:04:11

Буду пытаться найти "консенсус" с юзерами.

ИХМО - по моему, в данном случае, это наиболее верное решение.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 03-06-2014, 00:36:32

Цитата: Дима_ от 03-06-2014, 00:28:48

Про Brep Вы же сами здесь писали - что не прокатит?

Там ошибка в одном из методов, который к этой теме отношения не имеет. Да и тот метод можно реализовать через P/Invoke.

Цитата: Дима_ от 03-06-2014, 00:28:48

Маэстро! раз и Вы не спите - на что похожи "симптомы" когда много (очень) объектов создано, но потом не сохранится? (Dispose пропущен или еще что).

Вполне возможно, что пропущен Dispose. Но на 100% уверенно сказать не могу. Особенно в AutoCAD 2014, в котором переписали работу с Solid3d и Region таким образом, что быстродействие упало при прочих равных условиях в два раза по сравнению с AutoCAD 2013 (факт подтвержденный в ADN DevHelp).

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 03-06-2014, 07:57:30

Цитата: Александр Ривилис от 03-06-2014, 00:36:32

Особенно в AutoCAD 2014, в котором переписали работу с Solid3d и Region таким образом, что быстродействие упало при прочих равных условиях в два раза по сравнению с AutoCAD 2013 (факт подтвержденный в ADN DevHelp).

А в 2015-м как дела обстоят?

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 03-06-2014, 10:58:12

Цитата: Андрей Бушман от 03-06-2014, 07:57:30

А в 2015-м как дела обстоят?

Пока также как и в 2015 - я слишком поздно отправил этот баг.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 03-06-2014, 11:19:51

P.S.: Кстати, последите за размером файла UNDO. Его максимально допустимое значение 2Гб. Вполне возможно, что на очень больших объемах добавления примитивов к базе это значение достигается. Можно попробовать это исправить отключив запись UNDO при помощи вызова Database.DisableUndoRecording(true);

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 03-06-2014, 11:24:25

Цитата: Андрей Бушман от 02-06-2014, 21:39:27

Нет, это однозначно ошибка в моём коде. Завтра буду искать. Скорее всего где-то сделал Ctrl+C, Ctrl + V и не переименовал переменную (ну, или что-то вроде того).

Нашёл ошибку: при рассечении на "столбцы" габариты расчитывались относительно региона "строки". А поскольку в ряде случаев строка может содержать в составе контура куски сплайнов, то и габариты показываются не те, что видны визуально (по понятным причинам). Внёс исправление - все смещения dx, dy выполняю относительно габаритов базового региона. Заодно и сетка ровная получается. Сейчас добавлю некоторые дополнительные изменения. Посмотрю, что быстрее: клонировать и смещать регион, или же создавать новый на основе вычисленных точек и контура.

Название: Re: Разрезать Region
Отправлено: Дима_ от 03-06-2014, 12:22:06

Цитата: Александр Ривилис от 03-06-2014, 11:19:51

Можно попробовать это исправить отключив запись UNDO при помощи вызова Database.DisableUndoRecording(true);

Это первое про что я подумал и в dll и в лиспе - но не оно.
Нашел таки:
Подходит стажер ПТУшник к мастеру опустив взгляд, стоит молчит...
Мастер - что запарол?
- да - все 11 запарол.
- я ж тебе всго 10 давал.
- а я и образец запорол.
Вот так и я я "гонял" "образец" по сетке и копировал его, копии тщательно или записывал или "запарывал", а что в конце образец надо "запороть" забыл. На "небольших" количествах прокатывало, а на многотысячных накладывались дескрипторы и привет. В общем исправил в коде - сейчас файл Андрея "пережевывает" на ура. Выкладывать не стал - т.к. 24 метра.
з.ы. да кстати - сейчас под рукой 2010 - там действительно перегрузка метода IntersectWith только с целыми (а в 2014*64 - нативы).
з.з.ы. Сейчас автор в соседней теме найдет как считать наиболее "правильные" границы через brep, и можно будет еще разогнать на "сплайновых" областях - хотя и "пустые" участки алгоритм пробегает достаточно быстро (без булевых операций с регионами), но все равно делать их незачем.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 03-06-2014, 20:05:58

Цитата: Дима_ link=topic=750.msg2969#msg2969

з.з.ы. Сейчас автор в соседней теме найдет как считать наиболее "правильные" границы через brep, и можно будет еще разогнать на "сплайновых" областях - хотя и "пустые" участки алгоритм пробегает достаточно быстро (без булевых операций с регионами), но все равно делать их незачем.

Угу. Найдено и было показано здесь (http://adn-cis.org/forum/index.php?topic=495.msg2970#msg2970) ещё в 14:28. Обновил здесь (http://bushman-andrey.blogspot.ru/2014/05/regions_29.html) описание, скрины и код. Осталось решить проблему объединённых регионов. Но это уже не сегодня. Завтра заодно оптимизирую код GetVisualBoundary, чтобы половинить расстояния, те опять половинить и т.д. а не приращать на значения dx и dy (а то текущий вариант похож на пузырьковую сортировку :)).

Название: Re: Разрезать Region
Отправлено: Дима_ от 03-06-2014, 21:57:05

Стал проверять 2014x64 - не работает - все тоже самое, после записи - висим. Поняв что это все-же не та ошибка что нашел на 2010x32 (здесь она не проявляется даже если Dispose() убрать, видимо из-за разрядности дескрипторов - их коллизийность на порядок меньше) - но проделал простой эксперимент - берем чистый акад, создаем регион, делаем 50 тыс. копий вручную (это не долго, делаем 10 копий, потом еще 10 копий копий итд - за несколько движений получаем нужное количество), нажимаем запись сохраняется tmp файл и виснет намертво (ну или я такой не терпеливый)... Видимо эта то самое обновление работы с регионами. Можно передать"привет" автодеску.
p/s/ От массива эффект аналогичный...
p.p.s По поводу нахождения границ методом Ньютона - ту можно попасть в просак т.к. метод подразумевает непрерывную функцию - проще говоря если регион из двух кусков, можно запросто попасть между ними - в общем есть вариант оставить "как есть".

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 03-06-2014, 23:37:26

Цитата: Дима_ от 03-06-2014, 21:57:05

проще говоря если регион из двух кусков, можно запросто попасть между ними - в общем есть вариант оставить "как есть".

Хм... Как вариант, можно с помощью Brep попробовать проанализировать границы каждого Face и вычислить для них (minX, minY) и (maxX, maxY).

Пользователи ставят перед фактом, что объединённых регионов обязательно не должно быть. Т.о. на эту тему ещё придётся думать... Вот если бы можно было на основе Face создать Region, то тогда проблема бы отвалилась. Пока что юзеры предлагают, мол: "если всё так сложно, то просто скачай с Инета прогу, которая будет по точкам делать триангуляцию на основе объектов Region или Solid3d (делов-то). Таких программ в Инете полным полно."...

Правда при мне так и не смогли ни одной такой найти. Те, что видели на тему триангуляции, строят треугольные объекты Face (это годится) по точкам, и не учитывают отверстия (а это уже не то...). Предложил им пока самостоятельно выбрать любое из "огромного количества доступных в Интернете решений" (раз всё так просто и быстро находится), а я пока попробую допилить текущий вариант с регионами. Может чего и накопают интересного.

Название: Re: Разрезать Region
Отправлено: Дима_ от 03-06-2014, 23:56:00

пока вижу только вариант брать заведомо меньший размер клетки

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 00:02:29

Цитата: Дима_ от 03-06-2014, 23:56:00

пока вижу только вариант брать заведомо меньший размер клетки

Тут видишь ли в чём дело... Проектировщикам нужно сечение конструкции в разных местах кромсать по разному. Т.е. они сначала могут дать команду разрезать регион на три строки (не рассекая их на столбцы), а затем к каждой строке применить свою собственную команду нарезки со своим размером ячейки. Как правило, крайние строки им нужно резать на как можно меньшие ячейки, в то время как строки ближе к центру можно резать на бОльшие куски.

Можно, конечно, визуально сразу выбрать подходящий размер ячейки, но по закону подлости у них обязательно "зачастят" хитрые случаи, где будут присутствовать объединённые регионы. Причём ситуация почти перестанет встречаться сразу после того, как программно будет найдено решение проблемы (закон жизни).

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 00:06:22

Предлагаю завести отдельную ветку форума, аля "Клуб любителей резьбы ~~по дереву~~ по регионам\солидам... ;D

Шутки юмора шучу...

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 04-06-2014, 00:42:26

Цитата: Андрей Бушман от 03-06-2014, 23:37:26

Хм... Как вариант, можно с помощью Brep попробовать проанализировать границы каждого Face и вычислить для них (minX, minY) и (maxX, maxY).

"Я эту идею породил - я её и убью". Она будет несправедлива в случае если внутренние контура могут быть не выпуклыми.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 00:45:13

Цитата: Александр Ривилис от 04-06-2014, 00:42:26

Она будет несправедлива в случае если внутренние контура не выпуклые.

Поясните. Какая разница "выпуклые" или "впуклые"? Границы-то один хрен: двумя точками кажет (левый нижний и правый верхний).

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 04-06-2014, 01:45:01

Цитата: Андрей Бушман от 04-06-2014, 00:45:13

Поясните. Какая разница "выпуклые" или "впуклые"? Границы-то один хрен: двумя точками кажет (левый нижний и правый верхний).

Подумай как будут выглядеть окаймляющие прямоугольники у этих двух фигур и как они будут располагаться один относительно другого:
(https://adn-cis.org/forum/proxy.php?request=http%3A%2F%2Fimg-fotki.yandex.ru%2Fget%2F9817%2F7842324.1%2F0_dafe8_f603bb1c_orig.png&hash=1ccce924b5852c776b946410fb45d6a6)

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 04-06-2014, 02:18:39

Цитата: Андрей Бушман от 03-06-2014, 23:37:26

Вот если бы можно было на основе Face создать Region, то тогда проблема бы отвалилась.

Ну в принципе можно. Только не на основе Face, а на основе Loop ты должен создавать Region. Фактически в указанном тобой "неправильном" Region вместо одного несколько Loop. Каждый Loop состоит из одной или нескольких Edge, которую можно превратить в Curve3d. Из Curve3d можно получить (с заданной точностью) набор точек, которые её представляют. Как это сделать я показал тут: http://adn-cis.org/forum/index.php?topic=495.msg2990#msg2990
Ну и из набора точек несложно создать Polyline из которой создать Region. Как-то так пока.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 11:11:08

Всё оказалось гораздо проще... :)

1. Если мы взрываем одиночные регионы (с отверстиями или без - это не важно), то на выходе получаем примитивы, которыми вычерчен их контур, т.е. линии, дуги, сплайны, окружности.

2. Если мы взрываем объединённые регионы, то при первом взрыве мы получаем набор отдельных регионов, с сохранением отверстий (если таковые имеются). Повторный взрыв делает то же самое, что и в п.1.

Т.о. если я вижу, что ~~Face~~ Complexes более 1, то взрываю регион и полученные новые регионы добавляю в набор. Проверил, работает. Подправил код в блоге.

Название: Re: Разрезать Region
Отправлено: bargool от 04-06-2014, 11:43:52

Цитата: Андрей Бушман от 03-06-2014, 23:37:26

Те, что видели на тему триангуляции, строят треугольные объекты Face (это годится) по точкам, и не учитывают отверстия (а это уже не то...)

Вот эта библиотека (http://triangle.codeplex.com/) делает триангуляцию по точкам, при этом есть возможность указать отверстия и контуры.. недавно с ней пришлось основательно поиграться..

Название: Re: Разрезать Region
Отправлено: Дима_ от 04-06-2014, 11:51:24

Цитата: Андрей Бушман от 04-06-2014, 11:11:08

Если мы взрываем объединённые регионы, то при первом взрыве мы получаем набор отдельных регионов,

Ну это просто сказачное везение - тогда проблемма буквы Ш решаеться 5-тью строками, но предложенная мной оптимизация идет лесом - т.к. "островок" может попастся внутри клетки и пересечения не будет - то есть каждую клетку надо "булеанить", а потом еще и проверить brepom - в общем процесс будет совсем не быстрый...
В общем реально только если клетки не такие маленькие как в примере (т.к. все равно будут взрываться).

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 11:52:17

bargool,
Спасибо, посмотрю обязательно.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 11:54:42

Цитата: Дима_ от 04-06-2014, 11:51:24

то есть каждую клетку надо "булеанить", а потом еще и проверить brepom - в общем процесс будет совсем не быстрый...

Именно так я и делаю. Пользователя скорость устраивает, по его заявлению, т.к. написанный им вариант на VBA работал ещё медленнее.

Название: Re: Разрезать Region
Отправлено: Дима_ от 04-06-2014, 12:16:08

Перед тем как делать ниженаписанное вначале надо ответить на главный вопрос "Надо-ли":
Чтоб не "булеанить" каждую клетку, можно brep'ом "собрать" все точки кривых region'а, одновременно индексируя их по координатам будующих клеткок (точнее пометить клетки в которых есть хотя-бы одна точка). Далее все непроиндексированные клетки рисуются как есть, а "попавшие под индекс" булеаняться и рекурсивно взрываются (или там 1-го взрыва всегда достаточно?) , для проверки клетки "внутри\снаружи" применять тот-же алгоритм, что и с пересечением.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 04-06-2014, 12:21:00

Цитата: Дима_ от 04-06-2014, 12:16:08

или там 1-го взрыва всегда достаточно?

Цитата: Андрей Бушман

2. Если мы взрываем объединённые регионы, то при первом взрыве мы получаем набор отдельных регионов, с сохранением отверстий (если таковые имеются). Повторный взрыв делает то же самое, что и в п.1.

рекурсивный взрыв не требуется, всё "как надо" после первого взрыва.

Цитата: Дима_ от 04-06-2014, 12:16:08

Перед тем как делать ниженаписанное вначале надо ответить на главный вопрос "Надо-ли"

На данный момент не надо.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 04-06-2014, 17:29:17

Цитата: Андрей Бушман от 04-06-2014, 11:11:08

Т.о. если я вижу, что Face Complexes более 1, то взрываю регион и полученные новые регионы добавляю в набор. Проверил, работает.

Отлично. Если это всегда так, то совсем замечательно. Можно например написать свой вариант команды EXPLODE, которая расчленяет только Region/Solid3d, но только тогда, когда они состоят из отдельных частей и расчленяются на составляющие Region/Solid3d.

Название: Re: Разрезать Region
Отправлено: Дима_ от 07-06-2014, 14:12:00

Я тут приболел, но если в голове есть алгоритм (да еще и понимание, что его реализация лежит в весьма ограниченном числе строк), то для хорошего человека его и реализовать не грех - и вот когда появились "умственные просветы"... В общем реализация вышеописанного алгоритма оказалась даже меньше чем я ожидал (тем паче что практически весь brep я скопипастил в соседней теме у А. Ривилиса - думаю он не против :) ) - и почуствовав, что как-то больно быстро получилось - еще и перетащил функцию в команду:

Код - C# [Выбрать]

open Autodesk.AutoCAD.ApplicationServices 
open Autodesk.AutoCAD.Runtime
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.Geometry
open Autodesk.AutoCAD.EditorInput
open Autodesk.AutoCAD.BoundaryRepresentation
 
let Init()=
  let doc=Application.DocumentManager.MdiActiveDocument
  doc,doc.Editor,doc.Database,doc.TransactionManager.StartTransaction
 
let RegExplode (rg:Region)=
  let brep=new Brep(rg)
  seq{for f in brep.Faces->f}|>function
    |faces when faces|>Seq.skip 1|>Seq.isEmpty->[rg]
    |_->let coll=new DBObjectCollection()
        rg.Explode(coll)
        rg.Dispose()
        [for x in coll->x:?>Region]
 
let IndexRegion (rg:Region) width height=
  let deltaX=width/10.0
  let deltaY=height/10.0
  let x0,y0=let pt=rg.GeometricExtents.MinPoint
            pt.X,pt.Y
  use br=new Brep(rg)
  seq{for face in br.Faces->
       seq{for lop in face.Loops->
            seq{for edge in lop.Edges->
                 use curve=edge.Curve
                 let intr=curve.GetInterval()
                 let p1,p2=intr.LowerBound,intr.UpperBound          
                 {p1..(p2-p1)/(curve.GetLength(p1,p2,(min deltaX deltaY)/2.0)/(min deltaX deltaY))..p2}
                   |>Seq.map (curve.EvaluatePoint)|>Seq.toArray}}}
                   |>Seq.concat|>Seq.concat|>Seq.concat //seq point3d
    |>Seq.fold (fun set pt->let x,y=(pt.X-x0)/width,(pt.Y-y0)/height
                            set|>Set.add(x|>int,y|>int)
                               |>Set.add(x|>int,y+0.1|>int) 
                               |>Set.add(x|>int,y-0.1|>int)
                               |>Set.add(x+0.1|>int,y|>int)
                               |>Set.add(x+0.1|>int,y+0.1|>int)
                               |>Set.add(x+0.1|>int,y-0.1|>int)
                               |>Set.add(x-0.1|>int,y|>int)
                               |>Set.add(x-0.1|>int,y+0.1|>int)
                               |>Set.add(x-0.1|>int,y-0.1|>int))
               (Set [])
 
let MakeRegion (pt1:Point3d) width height=
  let cl=new DBObjectCollection()
  new Polyline2d(Poly2dType.SimplePoly,new Point3dCollection([|pt1
                                                               new Point3d(pt1.X+width,pt1.Y,pt1.Z)
                                                               new Point3d(pt1.X+width,pt1.Y+height,pt1.Z)
                                                               new Point3d(pt1.X,pt1.Y+height,pt1.Z)|]),
                 0.0,true,0.0,0.0,new DoubleCollection([|0.0;0.0;0.0;0.0|]))|>cl.Add|>ignore
  Region.CreateFromCurves(cl).[0]:?>Region
 
[<CommandMethod "Narez">]
let Narez()=
  let doc,ed,db,trf=Init()
  let Slice width height id=
    let start=System.DateTime.Now
    use tr=trf()
    let rg=tr.GetObject(id,OpenMode.ForWrite):?>Region
    let ext=rg.GeometricExtents
    let block=tr.GetObject(rg.BlockId,OpenMode.ForWrite):?>BlockTableRecord
    let AppendEnt (ent:Entity)=
        block.AppendEntity ent|>ignore
        tr.AddNewlyCreatedDBObject(ent,true)    
    let obr=MakeRegion ext.MinPoint width height
    let mtw=Matrix3d.Displacement(new Vector3d(width,0.0,0.0))
    let mth=Matrix3d.Displacement(new Vector3d(-width*(((ext.MaxPoint.X-ext.MinPoint.X)/width|>int)+1|>float),height,0.0))
    let index=IndexRegion rg width height
    "\n"+string(System.DateTime.Now-start)+" - индексация выполненна; "|>ed.WriteMessage
    {0..(ext.MaxPoint.Y-ext.MinPoint.Y)/height|>int}
      |>Seq.iter (fun y ->{0..(ext.MaxPoint.X-ext.MinPoint.X)/width|>int}
                             |>Seq.fold (fun (next,check) x ->
                                (Set.contains (x,y) index,next,check)|>function
                                   |true,_,_->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              cl.BooleanOperation(BooleanOperationType.BoolIntersect,rg.Clone():?>Region)
                                              if cl.Area<0.0001
                                                 then cl.Dispose()
                                                 else cl|>RegExplode|>Seq.iter AppendEnt
                                              false,true
                                   |_,_,true->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              cl.BooleanOperation(BooleanOperationType.BoolIntersect,rg.Clone():?>Region)
                                              if cl.Area<0.0001
                                                 then cl.Dispose()
                                                      false,false
                                                 else cl|>RegExplode|>Seq.iter AppendEnt
                                                      true,false
                                   |_,true,_->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              AppendEnt cl
                                              true,false
                                   |_->obr.TransformBy(mtw)
                                       false,false) (false,false)|>ignore
                          obr.TransformBy(mth))
    obr.Dispose()
    tr.Commit()
    "всего затраченно: "+string(System.DateTime.Now-start)+"\n"|>ed.WriteMessage
  let inline (|PromptOk|_|) (pr:^a)=(^a:(member Status:PromptStatus)pr)=PromptStatus.OK|>function
                                      |true->Some(pr)
                                      |false->None
  let ErrInput()=ed.WriteMessage("\nКоманда отменена")
  ed.GetSelection(new SelectionFilter([|new TypedValue(int(DxfCode.Start),"REGION")|]))|>function
    |PromptOk(ss)->ed.GetDistance("\nШирина: ")|>function
      |PromptOk(width)->ed.GetDistance("\nВысота:")|>function
        |PromptOk(height)->let start=System.DateTime.Now
                           seq{for ssid in ss.Value->ssid.ObjectId}
                            |>Seq.iter (Slice width.Value height.Value)
                           "\nОбщее время: "+string(System.DateTime.Now-start)|>ed.WriteMessage
        |_->ErrInput()
      |_->ErrInput()
    |_->ErrInput()

Имя то-же - narez, в итоге получилось побыстрее чем предыдущая версия (без стойкости к букве Ш).

Цитата: Андрей Бушман от 04-06-2014, 11:54:42

т.к. написанный им вариант на VBA работал ещё медленнее.

Уповать на скорость API против алгоритма никогда не стоит - рано или поздно тыкнут носом - вот мол на такой ...не пишут, а работает в Х-раз быстрее, а ты тут извращаешся, а результату...

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 08-06-2014, 01:40:07

Дима. Интересно насколько изменится скорость если использовать не edge.Curve, а edge.Curve.NativeCurve, как я использовал здесь (http://adn-cis.org/forum/index.php?topic=495.msg3043#msg3043).

Название: Re: Разрезать Region
Отправлено: Дима_ от 08-06-2014, 02:38:04

Маэстро спасибо за дружеский анализ. Я откровенно говоря отношусь скептически к "битве за урожай", мне например, гораздо больше смущают в моем-же коде строки 37-47, эту "самокопипасту", чуть что исправлять замучаешься - а завернуть во что-то более приемлемое глазу ее конечно стоит - ну ладно болею - простят. По существу вопроса т.к. по крайней мере на "экземпляре" Андрея, индексация занимат не значительную часть времени, то и приросту изменения даст не много - даже если время индексации обнулиться совсем - по факту на первом прогоне, Ваш вариант получился даже медленней - хотя я считаю, что это погрешность измерений - но по моему твердому убеждению, все что лежит в ее пределах - принебрегаем и выбираем более надежный, либо читабельный. Вот логи (Ваш вариант NAREZNAT запускался вторым после отмены работы первого), я не считал отдельно индексацию - но там ИХМО +- одинаково (значительный отрыв результата первого региона грешу на подгрузку и пр. предварительную работу).

з.ы. Я в этом коде пренебрег подсчетом нулевой точки - последовательность можно преобразовать в массив (например), расчитать минимальные X и Y и "плясать" от них (то есть преобразовать эту-же последовательность), а не от GetBoundingBox как в примере, но т.к. индескации в этих "пустых" клетках нет, то по ней просто пробежиться TransformBy - даже не создавая клон, и тем паче не анализируя его - в общем проверять даст ли это выйгрыш мне просто лень, но вполне возможно на элипсах процентов 5 там прячется от общей производительности. Я не люблю хранить большие массивы данных без особой на то необходимости (хотя преобразование последовательности в массив по каждому контуру таки есть - т.к. он должен быть Dispose'ен - инчае вылезит фатальный привет на следующем вызове) - а считать их два раза в данном случае вобще глупо - точно "прироста" не даст - а скорее наоборот.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 08-06-2014, 02:52:19

Понятно. Я не оценил тот факт, что вклад определения BoundingBox в общий алгоритм мизерный. Тем более, что часть регионов вообще не имеют сплайновых образующих.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 10:40:29

Порой твои записи меня удивляют...

Цитата: Дима_ от 07-06-2014, 14:12:00

Уповать на скорость API против алгоритма никогда не стоит

Я никогда и не полагаюсь на это. Похоже, что ты меня неверно понял.

Цитата: Андрей Бушман

Пользователя скорость устраивает, по его заявлению, т.к. написанный им вариант на VBA работал ещё медленнее.

Эта фраза означает, что пользователь предварительно написал свой вариант реализации, используя для этого язык VBA и конечный результат работал медленней моего. Язык программирования, используемый пользователем, был мною указан лишь в качестве дополнительной информации. Я не вкладывал в это предложение смысл, мол "у юзера медленней, потому что он пишет на VBA". Алгоритм реализации у пользователя был свой: половинить до тех пор, пока очередная половина не станет меньше либо равной обозначенным dx и dy.

Цитата: Дима_

в итоге получилось побыстрее чем предыдущая версия (без стойкости к букве Ш).

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

Цитата: Дима_

Я тут приболел

Ты это дело брось! :)

Название: Re: Разрезать Region
Отправлено: Дима_ от 09-06-2014, 11:13:48

Цитата: Андрей Бушман от 09-06-2014, 10:40:29

Как я уже писал выше корректная обработка "Ш" и ей подобных ситуаций

Вобщем опять не там запятая - этот как раз и устойчивый к букве Ш (собсвеннно из-за чего и пришлось проверку пересечения заменить индексацией) - то есть корректно обработает.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 13:11:31

Дима_, первое, что мне бросилось в глаза - это орда записей:

Цитата: IDE Output in Debug mode

Forgot to call Dispose? (Autodesk.AutoCAD.DatabaseServices.Region): DisposableWrapper

Поскольку в твоём варианте нет возможности указать значение delta, то мне не удаётся проверить твой код на тех же условиях, когда вариант А.Н. выдавал исключение для delta = 0.1.

Цитата: Дима_

Вобщем опять не там запятая - этот как раз и устойчивый к букве Ш (собсвеннно из-за чего и пришлось проверку пересечения заменить индексацией) - то есть корректно обработает.

Да, "Ш" обрабатывается корректно и в целом всё работает весьма шустро. Я через ILSpy конвертну твой код в C#, дабы посмотреть алгоритм.

Название: Re: Разрезать Region
Отправлено: Дима_ от 09-06-2014, 13:28:45

С диспосами посмотрю - по коду не вижу (достал меня этот автокад - угадывай где надо, где нет). Delta проверки =1/10 = меньшего шага, + если ближе 1/10 к краю индексирует и соседнеий сегмент.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 13:29:03

Не... результат декомпиляции ILSpy таков, что это мне будет нужно не один день потратить, чтобы понять, что есть что (море кракозяблов в наименованиях классов, непонятная иерархия и т.п.). Оставляю всё как есть.

Название: Re: Разрезать Region
Отправлено: Дима_ от 09-06-2014, 14:01:38

Цитата: Андрей Бушман от 09-06-2014, 13:29:03

Не... результат декомпиляции ILSpy таков, что это мне будет нужно не один день потратить

Ну этого стоило ожидать т.к. по сути тебе ковырять F# библиотеку придется (а она как не крути лучше исходника не станет) + то что в обобщенных методах было она в свои несколько перевела. Алгоритм если надо могу расписать.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 14:08:43

Цитата: Дима_ от 09-06-2014, 14:01:38

Алгоритм если надо могу расписать.

Буду признателен. При этом хочу обратить внимание на "корректную расстановку запятых", т.к. порой мне либо сложно понять то, что ты пишешь, либо понимаю неверно.

Название: Re: Разрезать Region
Отправлено: Дима_ от 09-06-2014, 14:57:48

Про запятые - меня, в этом вопросе, к сожалению только компьютер и понимает.
Общая суть такова - через brep получаем контура всех "кривых" и "проходимся" по ним с шагом=1/10 меньшей стороны будующей клетки записывая координату клекти (которую мы высчитываем простым делением без остатка, от начала GeometricExtents.MinPoint) в "словарь", причем если точка лежит "на краю" клетки индексируем, на всякий случай и соседнею, (на случай если клетку кривая таки пересекает, но мы этого "пропустили"). Таким образом мы получаем словарь координат клеток в которых предполагаем, что есть контур. Далее идет основной цикл, в GeometricsExtends.MinPoint создаем регион и высчитываем 2 матрицы - сдвига на клетку вправо и вернуться на начало следующей строки. И перемещая построчно регион смотрим не попадает-ли он на "индексированную" клетку. Если попадает - то делаем BoolIntersect с копией основного региона, и проверив площадь на минимальное значение (у меня 0.0001 ед/рис - то есть не пустая-ли она) добавляем в БД чертежа предварительно прогнав через функцию разбивки на "подрегионы" - проблема буквы Ш. После индекированной клетки - проверяем следующею по строке за ней (только если она тоже без индекса - иначе заново как с индексированной). Проверяем на наличие площади после BoolIntersect если ее нет, то Disposim и до следующего пересечения, просто гоним образец ничего не рисуя, если площадь таки есть, то значит мы попали внутрь региона, прогоняем через функцию "буква Ш" (в коде она идет как RegExplode), а следующие за ней до первой индексированной клекти мы просто заносим в БД, ни на что не проверяя (т.к. пересечения гарантированно нет). Чтоб понять наглядней я добавил различный цвет регионам - красные - индексированные, голубые - проверочные (те которые не ушли по Dispose()), и белые нарисованные без всяких проверок.

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 15:10:34

Спасибо, поразбираюсь...

Название: Re: Разрезать Region
Отправлено: Дима_ от 09-06-2014, 16:38:57

С "диспозами" разобрался, но если меня не перемыкает в других версиях автокада такой диспоз (объекта который будут интерсектить вел к фаталу), что сейчас мне не проверить - посему ставлю просто еще версию - которая не "ругаеться" в отладочную консоль (плюс еще подправил в индексации - сделал более читабельно, и нашел-таки действительно пропущенный диспоз полилинии образующий начальную область клетки):

Код - C# [Выбрать]

open Autodesk.AutoCAD.ApplicationServices 
open Autodesk.AutoCAD.Runtime
open Autodesk.AutoCAD.DatabaseServices
open Autodesk.AutoCAD.Geometry
open Autodesk.AutoCAD.EditorInput
open Autodesk.AutoCAD.BoundaryRepresentation
 
let Init()=
  let doc=Application.DocumentManager.MdiActiveDocument
  doc,doc.Editor,doc.Database,doc.TransactionManager.StartTransaction
 
let RegExplode (rg:Region)=
  let brep=new Brep(rg)
  seq{for f in brep.Faces->f}|>function
    |faces when faces|>Seq.skip 1|>Seq.isEmpty->[rg]
    |_->let coll=new DBObjectCollection()
        rg.Explode(coll)
        rg.Dispose()
        [for x in coll->x:?>Region]
 
let IndexRegion (rg:Region) width height=
  let deltaX=width/10.0
  let deltaY=height/10.0
  let x0,y0=let pt=rg.GeometricExtents.MinPoint
            pt.X,pt.Y
  use br=new Brep(rg)
  seq{for face in br.Faces->
       seq{for lop in face.Loops->
            seq{for edge in lop.Edges->
                 use curve=edge.Curve
                 let intr=curve.GetInterval()
                 let p1,p2=intr.LowerBound,intr.UpperBound          
                 {p1..(p2-p1)/(curve.GetLength(p1,p2,(min deltaX deltaY)/2.0)/(min deltaX deltaY))..p2}
                   |>Seq.map (curve.EvaluatePoint)|>Seq.toArray}}}
                   |>Seq.concat|>Seq.concat|>Seq.concat //seq point3d
    |>Seq.fold (fun set pt->let x,y=(pt.X-x0)/width,(pt.Y-y0)/height
                            [0.0,0.0;0.0,0.1;0.0,-0.1;0.1,0.0;0.1,0.1;0.1,-0.1;-0.1,0.0;-0.1,0.1;-0.1,-0.1]
                             |>List.fold (fun set (a,b)->(x+a|>int,y+b|>int)|>function
                                                           |x when Set.contains x set|>not->Set.add x set
                                                           |_->set) set) (Set [])
 
let MakeRegion (pt1:Point3d) width height=
  let cl=new DBObjectCollection()
  use pl=new Polyline2d(Poly2dType.SimplePoly,new Point3dCollection([|pt1
                                                                      new Point3d(pt1.X+width,pt1.Y,pt1.Z)
                                                                      new Point3d(pt1.X+width,pt1.Y+height,pt1.Z)
                                                                      new Point3d(pt1.X,pt1.Y+height,pt1.Z)|]),
                        0.0,true,0.0,0.0,new DoubleCollection([|0.0;0.0;0.0;0.0|]))
  pl|>cl.Add|>ignore
  Region.CreateFromCurves(cl).[0]:?>Region
  
[<CommandMethod "Narez">]
let Narez()=
  let doc,ed,db,trf=Init()
  let Slice width height id=
    let start=System.DateTime.Now
    use tr=trf()
    let rg=tr.GetObject(id,OpenMode.ForWrite):?>Region
    let ext=rg.GeometricExtents
    let block=tr.GetObject(rg.BlockId,OpenMode.ForWrite):?>BlockTableRecord
    let AppendEnt (ent:Entity)=
        block.AppendEntity ent|>ignore
        tr.AddNewlyCreatedDBObject(ent,true)    
    use obr=MakeRegion ext.MinPoint width height
    let mtw=Matrix3d.Displacement(new Vector3d(width,0.0,0.0))
    let mth=Matrix3d.Displacement(new Vector3d(-width*(((ext.MaxPoint.X-ext.MinPoint.X)/width|>int)+1|>float),height,0.0))
    let index=IndexRegion rg width height
    "\n"+string(System.DateTime.Now-start)+" - индексация выполненна; "|>ed.WriteMessage
    {0..(ext.MaxPoint.Y-ext.MinPoint.Y)/height|>int}
      |>Seq.iter (fun y ->{0..(ext.MaxPoint.X-ext.MinPoint.X)/width|>int}
                             |>Seq.fold (fun (next,check) x ->
                                (Set.contains (x,y) index,next,check)|>function
                                   |true,_,_->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              use rgx=rg.Clone():?>Region
                                              cl.BooleanOperation(BooleanOperationType.BoolIntersect,rgx)
                                              if cl.Area<0.0001
                                                 then cl.Dispose()
                                                 else cl|>RegExplode|>Seq.iter AppendEnt
                                              false,true
                                   |_,_,true->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              use rgx=rg.Clone():?>Region
                                              cl.BooleanOperation(BooleanOperationType.BoolIntersect,rgx)
                                              if cl.Area<0.0001
                                                 then cl.Dispose()
                                                      false,false
                                                 else cl|>RegExplode|>Seq.iter AppendEnt
                                                      true,false
                                   |_,true,_->let cl=(obr.Clone():?>Region)
                                              obr.TransformBy(mtw)
                                              AppendEnt cl
                                              true,false
                                   |_->obr.TransformBy(mtw)
                                       false,false) (false,false)|>ignore
                          obr.TransformBy(mth))
    tr.Commit()
    "всего затраченно: "+string(System.DateTime.Now-start)+"\n"|>ed.WriteMessage
  let inline (|PromptOk|_|) (pr:^a)=(^a:(member Status:PromptStatus)pr)=PromptStatus.OK|>function
                                      |true->Some(pr)
                                      |false->None
  let ErrInput()=ed.WriteMessage("\nКоманда отменена")
  ed.GetSelection(new SelectionFilter([|new TypedValue(int(DxfCode.Start),"REGION")|]))|>function
    |PromptOk(ss)->ed.GetDistance("\nШирина: ")|>function
      |PromptOk(width)->ed.GetDistance("\nВысота:")|>function
        |PromptOk(height)->let start=System.DateTime.Now
                           seq{for ssid in ss.Value->ssid.ObjectId}
                            |>Seq.iter (Slice width.Value height.Value)
                           "\nОбщее время: "+string(System.DateTime.Now-start)|>ed.WriteMessage
        |_->ErrInput()
      |_->ErrInput()
    |_->ErrInput()

p.s. Внес несущественное исправление (синтаксическое).

Название: Re: Разрезать Region
Отправлено: Андрей Бушман от 09-06-2014, 20:45:08

Цитата: Дима_ от 09-06-2014, 16:38:57

С "диспозами" разобрался, но если меня не перемыкает в других версиях автокада такой диспоз (объекта который будут интерсектить вел к фаталу)

Я могу запустить твой код в AutoCAD версий 2009-2015. Могу попробовать, если обозначишь нужную версию. Погоди, а ты что, сейчас где-то диспозишь объект, который потом интерсектишь? :)

Название: Re: Разрезать Region
Отправлено: Дима_ от 10-06-2014, 00:01:58

Было так:

Код - C# [Выбрать]

let cl=(obr.Clone():?>Region)
obr.TransformBy(mtw)
cl.BooleanOperation(BooleanOperationType.BoolIntersect,rg.Clone():?>Region)
if cl.Area<0.0001
    then cl.Dispose()
    else cl|>RegExplode|>Seq.iter AppendEnt

Стало так:

Код - C# [Выбрать]

let cl=(obr.Clone():?>Region)
obr.TransformBy(mtw)
use rgx=rg.Clone():?>Region
cl.BooleanOperation(BooleanOperationType.BoolIntersect,rgx)
if cl.Area<0.0001
    then cl.Dispose()
    else cl|>RegExplode|>Seq.iter AppendEnt

Мне казалось, что раньше, объект который передавался в BooleanOperation как аргумент автоматом диспозился этим-же методом (что по логике правильно т.к. его фактически уничтожает), а может и глюк.

Название: Re: Разрезать Region
Отправлено: Александр Ривилис от 10-06-2014, 00:28:55

Цитата: Дима_ от 10-06-2014, 00:01:58

Мне казалось, что раньше, объект который передавался в BooleanOperation как аргумент автоматом диспозился этим-же методом (что по логике правильно т.к. его фактически уничтожает), а может и глюк.

Нет. Это тебе только казалось. Его нужно уничтожать самому. Он становится IsNull (что означает что он "пустой", т.е. не имеет геометрии), но не уничтожается.

Название: Re: Разрезать Region
Отправлено: Дима_ от 10-06-2014, 00:37:34

Возможно - с чем-то перепутал, если в других версиях не "икнет" - считаем "готовой".

Сообщество программистов Autodesk в СНГ

ADN Club => AutoCAD .NET API => Тема начата: Андрей Бушман от 26-05-2014, 14:08:29