Пользуюсь лиспом для вывода координат в блокнот "coorN.LSP" После выполнения команды "Coor - Полилиния или сплайн - Файл - *Выбираю папку для сохранения* - Yes" он выдает мне координаты в блокноте в следующем виде (см. скриншот 1). Хотелось бы узнать, можно ли внести в лисп изменения, чтобы он выдавал координаты в следующем виде (см. скриншот 2)? То есть, грубо говоря, в блокнот будет выведен шаблон, где будут меняться только координаты x и y без высоты (выделено красным на скриншоте 2). Шаблон в текстовом виде (Наведите курсор, чтобы раскрыть содержимое) Шаблон в текстовом виде (раскрыть) Шаблон в текстовом виде (свернуть) 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 углов полилинии согласно приложенному шаблону?
Simon_Riley, а растров то самих нет что ли? --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 16 фев 2021 --- так ваша фигура не совпадает если вы хотите восстановить привязку растра. Растр всегда сидит ортогонально относительно UCS world, а вот изображение на нем может совпадать с полигоном вашим
Растры, к сожалению, предназначены только для служебного пользования. Занимаемся их привязками. Но это неважно. По сути, мне нужно чтобы координаты у лиспа, который выводит координаты, просто выводились по определённому шаблону.
Вызов лиспа командой COORN --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 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). К сожалению у Вас в чертеже другой порядок отрисовки плинии!. Если по каким то причинам порядок отрисовки плиний должен быть другим нежели в шаблоне, то я могу подредактировать программу
Скачал Вами отредактированную программу COORN1000.lsp. Протестил на примере от Simon_Riley. Получил файл с координатами X Y. Заполненных шаблонов не увидел.
Скачать недостаточно. Что-нибудь помимо скачки делал? PS: А функцию следует переименовать, "от греха подальше". И в этом https://notepad-plus-plus.org/ в помощь.
Не совсем понимаю, к чему вы это? ) --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 16 фев 2021 --- Во, спасибо. То, что нужно. Только я не совсем понимаю, эту функцию в автокаде нельзя что-ль вызывать командой для повторного использования? Каждый раз заного загружать? --- Сообщения объединены, 16 фев 2021 --- Спасибо. Это не совсем то, что мне нужно, но лисп интересный. Возьму на вооружение )
Внимательно читаем пост #10, Повторный запуск программы - набрать на цифровой клавиатуре 01 и нажать Enter. Программа так же выводит данное сообщение в командную строку. Проверьте внимательно соответствие координат шаблону.
Вторая версия программы XY_Simon_Riley02.fas Количество знаков после запятой и шаблон прога считывает из файла Шаблон_s.txt. Файл можно редактировать. Прога и файл Шаблон_s.txt должны находится в одной и той же папке.
