[antistatic1984]

Доброе время суток, господа и дамы.

Я в лиспе -> 0.

Прошу помощи гуру!!!
Если есть возможность, подскажите, что добавить в готовый код (выполнение команды подсчета площади полилинии) -> там после выбора самой линии, выбираешь точку вставки числа (площадь) - вот надо сделать, чтобы текст был подчеркнутый.
Каждый раз выбирать текст и добавлять к нему %%U или нажимать Ctrl+U - очень накладно!

100% есть какие-то команды типа tx+ или tx- (я читал, но не понял, как их прописать, пытался - не работает).

Помогите, пожалуйта!

Благодарю ...

Код:

[Выделить все]

 ;;;ВЫЧИСЛЕНИЕ ПЛОЩАДИ ПО ПРИМИТИВУ
(defun C:ARE ()
(setq sblip (getvar "blipmode")
      scmde (getvar "cmdecho")
      slayr (getvar "clayer")     )
(setvar "blipmode" 0 )
(setvar "cmdecho" 0)
(princ "\n Select border polyline:")
(command "AREA" "e" pause)
(setq sp (getpoint "\nEnter start point:"))
(command "LAYER" "make" "A-AREA" "c" 51 "A-AREA" "")
(command "TEXT" sp (* (getvar "dimtxt") (getvar "dimscale")) ""
                (rtos (/ (getvar "area") 1000000.) 2 2))
(setvar "blipmode" sblip)
(setvar "cmdecho" scmde)
(setvar "clayer" slayr)
);def

[Кулик Алексей aka kpblc]

13-ю строку замени на

Код:

[Выделить все]

(strcat "%%u" (rtos (/ (getvar "area") 1000000.) 2 2)))

[Ingpro]

А как можно сделать подчеркнутым любой текст, Мтекст (без площади), просто выбрал тексты и они подчеркнулись...

[antistatic1984]

Сообщение от Кулик Алексей aka kpblc 13-ю строку замени на Код: [Выделить все] (strcat "%%u" (rtos (/ (getvar "area") 1000000.) 2 2)))

Ай спасибо тебе большое, о великий kpbIc!

Работает как часики...

Сердечно благодарю!

[Кулик Алексей aka kpblc]

Сообщение от Ingpro А как можно сделать подчеркнутым любой текст, Мтекст (без площади), просто выбрал тексты и они подчеркнулись...

Теоретически можно - но для многострочных текстов придется использовать принудительное форматирование. В общем случае задача не самая тривиальная ИМХО

[Ingpro]

Алексей, а можно маленький лисп только чтобы подчеркивал текст? Спасибо!
А то, чтобы подчеркнуть текст, надо его сначала перевести в Мтекст, потом зайти в редактор текста и выбрать
подчёркнутый...
А, может, получится для МТекста копировать свойства подчеркнутого для неподчеркнутого?..

[Кулик Алексей aka kpblc]

Так это уже модификация примитивов. Совершенно другая задача. А так, без проверок (тьма работы, расписывать все подряд не буду. В коде используются функции из библиотеки, ссылка в описании):

Код:

