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

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

[Дима_]

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

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

Может, проще будет все же воспользоваться инструментами Civil'a? Там же не точки, а объекты Civil...

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

Дима_, выкладываю, то, что должно получиться.
Кулик Алексей aka kpblc, я не знаю, как будет проще, лишь бы работало. В дальнейшем я буду импортировать точки в этот dwg по мере их поступления, и применять данный лисп.

[gomer]

А где точки?

[Дима_]

Макс ну ты прикалываешся что-ли? У тебя пример результата рисунку соответствует? В какие единицы не переводи - отношения в расстояних различается. Еще раз напоминаю - нужен-ли здесь вообще автокад - откуда эти точки полученны - не поленись тоже файл приложи. (только чтоб соответствовал).
p.s. если хочешь чтобы тебе что-то сделали не поленись объяснить, и пойми наконец что "секретные" точки твоей фирмы здесь всем по барабану, будешь урывками выкладывать это рано или поздно всех з...ет и обмерять тебе руками свои точки (или лисп учить).

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

Выкладываю файл с точками.
Дима_, да я значения расстояний наугад написал для примера, как должно выглядеть в лучшем случае. Там должны стоять истинные расстояния между точками.

[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

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

ВДима_, выкладываю файл, то что должно получиться, с реальными расстояниями и реальным расположением их в таблице (т.е. с минимальной по максимальную).

[Дима_]

Я правильно понимаю что 3 столбец (144,9 130,9 134.9 149.2) в расчетах участия не принимает?
То есть считаем расстояния только по 2 и 3 столбцу (x,y)?

[Олег (jr.)]

Сообщение от Макс_Кунгур ВДима_, выкладываю файл, то что должно получиться, с реальными расстояниями и реальным расположением их в таблице (т.е. с минимальной по максимальную).

Сегодня наверно не смогу даже глянуть твой файл -
срочная работа
Сделаю позже...

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

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

[Дима_]

Так у тебяж она не считаеться (у тебя только по 2 координатам?) Точно учитывать надо? (ладно-уж расчет можешь не переделывать, скажи только он верен или нет - ихмо он по 2 сделан)

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

Дима_, а как я смогу это проверить, если у меня этих значений расстояний нет. В том-то и дело, что мне их и нужно рассчитать и выдать результат. А когда они появятся, сверить с моими.

[Дима_]

Короче я делаю тебе прогу которая считает расстояния с учетом xyz.

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

Моей соображалки хватило только на такое:

[Дима_]

Смотри внимательно соблюдай формат твоего-же файла (программа его не проверяет набросал из готовых блоков - некогда мне особо), первую строку (в твоем файле она пустая) пропускает - можешь добавить там, например заголовок. Но все остальное - чтоб также (разделители табуляторы, поля по порядку). Выходной файл называй *.csv - его эксель должен "на ура" читать. Результат работы твоего-же примера в архиве. Если захочешь что-нибудь добавить-поменять 7 раз подумай - ничего не упусти - потом спроси.

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

Дима_, спасибо. Сегодня-завтра потестирую, ответ напишу.
Кулик Алексей aka kpblc, спасибо, можно и так. Там у тебя в архиве только результат, а где сам лисп?

[Олег (jr.)]

Тут делов с гулькин нос
Спробуй

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

Макс_Кунгур, там нет лиспа. На втором листе Excel'a просто вычисления, вот и все. ДОбавляешь точки с номерами, справа - от какой до какой точки. И получаешь расстояния.

[CB]

>Олег (jr.)

Там же не точки, а объекты Civil...

Пробуй такой вариант. С красотой в Exel'е не заморачивался...

Код:

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

(defun dwgru-string-to-list (str delimiter / pos)
  (if (= delimiter (chr 32))
    (setq str (dwgru-string-replace
                str
                (strcat (chr 32) (chr 32))
                delimiter
              ) ;_ end of dwgru-string-replace
    ) ;_ end of setq
  ) ;_ end of if
  (if (setq pos (vl-string-search delimiter str))
    (cons
      (substr str 1 pos)
      (dwgru-string-to-list
        (substr
          str
          (+ (strlen delimiter) pos 1)
        ) ;_ end of substr
        delimiter
      ) ;_ end of ru-string-pl-string-to-list
    ) ;_ end of cons
    (cons str '())
  ) ;_ end of if
) ;_ end of defun

(defun test (/ ent lst filename file)
  (setq ent (ssget "_x" '((0 . "MTEXT"))))
  (if ent
    (progn
      (setq lst
             (mapcar
               '(lambda (el)
                  ((lambda (txt pt)
                     (cons
                       (substr (car txt) 3)
                       (mapcar '+
                               pt
                               (list 0. 0. (read (last txt)))
                       ) ;_ end of mapcar
                     ) ;_ end of cons
                   ) ;_ end of lambda
                    (dwgru-string-to-list (car el) "\\P")
                    (cdr el)
                  )
                ) ;_ end of lambda
               (vl-sort
                 (mapcar
                   '(lambda (x)
                      ((lambda (a)
                         (cons
                           (cdr (assoc 1 a))
                           (cdr (assoc 10 a))
                         ) ;_ end of cons
                       ) ;_ end of lambda
                        (entget x)
                      )
                    ) ;_ end of lambda
                   (vl-remove-if
                     'listp
                     (mapcar 'cadr (ssnamex ent))
                   ) ;_ end of vl-remove-if
                 ) ;_ end of mapcar
                 (function
                   (lambda (a b)
                     (< (car a) (car b))
                   ) ;_ end of lambda
                 ) ;_ end of function
               ) ;_ end of vl-sort
             ) ;_ end of mapcar
      ) ;_ end of setq
      (setq
        filename
         (strcat (getvar "dwgprefix")
                 (vl-filename-base (getvar "dwgname"))
                 ".csv"
         ) ;_ end of strcat
      ) ;_ end of setq
      (setq file (open filename "w"))
      (mapcar
        (function
          (lambda (l)
            (foreach i l
              (write-line
                (strcat (car i) " " (rtos (cadr i) 2 2))
                file
              ) ;_ end of write-line
            ) ;_ end of foreach
          ) ;_ end of lambda
        ) ;_ end of function
        (mapcar
          (function
            (lambda (x)
              ((lambda (txt pt)
                 (mapcar
                   '(lambda (y)
                      (list
                        (strcat "r" txt "-" (car y))
                        (distance pt (cdr y))
                      ) ;_ end of list
                    ) ;_ end of lambda
                   (vl-remove x lst)
                 ) ;_ end of mapcar
               ) ;_ end of lambda
                (car x)
                (cdr x)
              )
            ) ;_ end of lambda
          ) ;_ end of function
          lst
        ) ;_ end of mapcar
      ) ;_ end of mapcar
      (close file)
      (print (strcat "Файл " filename " успешно создан..."))
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

Запуск - (test)