Помощь с редактированием lisp

Пользуюсь лиспом для вывода координат в блокнот "coorN.LSP"
После выполнения команды "Coor - Полилиния или сплайн - Файл - *Выбираю папку для сохранения* - Yes" он выдает мне координаты в блокноте в следующем виде (см. скриншот 1).
Хотелось бы узнать, можно ли внести в лисп изменения, чтобы он выдавал координаты в следующем виде (см. скриншот 2)?
То есть, грубо говоря, в блокнот будет выведен шаблон, где будут меняться только координаты x и y без высоты (выделено красным на скриншоте 2).

Шаблон в текстовом виде (open) Шаблон в текстовом виде (close)

Definition Table
File ".tif"
Type "RASTER"
(2177627.4100,518246.7700) (0, 0) Label "LeftUp",
(2177877.3900,518242.8700) (5906, 0) Label "RightUp",
(2177873.5000,517992.9000) (5906, 5906) Label "RightDown",
(2177623.5200,517996.7900) (0, 5906) Label "LeftDown"
CoordSys NonEarth Units "m"
Units "m"

 

Правильно ли я понял, что вам нужно вывести в файл координаты X Y углов полилинии согласно приложенному шаблону?

 

Да, все верно

 

Выложите файл dwg с вашими полилиниями.

 

Ну у меня их очень много. В от несколько в качестве примера

 

Растры, к сожалению, предназначены только для служебного пользования. Занимаемся их привязками. Но это неважно. По сути, мне нужно чтобы координаты у лиспа, который выводит координаты, просто выводились по определённому шаблону.

 

Make_tab_file

 

Вызов лиспа командой COORN

--- Сообщения объединены, Feb 16, 2021, Оригинальное время сообщения: Feb 16, 2021 ---

Помню советский анекдот

Идет мужик по улице, смотрит новый магазин. Дай, думает, зайду. Заходит, его встречает улыбающийся продавец и говорит: Здравствуйте, мы очень Вам рады, что бы Вы хотели приобрести?
Мужик подумал и говорит: — Ну, перчатки нужны.
Продавец: — Пройдите, пожалуйста в тот отдел.
Мужик подходит: — Здравствуйте, мне нужны перчатки.
Ему в ответ: — Вам какие летние или зимние?
М: Зимние.
П: Тогда пройдите в вон тот отдел.
М. пошел, спрашивает в очередном отделе: Здравствуйте, мне нужны перчатки.
П: Вам кожаные или нет?
М: Кожаные.
П: Тогда Вам в вон тот отдел.
М: не понял, но ладно, пошел.
Здравствуйте, мне нужны Зимние кожаные перчатки.
П: Вам с натуральным мехом или нет?
М.: С натуральным, конечно.
П: Вам надо в отдел напротив.
М. напрягается, но идет. В новом отделе повышенным голосом говорит:
«Мне нужны перчатки ЗИМНИЕ КОЖАНЫЕ С НАТУРАЛЬНЫМ МЕХОМ».
П: Вам с застежкой или без?
М: С застежкой!
П: Вытяните руку, растопырьте пальчики.
М: Пожалуйста.
П: Вам надо в соседний отдел.
М. (гневно): что это такое, Вы что надо мной издеваетесь?! Дайте мне перчатки, и я уйду.
П: Не волнуйтесь, мы просто хотим продать Вам именно то что Вы хотите, чтобы
Вы получили максимум удовольствия от покупки. Вы перчатки подбираете под это пальто?
М. в раздражении: Да! и идет дальше по отделам.
Подходит к следующему продавцу и с надрывом: — Мне нужные зимние кожаные с натуральным мехом и застежкой на эти руки к этому пальто перчатки!!!
П: Вам застежка нужна на кнопочке или молния?
М (на грани истерики): На кнопочке!!!
П: Вам надо вон к тому продавцу…
В этот момент распахиваются входные двери, в магазин заходит мужик, который
держит на вытянутых руках вырванный с корнем унитаз, по краям которого осталась еще плитка.
Подходит к прилавку и кричит:
Вот такой у меня унитаз, вот такая плитка, жопу я вам вчера показывал, дайте мне, наконец, туалетную бумагу!!!!

 

Написал программу формирует текстовый файл согласно шаблону.
Повторный запуск программы, набрать на клавиатуре цифры 01 и нажать Enter.
Файл с координатами XY.txt создается в директории из которой был запущен файл dwg (запускаем двойным щелчком мышки).
Тестирование возлагается на пользователя.

 

"Вы либо штаны оденьте, либо крестик снимите!"

Не получится одновременно. Точнее получится, но так коряво, что менее плохо было бы, если б не получилось.

 

Вот тут посвежее версия, чуть удобнее в использовании и даже что-то там исправлял.
https://geodesist.ru/threads/malenkie-besplatnye-lispy.67505/page-2#post-940882

 

Simon_Riley, что бы программа XY_Simon_Riley01.fas правильно заполняла шаблон, порядок отрисовки полилинии должен соответствовать шаблону (LeftUp->RightUp->RightDown->LeftLDown).
К сожалению у Вас в чертеже другой порядок отрисовки плинии!.
Если по каким то причинам порядок отрисовки плиний должен быть другим нежели в шаблоне, то я могу подредактировать программу

 

Я вон там вверху Coorn исправил. Всё работает.

 

Скачал Вами отредактированную программу COORN1000.lsp.
Протестил на примере от Simon_Riley.
Получил файл с координатами X Y. Заполненных шаблонов не увидел.

 

Скачать недостаточно. Что-нибудь помимо скачки делал?

PS: А функцию следует переименовать, "от греха подальше". И в этом https://notepad-plus-plus.org/ в помощь.

 

Не совсем понимаю, к чему вы это? )

--- Сообщения объединены, Feb 16, 2021, Оригинальное время сообщения: Feb 16, 2021 ---

Во, спасибо. То, что нужно. Только я не совсем понимаю, эту функцию в автокаде нельзя что-ль вызывать командой для повторного использования? Каждый раз заного загружать?

--- Сообщения объединены, Feb 16, 2021 ---

Спасибо. Это не совсем то, что мне нужно, но лисп интересный. Возьму на вооружение )

 

Внимательно читаем пост #10,
Повторный запуск программы - набрать на цифровой клавиатуре 01 и нажать Enter.
Программа так же выводит данное сообщение в командную строку.
Проверьте внимательно соответствие координат шаблону.

 

Вторая версия программы XY_Simon_Riley02.fas
Количество знаков после запятой и шаблон прога считывает из файла Шаблон_s.txt.
Файл можно редактировать.
Прога и файл Шаблон_s.txt должны находится в одной и той же папке.