[Макс_Кунгур]

Добрый день! Столкнулся с такой задачей. Есть чертеж с множеством точек (около 100). Нужно при помощи языка LISP найти расстояния от одной точки, которую ты укажешь на чертеже, до всех остальных точек. Результат с расстояниями должен вывестись в текстовый файл или в таблицу Excel.
Как найти расстояние между 2-мя точками, я знаю. А вот как до всех точек, пока не разобрался. Подскажите, пожалуйста, как решить данную задачу.

[Дима_]

Сообщение от Олег (jr.) Жжешь, Кароч, мне твое мнение по барабану Юзер без тебя разберется

рано или поздно - безусловно - только боюсь, не последний раз ты код переписываешь

[Макс_Кунгур]

CB, потестировал твой последний лисп, вроде бы все хорошо, но твои расстояния не совпадают с расстояниями Олег (jr.). Н-р: у тебя 10Э06 -> 9гЭ06 42.09, а у Олег (jr.) - 38.3214. По твоему лиспу у меня такой результат получается:

ТОЧКА 10Э06
10Э06 -> 9Э05 28.17
10Э06 -> 9бЭ06 28.82
10Э06 -> 9аЭ06 36.62
10Э06 -> 9гЭ06 42.09
10Э06 -> 9Э06 45.45
10Э06 -> 35 49.95
10Э06 -> 15Э06 50.46
10Э06 -> 9вЭ06 56
10Э06 -> 7Э06 57.32
10Э06 -> 12Э06 65.08
10Э06 -> 11Э06 85.91
10Э06 -> 14Э06 87.12
10Э06 -> 13Э06 87.56
10Э06 -> 34 118.66
10Э06 -> 4Э04 392.42
10Э06 -> 1Э04 392.58
10Э06 -> 5Э04 437.12
10Э06 -> 2Э04 438.07
ТОЧКА 11Э06
11Э06 -> 13Э06 21.82
11Э06 -> 12Э06 35
11Э06 -> 9вЭ06 35.5
11Э06 -> 9Э06 45.09
11Э06 -> 34 46.36
11Э06 -> 9аЭ06 53.07
11Э06 -> 35 53.67
11Э06 -> 15Э06 55.22
11Э06 -> 14Э06 57.96
11Э06 -> 7Э06 61.78
11Э06 -> 9бЭ06 64.39
11Э06 -> 9Э05 65.36
11Э06 -> 9гЭ06 69.86
11Э06 -> 10Э06 85.91
11Э06 -> 4Э04 453.19
11Э06 -> 1Э04 458.33
11Э06 -> 5Э04 498.46
11Э06 -> 2Э04 502.65
.................................
Вывод мне нравится, только лишь бы расстояния правильные были. Но я проверить это не могу, потому что кроме координат точек у меня данных нет. У тебя координата z учитывается в нахождении расстояния?
И еще вопрос: если у меня на рисунке в дальнейшем будут построены границы и поверхности по этим точкам с изолиниями, программа сможет посчитать расстояния?

[CB]

Выводы делай сам...

Код:

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

Command: (entget (car (entsel)))
Select object: ((-1 . <Entity name: 40072818>) (0 . "MTEXT") (330 . <Entity 
name: 40070cf8>) (5 . "26B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . 
"0") (62 . 1) (100 . "AcDbMText") (10 483912.0 6.37368e+006 0.0) (40 . 2.0) (41 
. 0.0) (71 . 4) (72 . 5) (1 . "№ 10Э06\\P\\P149.5") (7 . "Standard") (210 0.0 
0.0 1.0) (11 1.0 0.0 0.0) (42 . 11.6667) (43 . 8.66667) (50 . 0.0) (73 . 1) (44 
. 1.0))

Command: (entget (car (entsel)))
Select object: ((-1 . <Entity name: 400727b8>) (0 . "MTEXT") (330 . <Entity 
name: 40070cf8>) (5 . "267") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . 
"0") (62 . 1) (100 . "AcDbMText") (10 483918.0 6.37364e+006 0.0) (40 . 2.0) (41 
. 0.0) (71 . 4) (72 . 5) (1 . "9гЭ06\\P\\P132.1") (7 . "Standard") (210 0.0 0.0 
1.0) (11 1.0 0.0 0.0) (42 . 8.66667) (43 . 8.66667) (50 . 0.0) (73 . 1) (44 . 
1.0))

