1. ВНИМАНИЕ! В течении пары дней +- будет переезд форума на более защищённый сервер. Возможны периодические перебои в работе.

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

Discussion in 'Autocad' started by wert, Aug 9, 2018.

  1. Elena95-97

    Elena95-97 Форумчанин

    Да, помогло, спасибо.
    Заменяю строчку (setq s (strcat (rtos s 2 2) "m"))
    на строчку (setq s (strcat (rtos (/ s 1000) 2 2) "m"))
    опять что-то не то...
     
  2. 1958

    1958 Форумчанин

    Что не то? Проверил, работает.
     
    Elena95-97 likes this.
  3. Elena95-97

    Elena95-97 Форумчанин

    Да, извините, 1958, работает, запуталась с переименованием.
     
  4. Здравствуйте! А что нужно добавить в lisp, чтобы выноска получилась как на картинке? В кружке сверху это количество каналов (можно было вписать нужное число), внизу длина (длина чтобы можно было округлять до сотых или десятых). И у самой выноски не было стрелки?
     

    Attached Files:

  5. 1958

    1958 Форумчанин

    В какой lisp?
     
  6. В этот (len_line.LSP), он самый простой.
    В нем у меня не так отображается как хотелось бы (мелкое, посередине линии, стрелка есть, сотые) или может есть уже где то подобное, готовое?
     

    Attached Files:

    Last edited: Feb 3, 2023
  7. 1958

    1958 Форумчанин

    Как изменить свойства выноски я не раскопал. Попробуйте мультивыноску, но без кружочка. Будет работать начиная с AC2009.
     

    Attached Files:

    • 253.LSP
      File size:
      1.3 KB
      Views:
      13
    dimrin likes this.
  8. Спасибо! Буду пробовать.
     
  9. 1958

    1958 Форумчанин

    Вписать можно только от 1 до 20, больше не получится.
     

    Attached Files:

    • 254.LSP
      File size:
      1.9 KB
      Views:
      24
    Миразиз and dimrin like this.
  10. Спасибо! Больше 8 не требуется.
     
  11. Подскажите пожалуйста, а где поменять в коде чтобы можно было делать 1 знак после запятой или 2?
    В проектах просто 1 знак нужен в ИД 2.
    И где еще в коде размер шрифта пишется?
     
  12. 1958

    1958 Форумчанин

    Вы код смотрели? Там же есть комментарии!
    (setq txt (strcat d_u "\n" (rtos len_curve 2 2)) ; вторая двойка - разрядность после запятой
    (vla-put-TextHeight ent 2.5) ; размер шрифта (высота)
     
    dimrin likes this.
  13. Спасибо! Я просто в кодах не понимаю ничего совсем. Если конкретно не указать где что.
    Вот теперь понятно.
     
  14. Смотрю на код, и пытаюсь понять где там указан стиль шрифта который используется? Хочу поменять
     
  15. 1958

    1958 Форумчанин

    Там его нет.
    Добавил. Вместо "VNIPISIMPLEXCUR" вставьте ваш любимый, но он должен быть в чертеже.
     

    Attached Files:

    • 254.LSP
      File size:
      1.9 KB
      Views:
      14
    dimrin likes this.
  16. Спасибо!
     
  17. Всем привет!
    Я много искал подобный лисп на форуме, но так и не смог найти.
    Есть только про площади или только про длины. Короче говоря, нужен лисп для формирования спецификаций материалов.
    Представьте, что у вас есть чертеж со строго разделенными объектами по слоям:
    примерно линейные объекты, трубы, бордюры или площадные объекты, асфальт, бетон, плита и т.д.

    Примерное название лиспа - 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, но там подробно показано как была получена эта сумма.

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

    Attached Files:

  18. zvezdochiot

    zvezdochiot Форумчанин

  19. zvezdochiot

    zvezdochiot Форумчанин

    Покачану. До этого речь шла за простые поделки, собранные на коленке. А то, что ты "возжелал" выходит далеко за рамки этого и просто напросто здесь неуместно.
     
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice