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

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

Войти

Lisp: Как поместить Z в ближайший текст

Тема в разделе "Autocad", создана пользователем Blaukempt, 1 мар 2023.

  1. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Столкнулся с необходимость перенести значение координаты Z блока в содержимое ближайшего к блоку текста. Попадался кому-нибудь такой? Такая необходимость появилась в связи исправлением топографического плана большой площади.
     
    #1
    Последнее редактирование: 1 мар 2023
  2. Efisol

    Форумчанин

    Регистрация:
    2 авг 2015
    Сообщения:
    473
    Симпатии:
    407
    Адрес:
    НН
    присваивает Z примитиву значение ближайшего текста.
    текст надо уменьшать, чтобы не было наложений
     

    Вложения:

    • ztxt.lsp
      Размер файла:
      1,6 КБ
      Просмотров:
      38
    #2
  3. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Спасибо. Только мне нужно "перенести значение координаты Z блока в содержимое ближайшего к блоку текста".
    Мне не нужно ничего брать из текста. Мне нужно поместить в текст. Текст существует и его много. Z нужно взять из блоков.
     
    #3
  4. Efisol

    Форумчанин

    Регистрация:
    2 авг 2015
    Сообщения:
    473
    Симпатии:
    407
    Адрес:
    НН
    если только взорвать все блоки и поставить новые значения Z. примитив в виде однострочного текста
     

    Вложения:

    #4
    ardi.stroi нравится это.
  5. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Что бы потом несколько десятков тысяч текстов руками заново развернуть и подвинуть?
    Нужен лисп что бы "перенести значение координаты Z блока в содержимое ближайшего к блоку текста".
     
    #5
  6. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    721
    Симпатии:
    514
    Адрес:
    Асгардия
    Кстати, можно было бы сделать тему, где подобные пожелания выполнялись бы за вознаграждение.
    То, что Вы просите совсем легко, но не все готовы потратить своё время.
     
    #6
    ardi.stroi нравится это.
  7. ardi.stroi

    Форумчанин

    Регистрация:
    10 окт 2014
    Сообщения:
    1.677
    Симпатии:
    2.043
    Такого лиспа нет. Скопируй все эти блоки, вставь в другой dwg. Воспользуйся советом Efisol.
    Обратно проделай копирование и вставку в виде блока. Занимает всё это 5 сек.

    Оффтоп
    @Steinar, тоже почувствовал капризный тон?
     
    #7
    DGZ и Efisol нравится это.
  8. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    721
    Симпатии:
    514
    Адрес:
    Асгардия
    Я уже давно безразличен.
     
    #8
  9. ardi.stroi

    Форумчанин

    Регистрация:
    10 окт 2014
    Сообщения:
    1.677
    Симпатии:
    2.043
    Оффтоп

    На пенсии?
     
    #9
  10. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    721
    Симпатии:
    514
    Адрес:
    Асгардия
    на форуме )
     
    #10
    X-Y-H и ardi.stroi нравится это.
  11. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Это не совет. Это очевидно действие ведущее к еще большей катастрофе. Конечно у меня есть мои блоки с нужными отметками и они стоят там, где стояли блоки с неправильными отметками. От этих неправильных отметок остались тексты со значениями этих неправильных отметок и их достоинство в том, что они уже повернуты и раздвинуты по ситуации.
    Если вытащу атрибуты или текст у своих, правильных отметок, то мне придется их разворачивать и растаскивать. А это многие десятки тысяч объектов.
    Поэтому, на мой взгляд, единственным решением будет сохранить старые тексты и заполнить их содержимое значением Z новых блоков с правильными отметками. Всё это и выражается в одном предложении "перенести значение координаты Z блока в содержимое ближайшего к блоку текста".
    --- Сообщения объединены, 1 мар 2023, Оригинальное время сообщения: 1 мар 2023 ---
    Я готов рассмотреть выполнение за вознаграждение.
     
    #11
  12. Efisol

    Форумчанин

    Регистрация:
    2 авг 2015
    Сообщения:
    473
    Симпатии:
    407
    Адрес:
    НН
    да мне, откровенно говоря, все равно
    ищущий да обрящет
     
    #12
  13. FOXXX591

    Форумчанин

    Регистрация:
    19 окт 2012
    Сообщения:
    3.303
    Симпатии:
    2.623
    Адрес:
    г.Смоленск
  14. Steinar

    Форумчанин

    Регистрация:
    30 авг 2012
    Сообщения:
    721
    Симпатии:
    514
    Адрес:
    Асгардия
    10к. В течении воскресенья. Нужен будет ваш файл.
    Принимаю рубли, крипту.
    --- Сообщения объединены, 1 мар 2023 ---
    Эх, такая сделка сорвалась (
     
    #14
    1958 и ardi.stroi нравится это.
  15. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Всё равно спасибо. Если что, обращусь. Может у меня раньше воскресения получится.
     
    #15
  16. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    Было же уже!
     

    Вложения:

    • 55.LSP
      Размер файла:
      2,7 КБ
      Просмотров:
      19
    #16
    zvezdochiot нравится это.
  17. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Спасибо! А вот это похоже, но работает не так. Этот лисп спрашивает образец точки, затем образец текста, после чего блок заменяет на точку автокада, что само по себе совсем не страшно, но при этом старый текст заменяет на новый с новым содержимым и ориентирует его горизонтально. То есть пропадает старый угол поворота текста и его положение. Наверное этот лисп можно отредактировать.
     
    #17
  18. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    Кто-то запрещает? Флаг Вам в руки и вперед!
     
    #18
  19. Blaukempt

    Форумчанин

    Регистрация:
    24 апр 2012
    Сообщения:
    597
    Симпатии:
    53
    Уже курю справку!
     
    #19
  20. AGF

    AGF
    Форумчанин

    Регистрация:
    16 июн 2013
    Сообщения:
    224
    Симпатии:
    223
    Адрес:
    г. Новосибирск
    ExtraTools поможет? Вчитываться не стал в переписку)
     
    #20

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

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