[Ingpro]

Всем доброго дня!
Кажется ничего сложного, но...
Недавно была тема "Чтобы результат работы команды (текст) был подчеркнутый". Лисп приложен в #7 и #23.

Алексей предоставил код программы для подчеркивания текста и Мтекста, с вызовом "defun t1".

Код:

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

 (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

При замене в лиспе "defun t1" на "defun С:t1", чтобы вызывать без скобок,
команда не срабатывает, подскажите, please, в чём может быть проблема?
Может нужны дополнительные функции?

И как правильно записывать команду лиспа t1 (в случае "defun t1") в файле acad.pgp со скобками или без?
"ПТ, *(t1)" или "ПТ, *t1" (без кавычек, конечно). Пробую и так и эдак не получается...
Делаю ПЕРЕИН. Выдает синтаксическую ошибку...
Вызываю псевдокоманду "ПТ". Пишет в КС: Неизвестная команда "ПТ".
Никогда раньше не было проблем с псевдоименами команд, у меня более 30-ти лисп- программ на псевдокомандах...

[===AAA===]

Если с клавиатуры - вызывай просто t1,
в других случаях, например, из меню,
вызов выглядит, как (c:t1)

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

Приведи свой код. И не забудь про форматирование кода

[Ingpro]

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

Изменения внесены в Ваш код, про форматирование кода совсем не в курсе.

Код:

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

 (vl-load-com)
(defun C: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

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

"c" случайно не на русском?
Второе - см.вложение (доступно в расширенном редакторе)

[Ingpro]

Сообщение от Кулик Алексей aka kpblc "c" случайно не на русском?

Спасибо, Алексей, точно на русском была, теперь срабатывает без скобок. И псевдокоманда работает. Здорово!
Что интересно, в этом лиспе t1, если ввести команду и выбрать подчеркнутый текст (Мтекст нет), подчеркивание убирается... И в этом есть плюс...
С кодом так надо?

Код:

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

 (vl-load-com)
(defun C: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

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

Ага, только в свойствах посмотри, что там творится с однострочным текстом после пары-тройки десятков применения этого лиспа. Гарантирую - офигеешь.
Я предупреждал, кажется, что за результат не отвечаю.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc в свойствах посмотри, что там творится с однострочным текстом после пары-тройки десятков

Понятно о чем речь - %%u%%u 1 - 1. Этих штук с каждым разом будет всё больше %%u%%%%%%u...
А это решается как-то, или можно не обращать внимание?
В принципе, думаю, не придется один и тот же текст подчеркивать/отменять подчеркивание по нескольку раз...
Код в #6 подправлен С - англ.

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

Чисто теоретически можно через vl-string-left-trim. Но если у тебя строка будет начинаться с % или u (после подчеркивания) - эти символы ты потеряешь.
Кстати, я не помню, но, по-моему, %%u и %%U визуально приводят к одному и тому же результату, но с точки зрения операций со строками это разные вещи.

[===AAA===]

Сообщение от ===AAA=== в других случаях, например, из меню, вызов выглядит, как (c:t1)

Сорри, хотел написать "при вызове из своих программ".

[Ingpro]

Сообщение от ===AAA=== в других случаях, например, из меню, вызов выглядит, как (c:t1)

Спасибо, ===AAA===, но всё решилось после исправления С на английском...