[Веселин]

И снова здравствуйте!
Вот у меня есть линия, или полилиния, выделена красным. И две области, выделены фиолетовым.
Мне нужно проверить, если область примыкает к линии, то найти точки соприкосновения.
Как бы я делал. Взорвать область, получатся линии. Потом каждую из этих линий проверить на inters.
Но тогда та область, которая не соприкасается, тоже выдаст точки пересечения. Это лишние траты памяти.
Как бы мне упростить это?

[nolte]

попробуй vla-intersectwith

[Веселин]

Уже пробовал. Если область не соприкасается с линией, то возникает ошибка

Код:

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

; ошибка: ActiveX Server возвратил ошибку: Неверный индекс

Если же область примыкает к линии, то все в порядке.

----- добавлено через ~26 мин. -----
Все что я понял, это не порядок с индексами безопасного массива. А как это привести в должный вид?

[Дима_]

Сообщение от Веселин Уже пробовал. Если область не соприкасается с линией, то возникает ошибка

Это ошибка, скорее всего, возникает не из-за вызова метода, а и-за неверной обработки ее результатов - перед тем как safearray преобразовывать в список - его надо проверить,например vlax-safearray-get-u-bound.
з.ы. А вообще надо выкладывать код - в котором у Вас ошибка

[Веселин]

Вот так работает.

Код:

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

(progn (vl-load-com)
  (setq polyline (vlax-ename->vla-object (car (entsel "\nВыбрать Полилинию: ")))
        region   (vlax-ename->vla-object (car (entsel "\nВыбрать Область: "  )))
        plist (vlax-variant-value (vla-intersectwith polyline region acExtendNone)))
  (if (>= (vlax-safearray-get-u-bound plist 1)
          (vlax-safearray-get-l-bound plist 1))
      (vlax-safearray->list plist)
    );end if
);end progn

[nolte]

Код:

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

 
Команда: (mapcar '(lambda (a)
 (if (not
(eq (vlax-safearray-get-u-bound
 (vlax-variant-value
(setq pp(vla-intersectwith f (vlax-ename->vla-object a) acextendnone))
)
 1
 )
 '-1
 )
 )
 (setq lst_sect (cons (vlax-safearray->list(vlax-variant-value pp)) lst_sect))
 )
 )
 lst
 )
(((2092.72 1144.17 0.0)) nil)

Команда: !lst_sect
((2092.72 1144.17 0.0))

где f - объект
lst - список объектов с которыми может пересекаться объект f

[Веселин]

Спасибо, будем считать эту тему пройденной.