Разрезать Region

[Андрей Бушман]

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

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

[Дима_]

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

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

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

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

[Андрей Бушман]

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

(выполнен regen)

[Дима_]

(выполнен regen)

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

[Андрей Бушман]

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

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.

[Дима_]

Я просто "мелочь" компилирую из *.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

[Андрей Бушман]

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

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   

[Андрей Бушман]

В строке

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

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

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

   

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

[Андрей Бушман]

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

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

[Дима_]

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

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

[Андрей Бушман]

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

Тестировал на этом файле, предварительно скопировав содержимое два раза и затем всё это отправив в обработку (нарезку). Windows 7x86.

[Дима_]

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

[Андрей Бушман]

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

10х10

[Андрей Бушман]

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

[Александр Ривилис]

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