[Выделить все]

 (defun t1 (/ selset)
  (if (setq selset (_kpblc-conv-selset-to-vla
                     (_kpblc-selset-msg
                       "Select single- or multiline texts"
                       (function (lambda ()
                                   (ssget "_:L" '((0 . "*TEXT")))
                                 ) ;_ end of lambda
                       ) ;_ end of function
                     ) ;_ end of _kpblc-selset-msg
                   ) ;_ end of _kpblc-conv-selset-to-vla
      ) ;_ end of setq
    (foreach ent selset
      (cond
        ((= (vla-get-objectname ent) "AcDbText")
         (vla-put-textstring ent (strcat "%%u" (vla-get-textstring ent)))
        )
        ((= (vla-get-objectname ent) "AcDbMText")
         (vla-put-textstring ent (strcat "{\\L" (vla-get-textstring ent) "}"))
        )
      ) ;_ end of cond
    ) ;_ end of FOREACH
  ) ;_ end of if
) ;_ end of defun

Но за результат не отвечаю.

[Ingpro]

Почему-то пишет в КС
; ошибка: no function definition: _KPBLC-SELSET-MSG

[Кулик Алексей aka kpblc]

Потому что надо загружать всю библиотеку.

Сообщение от Кулик Алексей aka kpblc В коде используются функции из библиотеки, ссылка в описании

Для кого писал?

----- добавлено через 40 сек. -----
Описание = подпись. Сейчас просто занимаюсь видеоподгонкой, вот по запарке и очепятался

[Ingpro]

Сообщение от Кулик Алексей aka kpblc В коде используются функции из библиотеки, ссылка в описании

Непонятно, где описание и как загружать всю библиотеку... Совсем не в теме...

[skkkk]

Ingpro, это вот тут https://github.com/kpblc2000/KpblcLi...ree/master/lsp
В папках conv (_kpblc-conv-selset-to-vla) и selset (_kpblc-selset-msg) лежат эти функции. Надо обеспечить их загрузку в КАД (любым образом) перед запуском лиспа.

[Кулик Алексей aka kpblc]

Только сейчас добрался до компа...
Offtop: Если что, в readme все описано. Аж на двух языках Английский - сорри, как смог

----- добавлено через ~1 мин. -----
Offtop: Добавлю - лучше загружать вообще все, там полно вызовов других функций.

[Ingpro]

Сообщение от skkkk В папках conv (_kpblc-conv-selset-to-vla) и selset (_kpblc-selset-msg) лежат эти функции. Надо обеспечить их загрузку в КАД (любым образом) перед запуском лиспа.

Спасибо, skkkk. Эту загрузку можно сделать через ЗАГПРИЛ, как лисп? Или есть другой способ, подскажите, пожалуйста.
_kpblc-selset-msg вот так отображается, с некорректными символами:

(defun _kpblc-selset-msg (msg fun-ssget / sysvar res)
;|
* Çàïðîñ îáúåêòîâ ñ ïîëüçîâàòåëüñêèì ïðèãëàøåíèåì
* Ïàðàìåòðû âûçîâà:
msg âûâîäèìîå ïðèãëàøåíèå

[skkkk]

Сообщение от Ingpro Эту загрузку можно сделать через ЗАГПРИЛ, как лисп?

Можно, но лучше, наверное, в автозагрузку добавить, если потребность не разовая.
Вот тут подробнее: Как использовать лисп, опубликованный на форуме.
Загрузить сначала эти две библиотечные функции, а если внутри них окажутся еще какие-то (об этом в командной строке ошибка выскочит), то надо будет найти и их.

Сообщение от Ingpro _kpblc-selset-msg вот так отображается, с некорректными символами

У меня тоже в Гитхабе код и показывается, и копируется с кракозябрами, изменение кодировки в Notepad++ не помогает, но вроде как все эти кракозбры - это просто комментарии, то есть не исполняемые строчки кода, а просто пояснения.

Сообщение от Ingpro (_kpblc-selset-сообщение "ОКРУЖНОСТЬ") (функция (лямбда() (ssget "_+.:S: E" '((0 . "КРУГ")))))) |;

А вот это похоже на результат работы переводчика страницы. Его следует отключить.

[Кулик Алексей aka kpblc]

Offtop: Да хосспидя, склонируйте себе репозиторий - и все будет на месте.

[Ingpro]

Если установить эти библиотечные функции (_kpblc-conv-selset-to-vla) и (_kpblc-selset-msg) /с кракозябрами/ и вызвать лисп (t1), выскакивает ошибка:
; ошибка: no function definition: _KPBLC-ERROR-SYSVAR-SAVE-BY-LIST
Что делать с этой ошибкой?

Сообщение от skkkk результат переводчика страницы. Его следует отключить.

Отключить, это значит удалить строку из функции?

Сообщение от Кулик Алексей aka kpblc склонируйте себе репозиторий - и все будет на месте.

Где и как можно склонировать репозиторий, поясните, пожалуйста...

[skkkk]

Сообщение от Ingpro _KPBLC-ERROR-SYSVAR-SAVE-BY-LIST

эту функцию тоже надо найти там же.

Сообщение от Ingpro Отключить, это значит удалить строку из функции?

Нет. Хром при открытии страницы на английском сразу ее переводит, о чем сообщает во вспывающем окне (вроде бы) - там же в этом окне можно отменить. Ну да не стоит об этом уже, см. ниже - кодировка всё равно слетает, это было надо, если бы скопировать код прямо с сайта.

Сообщение от Ingpro Где и как можно склонировать репозиторий, поясните, пожалуйста...

Вот ссыль, а на картинке - куда надо нажать. В сохраненном архиве будут все эти лиспы, причем уже без кракозябр. Вот там и найти все нужные. Ругается на "функшн дефинишн" в комтроке - искать эту функцию в архиве и тоже обеспечивать загрузку.
https://github.com/kpblc2000/KpblcLispLib

[Ingpro]

skkkk, спасибо за подробные ответы, буду пробовать...

[Кулик Алексей aka kpblc]

Offtop: Кусок описания под спойлером: https://autolisp.ru/2022/10/31/custo...ions-autolisp/
Поскольку не знаю, каким клиентом кто пользуется - пока ограничусь этим.

[Ingpro]

Сообщение от skkkk Ругается на "функшн дефинишн" в комтроке - искать эту функцию в архиве и тоже обеспечивать загрузку. https://github.com/kpblc2000/KpblcLispLib

Да ругается ; ошибка: no function definition: T1
Не получилось найти в архиве функцию с таким названием... или название другое?