[Zaghim]

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


Ну хоть скажите можно так сделать или нет?

[Profan]

Что значит "пущу"? Начерчу на экране?

[zenon]

Должно быть включено отслеживание (OTRACK), и включены привязки Endpoint, остальное думаю сами догадаетесь.
ps в процессе нельзя менять масштаб.

[Zaghim]

А можно пример в студию...?
Пущу значит сделаю (polar точка1 угол1 1000000000)
Поставил я точку гетпоинтом, дальше пустил линию на 1000000 вверх (линия пересечения может быть где угодно) и как узнать, где она встретит эту вторую линию???

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

Да бога ради:

Код:

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

(defun test (ent base ang make / res)
;;; ent -> указатель на отрезок
;;; base -> точка, откуда надо брать
;;; ang -> угол поворота
;;; make -> ставить точку на пересечении (t) или нет (nil)
  ;|
* Пример вызова
(test (car (entsel)) (setq pt (getpoint "\nBase point : ")) (getangle pt "\nAngle : ") t)
|;
  (if (and ent
           (= (type ent) 'ename)
           (= (cdr (assoc 0 (setq ent (entget ent)))) "LINE")
           base
           ang
           ) ;_ end of and
    (progn
      (setq res (inters (cdr (assoc 10 ent)) (cdr (assoc 11 ent)) base (polar base ang 10.) nil))
      (if (and res make)
        (entmakex (list (cons 0 "POINT")
                        (cons 10 res)
                        ) ;_ end of list
                  ) ;_ end of entmakex
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  res
  ) ;_ end of defun

[Zaghim]

У меня не работает, пишет мало аргументов(((
Можно это оформить как кусочек уже внутри когда, где мне уже известно: начальная точка, и все углы

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

Zaghim, я же привел пример вызова! Нарисуй отрезок, потом вызывай

Код:

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

(test (car (entsel)) (setq pt (getpoint "\nBase point : ")) (getangle pt "\nAngle : ") t)

Будет тебе пример.
P.S. Код проверял только в мировой системе координат и только в режиме "вид сверху".

[Zaghim]

В общем не так ты все понял.
Во-первых ты эту линию получаешь вначале тыкая на нее...а я не должен тыкать, я должен тыкнуть только один раз - указав базовую точку, а не объект.
Во-вторых, если ты укажешь полилинию - работать не будет...а нужно в основном для работы с полилинией...

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

Во-первых, что просил, то и получил:

Сообщение от Zaghim я пущу линию из точки и буду знать точки начала и конца только одного отрезка...а какой она пересечет второй понятия не имею

Во-вторых, проанализируй код - там всего одна ключевая строка.

[Zaghim]

По-моему в заголовке темы все понятно написано...
А что там анализировать...? Есть у тебя базовая точка, и точка, которую ты отложил поларом...а вторые две точки получил ентгетом и выдрал координаты... Ну и следом интерс по 4 точкам....

А с привязками хорошая идея, но не работает(((

[Дима_]

Сообщение от Zaghim По-моему в заголовке темы все понятно написано...

Offtop: Лично мне нечетра не понятно. Хотя с автокадом, да и с лиспом, я по крайней мере знаком.

[CB]

Лично мне не понятно тоже...

вторые две точки получил ентгетом

Каким образом получил указатель на имя линии/плинии, из которого выдрал координаты?

нужно в основном для работы с полилинией

Про это нигде не было сказано...

[Zaghim]

Короче говоря нужен какой-то механизм, который будет работать на подобие команды inters. Inters не подходит тем, что в нем нужно знать координаты начала и конца двух отрезков. А я знаю только одного - точку ставлю тыкая на экран - начальная точка отрезка 1, точка 2 отрезка 1 определяю polar'ом. Мне нужно найти пересечение этого отрезка с другим, который был ранее нарисован на чертеже, его координаты я НЕ МОГУ получить entget'ом тыкая по этому отрезку. Сейчас думаю понятно...

Нужно найти точку пересечения двух отрезков (координату), зная координаты только одного отрезка.

[CB]

который был ранее нарисован на чертеже

А если их там несколько - как определить с каким нужно искать пересечение?

[Zaghim]

Нужно узнать самый первый с которым столкнется...

[Do$]

Offtop: К 15 посту более-менее понятно становится, чего хочется автору

[Zaghim]

Осталось только понять, как это реализовать!

Вообще вся эта штуковина нужна для того, что бы:
1) узнать расстояние от точки 1 до отрезка 2.
2) вытащить некоторые свойства отрезка 2.

[TararykovDG]

Zaghim, а если по указанным точкам для первого отрезка построить примитив (тот же "LINE"), а потом _extend (удлинить) его до всех примитивов чертежа, то он по идеи должен сам удлиниться до ближайшего в нужном направлении, вот точка пересечени, или нет?

[Zaghim]

TararykovDG, вроде как ничего идейка, щас попробую))) Спасибо за наводку.
Нет, не подходит так. Если стоит маленький отрезок между двумя линиями, то, что бы сделать Extend нужно выбрать этот маленький отрезок и две соседние линии, а выбрать я их не могу))

[TararykovDG]

Zaghim, Зачем что-то выбирать
Пусть
pnt0 - 1-я точка известного отрезка
pnt1 - 2-я точка известного отрезка
eps = 0.1 (или еще меньше)

Код:

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

 (vl-cmdf "_.extend" "_All" "" "_Fence" pnt1 (polar pnt1 (angle pnt0 pnt1) eps) "" "")

Обязательно отключить привязку