Добро пожаловать!

Войдите или зарегистрируйтесь сейчас!

Войти

  1. С 13.10.2020 снова работает авторизация/регистрация через социальные сети: VK (Вконтакте) и Facebook.
    Скрыть объявление

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

Тема в разделе "Autocad", создана пользователем Simon_Riley, 15 фев 2021.

  1. Simon_Riley

    Регистрация:
    9 май 2019
    Сообщения:
    8
    Симпатии:
    0
    Пользуюсь лиспом для вывода координат в блокнот "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"
     

    Вложения:

    #1
  2. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Правильно ли я понял, что вам нужно вывести в файл координаты X Y углов полилинии согласно приложенному шаблону?
     
    #2
  3. Simon_Riley

    Регистрация:
    9 май 2019
    Сообщения:
    8
    Симпатии:
    0
    Да, все верно
     
    #3
  4. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Выложите файл dwg с вашими полилиниями.
     
    #4
  5. Simon_Riley

    Регистрация:
    9 май 2019
    Сообщения:
    8
    Симпатии:
    0
    Ну у меня их очень много. В от несколько в качестве примера
     

    Вложения:

    #5
  6. X-Y-H

    X-Y-H Администратор
    Команда форума Форумчанин Форумчанин

    Регистрация:
    18 май 2007
    Сообщения:
    18.862
    Симпатии:
    5.647
    Адрес:
    Россия
    Simon_Riley, а растров то самих нет что ли?
    --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 16 фев 2021 ---
    так ваша фигура не совпадает если вы хотите восстановить привязку растра. Растр всегда сидит ортогонально относительно UCS world, а вот изображение на нем может совпадать с полигоном вашим
     
    #6
  7. Simon_Riley

    Регистрация:
    9 май 2019
    Сообщения:
    8
    Симпатии:
    0
    Растры, к сожалению, предназначены только для служебного пользования. Занимаемся их привязками. Но это неважно. По сути, мне нужно чтобы координаты у лиспа, который выводит координаты, просто выводились по определённому шаблону.
     
    #7
  8. trir

    Форумчанин Форумчанин

    Регистрация:
    25 ноя 2014
    Сообщения:
    3.026
    Симпатии:
    853
    Адрес:
    gnomtrir@mail.ru
    #8
    X-Y-H нравится это.
  9. X-Y-H

    X-Y-H Администратор
    Команда форума Форумчанин Форумчанин

    Регистрация:
    18 май 2007
    Сообщения:
    18.862
    Симпатии:
    5.647
    Адрес:
    Россия
    Красный контур это то что описывает ваш файл, а синий это как у вас полигоны. upload_2021-2-16_10-52-49.png
     
    #9
  10. landmaling

    Форумчанин

    Регистрация:
    18 май 2015
    Сообщения:
    249
    Симпатии:
    240
    Адрес:
    То тама, то тута
    Вызов лиспа командой COORN
    --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 16 фев 2021 ---
    Помню советский анекдот

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

    Вложения:

    • COORN1000.lsp
      Размер файла:
      27,9 КБ
      Просмотров:
      2
    #10
    Qvinto нравится это.
  11. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Написал программу формирует текстовый файл согласно шаблону.
    Повторный запуск программы, набрать на клавиатуре цифры 01 и нажать Enter.
    Файл с координатами XY.txt создается в директории из которой был запущен файл dwg (запускаем двойным щелчком мышки).
    Тестирование возлагается на пользователя.
    1-2.jpg
     

    Вложения:

    #11
  12. zvezdochiot

    Форумчанин

    Регистрация:
    27 июн 2014
    Сообщения:
    1.962
    Симпатии:
    714
    Адрес:
    г. Москва
    "Вы либо штаны оденьте, либо крестик снимите!"

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

    BearDyugin Модератор
    Форумчанин Форумчанин

    Регистрация:
    30 ноя 2007
    Сообщения:
    2.545
    Симпатии:
    2.077
    Адрес:
    Сибирь
    #13
  14. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Simon_Riley, что бы программа XY_Simon_Riley01.fas правильно заполняла шаблон, порядок отрисовки полилинии должен соответствовать шаблону (LeftUp->RightUp->RightDown->LeftLDown).
    К сожалению у Вас в чертеже другой порядок отрисовки плинии!.
    Если по каким то причинам порядок отрисовки плиний должен быть другим нежели в шаблоне, то я могу подредактировать программу
     
    #14
    Последнее редактирование: 16 фев 2021
  15. landmaling

    Форумчанин

    Регистрация:
    18 май 2015
    Сообщения:
    249
    Симпатии:
    240
    Адрес:
    То тама, то тута
    Я вон там вверху Coorn исправил. Всё работает. ::cool24.gif::
     
    #15
    zvezdochiot нравится это.
  16. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Скачал Вами отредактированную программу COORN1000.lsp.
    Протестил на примере от Simon_Riley.
    Получил файл с координатами X Y. Заполненных шаблонов не увидел.
    03.jpg
     
    #16
  17. zvezdochiot

    Форумчанин

    Регистрация:
    27 июн 2014
    Сообщения:
    1.962
    Симпатии:
    714
    Адрес:
    г. Москва
    Скачать недостаточно. Что-нибудь помимо скачки делал?

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

    Регистрация:
    9 май 2019
    Сообщения:
    8
    Симпатии:
    0
    Не совсем понимаю, к чему вы это? )
    --- Сообщения объединены, 16 фев 2021, Оригинальное время сообщения: 16 фев 2021 ---
    Во, спасибо. То, что нужно. Только я не совсем понимаю, эту функцию в автокаде нельзя что-ль вызывать командой для повторного использования? Каждый раз заного загружать?
    --- Сообщения объединены, 16 фев 2021 ---
    Спасибо. Это не совсем то, что мне нужно, но лисп интересный. Возьму на вооружение )
     
    #18
  19. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Внимательно читаем пост #10,
    Повторный запуск программы - набрать на цифровой клавиатуре 01 и нажать Enter.
    Программа так же выводит данное сообщение в командную строку.
    Проверьте внимательно соответствие координат шаблону.
     
    #19
  20. ivsem

    Форумчанин

    Регистрация:
    26 мар 2009
    Сообщения:
    2.423
    Симпатии:
    986
    Адрес:
    Киев
    Вторая версия программы XY_Simon_Riley02.fas
    Количество знаков после запятой и шаблон прога считывает из файла Шаблон_s.txt.
    Файл можно редактировать.
    Прога и файл Шаблон_s.txt должны находится в одной и той же папке.
     

    Вложения:

    #20

Поделиться этой страницей

  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie.
    Скрыть объявление