[tehkonst]

Ситуация следующая:

Программно из определенной точки строится отрезок в слое "LAY1".

Код:

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

 ( setq tLine ( vla-AddLine modelSpace pt1 pt2 ) )
( vla-put-Layer tLine "LAY1" )

Может так случится, что в этой точке в этом же направлении и в том же слое уже есть отрезок (возможно другой длины).
В этом случае вместо построения нужно присвоить этот отрезок переменной tLine.

Как это можно реализовать?

[VVA]

Может так же случится, что в этом месте есть отрезок с направлением + 180 градусов и с началом где-то в созвездии пса?
В такой постановке вижу пока только следующий алгоритм:
1. "Раздвигаем" точки pt1 и pt2 на максимальное расстояние

Код:

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

    (setq pt1N (polar pt1 (angle pt1 pt2) 10000) ;_вместо 10000 приемлемая для твоего случая цифра
     (setq pt2N (polar pt2 (angle pt2 pt1) 10000) ;_вместо 10000 приемлемая для твоего случая цифра

2. Перебираем существующие отрезки на предмет принадлежности его начала и конца отрезку [pt1N pt2N]
DwgRuLispLib: Геометрия. Принадлежность точки отрезку
3. Дальше 3 варианта
- ничего не нашли
- нашли 1 отрезок
- нашли больше 1 отрезка

[tehkonst]

Все существующие - это перебор. Можно просто сделать ssget в точке

Код:

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

 ( setq ss 
			( ssget 
				"_C" 
				( polar point (/ pi 2) 0.1 ) 
				( polar point ( + pi (/ pi 2) ) 0.1 )
 				'((8 . "LAY1"))
			) 
		) 

И не раздвигать, а xline нарисовать.

Спасибо за подсказку, я попробую.

[VVA]

чтобы ssget сработал - эта точка должна быть видна на экране

[tehkonst]

Да действительно. Не знал такой особенности.