Да, помогло, спасибо. Заменяю строчку (setq s (strcat (rtos s 2 2) "m")) на строчку (setq s (strcat (rtos (/ s 1000) 2 2) "m")) опять что-то не то...
Здравствуйте! А что нужно добавить в lisp, чтобы выноска получилась как на картинке? В кружке сверху это количество каналов (можно было вписать нужное число), внизу длина (длина чтобы можно было округлять до сотых или десятых). И у самой выноски не было стрелки?
В этот (len_line.LSP), он самый простой. В нем у меня не так отображается как хотелось бы (мелкое, посередине линии, стрелка есть, сотые) или может есть уже где то подобное, готовое?
Как изменить свойства выноски я не раскопал. Попробуйте мультивыноску, но без кружочка. Будет работать начиная с AC2009.
Подскажите пожалуйста, а где поменять в коде чтобы можно было делать 1 знак после запятой или 2? В проектах просто 1 знак нужен в ИД 2. И где еще в коде размер шрифта пишется?
Вы код смотрели? Там же есть комментарии! (setq txt (strcat d_u "\n" (rtos len_curve 2 2)) ; вторая двойка - разрядность после запятой (vla-put-TextHeight ent 2.5) ; размер шрифта (высота)
Спасибо! Я просто в кодах не понимаю ничего совсем. Если конкретно не указать где что. Вот теперь понятно.
Всем привет! Я много искал подобный лисп на форуме, но так и не смог найти. Есть только про площади или только про длины. Короче говоря, нужен лисп для формирования спецификаций материалов. Представьте, что у вас есть чертеж со строго разделенными объектами по слоям: примерно линейные объекты, трубы, бордюры или площадные объекты, асфальт, бетон, плита и т.д. Примерное название лиспа - 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, но там подробно показано как была получена эта сумма. Заранее спосибо!
Почему? Эта тема началась с длины линий, потом в площадь и развилась намного дальше. Ето 5-ая страница в которая вообще не едет реч о lll.lsp
Покачану. До этого речь шла за простые поделки, собранные на коленке. А то, что ты "возжелал" выходит далеко за рамки этого и просто напросто здесь неуместно.