[Vova]

Такой-бы лиспик сотворить... Выделил однострочный текст, или слово в нем, нажал кнопочку, и оно подчеркнулось. Захотелось удалить подчеркивание, выделил, нажал на (эту-же) кнопочку, и оно очистилось от подчеркивания.
Дело в том, что при экранном редактировании чтобы снять подчеркивание надо наоборот, впечатать %%u. В отличие от старых версий, где их надо удалять, что легче

[SLADE]

а комбинация клавиш , разве не решает эту задачку " Ctrl+U "
Вы деляем фрагмент текста, комбинация, и все!

[Александр Бауск]

А я и не знал про %%u. Классно.

[vosh]

Код:

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

(defun c:aaa (/ text)
(setq text (ssget ":S" '((0 . "TEXT"))) )

(if (equal (substr (cdr (assoc 1 (entget (ssname text 0)))) 1 3) "%%U")
    (entmod (subst (cons 1 (substr (cdr (assoc 1 (entget (ssname text 0)))) 4)) (assoc 1 (entget (ssname text 0))) (entget (ssname text 0))))
    (entmod (subst (cons 1 (strcat "%%U" (cdr (assoc 1 (entget (ssname text 0)))))) (assoc 1 (entget (ssname text 0))) (entget (ssname text 0))))
) (princ)
)

подчеркивает/снимает подчеркивание всего выделенного текста

[SLADE]

Сообщение от Александр Бауск А я и не знал про %%u. Классно.

Это удобно применять в размерах, когда в модели в 1:1, а листе часть чертежа выкидываешь, тогда для того что бы размер остался плавающим, надо написать %%U<>, и получим 12000

[RFL]

Не помню где скачал панельку ПРИМОЧКИ (размещена в частичных файлах CUI), в которой есть подчеркивание, ну и удаление подчеркивания, однострочного текста как и желает Vova одной кнопкой.
Но... Попытался подчеркнуть только часть строки - не срабатывает (или мало пробовал).

[Vova]

Сообщение от SLADE а комбинация клавиш , разве не решает эту задачку " Ctrl+U " Вы деляем фрагмент текста, комбинация, и все!

Вот оно, решение!!! Спасибо. Кстати, Ctrl+O создает или удаляет надчеркивание.
Slade, я уверен что об этом мало кто знает. Напиши в Tips and Tricks
Работает начиная от 2006. А ведь я помню, когда обсуждали на форуме нововведения экранного редактирования текста, я написал о проблемах подчеркивания и его снятия, особенно, если подчертнуто слово в середине фразы. Проблема состояла в том, что в старом редакторе символы %%u были видны, а в новом их как-бы нет. Оказалось, Аутодеск придумал способ, да не отрекламировал его. Slade, как ты об этом узнал?

[Profan]

Им бы еще добавить Ctrl-B - полужирный шриф (Bold)т, Ctrl+I - курсив (Italic), как это сделано для МТекста. Ясно, что это относится к шрифтам TTF.
Но, поскольку AutoCAD - DOS'овская программа, они не могут это сделать.

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

В однострочном??

[Profan]

Да, в однострочном, написанным шрифтом TTF.

[vosh]

В некотрых случаях ctrl+u не срабатывает, текст просто пропадает после выхода из редактирования.

[Bull]

Хе-хе... Нашел ещё... Если по ошибке нажать ctrl+U без входа в редактирование (даже при выделении текста), то переходит в on/off "polar tracking" Так что осторожнее работайте.

[VVA]

Про Ctrl+U действительно удобно.
>Vova В поле "Содержимое" окна Свойства %%U отображается. Там я его и удалял, если нужно было

[dextron3]

Попробуй этот:

Код:

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

(defun c:text_underline ()
  (print "Выберите строки которые надо подчеркнуть или подчеркнутые строки с которых надо убрать подчеркивание")
  (setq	TextArray (ssget '((0 . "TEXT")))
	TextCount (sslength TextArray)
  )

  (setq	TextNum	0
	SummArray nil
  )

  (repeat TextCount
    (setq CurrText	  (ssname TextArray TextNum)
	  TextBody	  (entget CurrText)
	  oldZnach	  (assoc 1 TextBody)
	  ValueStringType (cdr oldZnach)
	  first3chars     (substr ValueStringType 1 3)
    )

    (if (= first3chars "%%u") (setq ValueStringType (substr ValueStringType 4))
        		      (setq ValueStringType (strcat "%%u" ValueStringType ))		      
    )

    ; модифицируем текстовый примитив
  
    (setq	newZnach (cons 1 ValueStringType)
                TextBody (subst newZnach oldZnach TextBody)
    )
    (entmod TextBody)

    (setq TextNum	  (+ 1 TextNum)) ; счетчик цикла

   
  ) ;end repeat

  (print)				; тихий выход

)					;end defun

В этом лиспе тоже самое что и в ручную но все автоматически...

А зачем собственно говоря нужно подчеркивание?
(имеется ввиду, почему не просто линией черкнуть, а текст трогать)

[Bull]

риторические вопросы пошли А зачем лимиты нужны?

[Zouss]

здесь не только про подчеркивание

[SLADE]

Сообщение от Vova Вот оно, решение!!! Спасибо. Кстати, Ctrl+O создает или удаляет надчеркивание. Slade, я уверен что об этом мало кто знает. Напиши в Tips and Tricks Работает начиная от 2006. А ведь я помню, когда обсуждали на форуме нововведения экранного редактирования текста, я написал о проблемах подчеркивания и его снятия, особенно, если подчертнуто слово в середине фразы. Проблема состояла в том, что в старом редакторе символы %%u были видны, а в новом их как-бы нет. Оказалось, Аутодеск придумал способ, да не отрекламировал его. Slade, как ты об этом узнал?

Это стандартная комбинация, Ворд - Ексель,
Ctrl+A выдилить всё

[Vova]

Оба лиспа делают почти то, что я заказывал. Но они не подчеркивают отдельные слова. Вариант с Ctrl+U требует лишних щелчков чтобы зайти в редактор но зато он более универсален. Что-же выбрать? Только не предлагайте оба. Кстати, в HELP и в CUI об этом ни звука. Так сказать, нам стало доступно секретное оружие от Autodesk

[Vova]

Раньше до 2006 такого не было. Кто еще знает об этом?

[wetr]

Теперь - все! Но мы никому не скажем. Обещаю!