[swkx]

Вопрос в теме.

[Дима_]

посмотреть какой есть объект в выбранной точке

[swkx]

Из простых способов посмотреть мне известен (ssget point), но он не работает, если пользователь после привязки изменит экран таким образом, что point будет не видна.

[kp+]

Сообщение от swkx Из простых способов посмотреть мне известен (ssget point), но он не работает, если пользователь после привязки изменит экран таким образом, что point будет не видна.

Тогда нужна тяжелая артиллерия - ObjectARX
Вариант: сама привязка тоже срабатывает только в видимой области экрана. Здесь может помочь реактор на срабатывание привязки (есть ли такой?), чтобы узнать, к чему она приклеилась, не дожидаясь, пока пользователь шевельнет мышью.

[swkx]

Сообщение от kp+ Тогда нужна тяжелая артиллерия - ObjectARX

Неее, это сложно. Артиллерист из меня хреновый((

Вопрос решен, тему можно закрыть.

[Profan]

Вопрос ни хрена не решен. В данном контексте рисуемый примитив ни к какому объекту вообще не прицепился, он "прицепился" к геометрической точке с какими-то координатами.

[ShaggyDoc]

Что-то мне кажется, что вопрос неверно поставлен. Как это "прицепился"? Сам, что ли? Такого допускать вообще нельзя.

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

Код:

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

 
(defun ru-get-point-on-ent (msg  / ent_selected  old_aperture   om  result)
;;; Выбор точки на примитиве. Возвращает (list примитив  точка)
    ;|
 (ru-get-point-on-ent "Укажи точку на отрезке или полилинии")
 Command: (ru-get-point-on-ent "Укажи точку на отрезке или полилинии")
Укажи точку на отрезке или полилинии <Выход>: (<Entity name: 4008f2b0> (898.383 
270.931 0.0))
ВОЗВРАЩАЕТ ТОЧКУ В WCS!!!
|;

    (setq om           (getvar "OSMODE")
          old_aperture (getvar "aperture")
    ) 
    (setvar "OSMODE" 512)
    (setvar "aperture" (getvar "pickbox"))
    (if (setq ent_selected
                 (ru-get-entsel-by-type
                     msg
                     "Это не ОТРЕЗОК и не ПОЛИЛИНИЯ"
                     (list "LINE" "LWPOLYLINE")
                     t
                 ) 

        ) 
        (setq result (list (car ent_selected)
                           (trans (osnap (trans (cadr ent_selected) 0 1) "_nea") 1 0)
                     )
        ) 
    ) 
    (setvar "OSMODE" om)
    (setvar "aperture" old_aperture)
    result
) 

[swkx]

Похоже, я ввёл в заблуждение массу уважаемых людей)). Но я этого не хотел.
Изначально была задача: определить объект, к которому окажется привязанным отрисованный пользователем отрезок. Если такой объект, конечно, вообще есть.
Я почему-то решил, что определить этот объект нужно непременно после указания пользователем обеих точек. Конечно, в этом случае задача сильно осложняется тем, что после выбора 1-й точки она может оказаться вне зоны видимости.

Совершенно очевидно, что определять объект привязки нужно после каждого указания точки. В этом случае всё элементарно.
Если бы я сегодня меньше думал о бабах, эта мысль тоже пришла бы сразу и до этого топика дело не дошло бы.

ShaggyDoc,

чем (ru-get-point-on-ent) отличается от (entsel) ? В двух словах...

[ShaggyDoc]

Совершенно очевидно, что определять объект привязки нужно после каждого указания точки.

Вот я и показал такую функцию - для случаев, когда точка должна лежать именно на объекте. Например, если надо "врезать" какое-нибудь условное обозначение в линию, а потом его автоматически сориентировать по его направлению.

чем (ru-get-point-on-ent) отличается от (entsel) ? В двух словах...

Так в тексте функции всё написано.
1. Точку можно указать только на примитиве заданных типов LINE или LWPOLYLINE, остальные будут проигнорированы
2. Если будет промах или примитив другого типа - функция вернет NIL
3. Если будет нажата ESC, программа не прервется, функция вернет NIL
4. Точка будет получена, даже если указать на LWPOLYLINE с WIDTH не равной нулю.

[swkx]

Сообщение от ShaggyDoc 4. Точка будет получена, даже если указать на LWPOLYLINE с WIDTH не равной нулю.

(setvar "OSMODE" 512) - именно для выполнения 4-го пункта ?

[ShaggyDoc]

Сообщение от swkx (setvar "OSMODE" 512) - именно для выполнения 4-го пункта ?

Нет, там в комплексе влияет
(setvar "aperture" (getvar "pickbox")) и (osnap (trans (cadr ent_selected) 0 1) "_nea")