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

Доброго всем!
Суть такова: программно вычисляется некая точка в пространстве модели. Точка практически гарантированно находится вне экрана ("не видна"). Необходимо получить указатели на объекты, проходящие через эту точку, с указателями на описания блоков и внешних ссылок, в которые входят эти объекты.
nentselp с указанием в качестве параметра этой точки возвращает nil, если точка находится вне активного экрана. Аналогичный результат (точнее, его отстутствие) выдает и ssget с ключами типа _+W:V.
Хочется в результате получить список вида

Код:

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

'((Указатель на объект) (Указатель на вхождение блока-владельца) <...> (Указатель на вхождение внешней ссылки))

Выполнять постоянный (vla-zoomall (vlax-get-acad-object)) и (vla-zoomprevious (vlax-get-acad-object)) не годится - модель достаточно тяжелая и регенерироваться будет недопустимо долго. Проход по всем примитивам, конечно, попытаться реализовать можно, но это слишком тяжело будет - многоуровневые вложения внешних ссылок и блоков повергают меня в трепет.
Посоветуйте, пожалуйста, метод, гарантированно возвращающий список самого объекта и его владельцев. Спасибо.
---
P.S. Используется AutoCAD Architecture 2008 Eng + SP1.
P.P.S. Для примера: можно нарисовать отрезок с координатами от '(0. 0. 0.) до '(10. 20. 30.), pan'ом смесить изображение за границы экрана и выполнить в vlide или ком.строке

Код:

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

(nentselp '(0. 0. 0.))

---
Добавлено: через указанную точку может проходить несколько объектов, получать указатели надо на все. К сожалению, это критично

[Олег (jr.)]

Сообщение от Кулик Алексей aka kpblc Доброго всем! Суть такова: программно вычисляется некая точка в пространстве модели. Точка практически гарантированно находится вне экрана ("не видна"). Необходимо получить указатели на объекты, проходящие через эту точку, с указателями на описания блоков и внешних ссылок, в которые входят эти объекты. nentselp с указанием в качестве параметра этой точки возвращает nil, если точка находится вне активного экрана. Аналогичный результат (точнее, его отстутствие) выдает и ssget с ключами типа _+W:V. Хочется в результате получить список вида Код: [Выделить все] '((Указатель на объект) (Указатель на вхождение блока-владельца) <...> (Указатель на вхождение внешней ссылки)) Выполнять постоянный (vla-zoomall (vlax-get-acad-object)) и (vla-zoomprevious (vlax-get-acad-object)) не годится - модель достаточно тяжелая и регенерироваться будет недопустимо долго. Проход по всем примитивам, конечно, попытаться реализовать можно, но это слишком тяжело будет - многоуровневые вложения внешних ссылок и блоков повергают меня в трепет. Посоветуйте, пожалуйста, метод, гарантированно возвращающий список самого объекта и его владельцев. Спасибо. --- P.S. Используется AutoCAD Architecture 2008 Eng + SP1. P.P.S. Для примера: можно нарисовать отрезок с координатами от '(0. 0. 0.) до '(10. 20. 30.), pan'ом смесить изображение за границы экрана и выполнить в vlide или ком.строке Код: [Выделить все] (nentselp '(0. 0. 0.)) --- Добавлено: через указанную точку может проходить несколько объектов, получать указатели надо на все. К сожалению, это критично

А почему нельзя перед этим сместиться в эту точку

Код:

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

(command "._zoom" "_C" pt 1.0)

затем

Код:

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

(ssget (list (car pt)(cadr pt)) (list (cons 0 "Чё надо")))

потом обработка результата и возврат в окопы:

Код:

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

(command "._zoom" "_p")

Впрочем ты ж так пробовал наверняка...

~'J'~

[VVA]

Кулик Алексей aka kpblc, Автокада под рукой нет, чтобы проверить, но ,как говорится, в порядке бреда:
1. ssget за пределами экрана выбирать не хочет. Но обладают ли такими недостатками activeX методы ?. Я имею ввиду vla-select, vla-SelectByPolygon, vla-SelectAtPoint. Пример можно посмотреть у MENZI ENGINEERING: VxSsetSelect - ActiveX counterpart to 'ssget'
2. Объект точка (POINT) тоже имеет метод IntersectWith. Создаешь в нужной координате точку (Или как вариант создать маленький прямоуголькик по размеру прицела или с нужными тебе допусками. Это, наверное, даже лучше.) и перебором посмотреть что ее (его) пересекает.
Таким образом (если один из вариантов сработает) можно получить указатели на блоки или внешние ссылки. А вот как получить указатель на пересекаемый объект блока - вопрос.

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

Олег (jr.), спасибо Но, к сожалению, применение командных методов моментально приводит к регенерации модели (да и vla-zoom* Добавлено: тоже потребует в результате выполнения регенерации). А это приличные потери времени - от 20 секунд и выше.
VVA, спасибо, но... Я не уверен, что ActiveX-методы построения набора поддерживают ключи типа _:U или _:V. Спасибо за наводку, полезу в справку

[Дима_]

А если точка лежит внутри GetBoundingBox'а пойдет? Если да и файлы большие то можно создать одним рекурсивным сканированием (по блокам и ссылкам) список по всем объектам с координатами pt1,pt2, Далее взять максимально возможное значение по х (ну допустим xmax=1000000000) и записать все точки в виде y*xmax=x, отсоритровать по обоим точкам (что то типо двух таблиц по pt1-объект, pt2-объект). После этого берем произвольную точку xy преобразуем ее в число и сразу отсекаем по принципу больше меньше все ненужные объекты - если объектов действительно много - думаю будет быстрей на порядок, а может и на несколько.

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

Да, похоже, так и придется делать. С постоянным polar и trans...
Что называется, "брутальный" метод.
Спасибо

[Дима_]

А зачем постоянный транс и полар?

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

Так блоки-то имеют точку вставки не только '(0. 0. 0.), да и угол поворота у них не обязательно 0

[kp+]

Но ведь Акад "внутри себя" как-то определяет все эти вещи? Если это не вынесено в интерфейсы LISP и ActiveX, надо копать в направлении ARX...

PS Мне, конечно, легко говорить, т. к. сам в ARX не шарю Гуру ARX, отзовитесь!