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

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

Войти

Выноска длины полилинии

Тема в разделе "Autocad", создана пользователем wert, 9 авг 2018.

  1. Elena95-97

    Форумчанин

    Регистрация:
    31 май 2022
    Сообщения:
    28
    Симпатии:
    1
    Да, помогло, спасибо.
    Заменяю строчку (setq s (strcat (rtos s 2 2) "m"))
    на строчку (setq s (strcat (rtos (/ s 1000) 2 2) "m"))
    опять что-то не то...
     
    #81
  2. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    Что не то? Проверил, работает.
     
    #82
    Elena95-97 нравится это.
  3. Elena95-97

    Форумчанин

    Регистрация:
    31 май 2022
    Сообщения:
    28
    Симпатии:
    1
    Да, извините, 1958, работает, запуталась с переименованием.
     
    #83
  4. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Здравствуйте! А что нужно добавить в lisp, чтобы выноска получилась как на картинке? В кружке сверху это количество каналов (можно было вписать нужное число), внизу длина (длина чтобы можно было округлять до сотых или десятых). И у самой выноски не было стрелки?
     

    Вложения:

    #84
  5. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    В какой lisp?
     
    #85
  6. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    В этот (len_line.LSP), он самый простой.
    В нем у меня не так отображается как хотелось бы (мелкое, посередине линии, стрелка есть, сотые) или может есть уже где то подобное, готовое?
     

    Вложения:

    #86
    Последнее редактирование: 3 фев 2023
  7. 1958

    Форумчанин

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

    Вложения:

    • 253.LSP
      Размер файла:
      1,3 КБ
      Просмотров:
      9
    #87
    dimrin нравится это.
  8. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Спасибо! Буду пробовать.
     
    #88
  9. 1958

    Форумчанин

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

    Вложения:

    • 254.LSP
      Размер файла:
      1,9 КБ
      Просмотров:
      22
    #89
    Миразиз и dimrin нравится это.
  10. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Спасибо! Больше 8 не требуется.
     
    #90
  11. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Подскажите пожалуйста, а где поменять в коде чтобы можно было делать 1 знак после запятой или 2?
    В проектах просто 1 знак нужен в ИД 2.
    И где еще в коде размер шрифта пишется?
     
    #91
  12. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    Вы код смотрели? Там же есть комментарии!
    (setq txt (strcat d_u "\n" (rtos len_curve 2 2)) ; вторая двойка - разрядность после запятой
    (vla-put-TextHeight ent 2.5) ; размер шрифта (высота)
     
    #92
    dimrin нравится это.
  13. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Спасибо! Я просто в кодах не понимаю ничего совсем. Если конкретно не указать где что.
    Вот теперь понятно.
     
    #93
  14. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Смотрю на код, и пытаюсь понять где там указан стиль шрифта который используется? Хочу поменять
     
    #94
  15. 1958

    Форумчанин

    Регистрация:
    21 авг 2013
    Сообщения:
    660
    Симпатии:
    725
    Адрес:
    Ташкент, город пыльный
    Там его нет.
    Добавил. Вместо "VNIPISIMPLEXCUR" вставьте ваш любимый, но он должен быть в чертеже.
     

    Вложения:

    • 254.LSP
      Размер файла:
      1,9 КБ
      Просмотров:
      11
    #95
    dimrin нравится это.
  16. dimrin

    Регистрация:
    12 дек 2022
    Сообщения:
    8
    Симпатии:
    0
    Спасибо!
     
    #96
  17. stoianeca

    Регистрация:
    9 дек 2009
    Сообщения:
    6
    Симпатии:
    0
    Всем привет!
    Я много искал подобный лисп на форуме, но так и не смог найти.
    Есть только про площади или только про длины. Короче говоря, нужен лисп для формирования спецификаций материалов.
    Представьте, что у вас есть чертеж со строго разделенными объектами по слоям:
    примерно линейные объекты, трубы, бордюры или площадные объекты, асфальт, бетон, плита и т.д.

    Примерное название лиспа - specif.lsp
    Запуск - specif
    : Type <L/A/LA/SL/SA/ESL/ESA>:

    Написали примерно L,
    следует вопрос: Select objects:
    ВьIбираем все что можно, включяя круг, елипс, замкнутая полилиния и т.д. подтверждаем с Enter,
    следует вопрос: Text size: <1>:
    примерно хотим 2, потом Enter.
    Лисп вычисляет длину и применяет к объектам (как на картинке).

    Написали примерно A,
    следует вопрос: Select objects:
    ВьIбираем круг, елипс, замкнутая полилиния и т.д. подтверждаем с Enter,
    следует вопрос: Text size: <1>:
    примерно хотим 2, потом Enter.
    Лисп вычисляет площадь и применяет к объектам (как на картинке).

    Написали примерно LA,
    следует вопрос: Select objects:
    ВьIбираем круг, елипс, замкнутая полилиния и т.д. подтверждаем с Enter,
    следует вопрос: Text size: <1>:
    примерно хотим 2, потом Enter.
    Лисп вычисляет площадь и длина контура и применяет к объектам (как на картинке).

    Написали примерно SL,
    следует вопрос: Select objects:
    ВьIбираем все что можно, включяя круг, елипс, замкнутая полилиния и т.д. подтверждаем с Enter,
    следует вопрос: Text size: <1>:
    примерно хотим 2, потом Enter.
    следует вопрос: Insertion point of the text:
    Указываем место текста, Enter,
    Лисп вычисляет сумму длин выбранных объектов, разделяет их на слоями (как на картинке).

    Написали примерно SА,
    следует вопрос: Select objects:
    ВьIбираем круг, елипс, замкнутая полилиния и т.д. подтверждаем с Enter,
    следует вопрос: Text size: <1>:
    примерно хотим 2, потом Enter.
    следует вопрос: Insertion point of the text:
    Указываем место текста, Enter,
    Лисп вычисляетсумму площадь всех выбранных объектов, разделяет их на слоями (как на картинке).
    Команда ESL и ESA , аналогично как SL и SA, но там подробно показано как была получена эта сумма.

    Заранее спосибо!
     

    Вложения:

    • primer.jpg
      primer.jpg
      Размер файла:
      134,1 КБ
      Просмотров:
      26
    #97
  18. zvezdochiot

    Форумчанин

    Регистрация:
    27 июн 2014
    Сообщения:
    6.015
    Симпатии:
    2.128
    Адрес:
    г. Москва
    #98
  19. stoianeca

    Регистрация:
    9 дек 2009
    Сообщения:
    6
    Симпатии:
    0
    Почему? Эта тема началась с длины линий, потом в площадь и развилась намного дальше. Ето 5-ая страница в которая вообще не едет реч о lll.lsp​
     
    #99
  20. zvezdochiot

    Форумчанин

    Регистрация:
    27 июн 2014
    Сообщения:
    6.015
    Симпатии:
    2.128
    Адрес:
    г. Москва
    Покачану. До этого речь шла за простые поделки, собранные на коленке. А то, что ты "возжелал" выходит далеко за рамки этого и просто напросто здесь неуместно.
     
    #100

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

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