(setq pt1 (getpoint "\nМтекст 10Э06: "))
=> (483912.0 6.37368e+006 0.0)

(setq pt2 (getpoint "\nМтекст 9гЭ06: "))
=> (483918.0 6.37364e+006 0.0)

(setq a (distance pt1 pt2))
=> 38.3214

(setq b (- 149.5 132.1))
=> 17.4

(sqrt (+ (* a a) (* b b)))
=> 42.0867

(rtos 42.0867 2 2)
=> "42.09"

[Елпанов Евгений]

Макс_Кунгур, почитал тему, стало очень любопытно...
Зачем все эти вычисления? Точнее, что нужно в конце?
Может сразу нужно вычислить триангуляцию, например по Делоне или полигоны Вороного? По сути, запрошенные вычисления - направленный граф, те. вычисления, не зависимо от конечной задачи, избыточны.
В предложенном задании, надо создать таблицу расстояний от точки до всех остальных и таблиц по количеству точек, сортировку в таблицах, сделать по расстоянию до остальных. Очень похоже на данные по триангуляции. Я упомянул о графе не зря - значительно быстрее будет вычислить в первой таблице расстояние от первой точки до всех, кроме первой, во второй, от второй до всех, кроме первой и второй, в третьей, от третьей до всех, кроме первой, второй и третьей. Вычислений меньше, данных столько же, использовать в будущем, еще проще.

Но если говорить о триангуляции, то можно вообще не вычислять расстояние от точки до всех, достаточно сначала отсортировать все облако точек, а потом вычислять это расстояние от каждой до трех...

Удачи!

[Олег (jr.)]

Сообщение от Елпанов Евгений Макс_Кунгур, почитал тему, стало очень любопытно... Зачем все эти вычисления? Точнее, что нужно в конце? Может сразу нужно вычислить триангуляцию, например по Делоне или полигоны Вороного? По сути, запрошенные вычисления - направленный граф, те. вычисления, не зависимо от конечной задачи, избыточны. В предложенном задании, надо создать таблицу расстояний от точки до всех остальных и таблиц по количеству точек, сортировку в таблицах, сделать по расстоянию до остальных. Очень похоже на данные по триангуляции. Я упомянул о графе не зря - значительно быстрее будет вычислить в первой таблице расстояние от первой точки до всех, кроме первой, во второй, от второй до всех, кроме первой и второй, в третьей, от третьей до всех, кроме первой, второй и третьей. Вычислений меньше, данных столько же, использовать в будущем, еще проще. Но если говорить о триангуляции, то можно вообще не вычислять расстояние от точки до всех, достаточно сначала отсортировать все облако точек, а потом вычислять это расстояние от каждой до трех... Удачи!

Я еще не удивлюсь как вдруг выяснится, что координата Z
хранится во второй строчке Mtext'a
Просто удивительно, когда человек имеет такое
количество постов на форуме, а вопросы задавать как-то
не очень...
И вот целая толпа уже неделю решает плевую проблему...
Ну...ваще

[CB]

А чего удивляться - про это уже было сказано...

Сообщение от CB О как! Оказывается здесь точки в пространстве, а не в плоскости... 1 484304.0 6373696.0 144.9 1Э04 2 484349.2 6373694.2 130.9 2Э04 3 484303.3 6373661.0 134.9 4Э04 4 484348.4 6373662.6 149.2 5Э04

Сообщение от Макс_Кунгур Извините, забыл сказать, что координату z (т.е. 3-й столбец 144,9 130,9 134.9 149.2) надо ОБЯЗАТЕЛЬНО в расчеты брать!!!

[Олег (jr.)]

Сообщение от CB А чего удивляться - про это уже было сказано...

Мне лично это сказано не было и я умываюсь отседа

[Макс_Кунгур]

CB, все понял. спасибо огромное. твой лисп мне очень помог.

[Олег (jr.)]

С учетом значений текста как координаты Z

~'J'~