[Mzw]

Подскажите, есть ли спец. комбинация символов (вроде %%c, %%u) чтоб текст был зачеркнут.
Не линиями же его зачеркивать.

[MIP]

Специальных кодов нет, но можно создать свой шрифт, взяв за основу шрифт которым пользуетесь, с зачеркнутыми буквами с теми же кодами что и у Вашего основного шрифта и потом только менять текстовые стили! Главное правильно прописать размер перечеркивающей черты, чтобы при печати все перечеркивающие отдельные буквы черточки сливались в одну линию! :wink:

[Геннадий aka PG]

В сборнике cadhlp есть программка txtIns, зачеркивающая указанный текст (программно зачеркивает линией)
http://cadhlp.kulichki.com/cadhlp.htm

[perpetule]

Справка по управляющим кодам и специальным символам 2014
Доступны следующие управляющие коды.
%% nnn
Вставка символа с номером nnn.
%%o
Включение/отключение зачеркивания.

%%u
Включение/отключение подчеркивания.

%%d
Вставка обозначения градуса (°)

%%p
Вставка обозначения допуска (±).

%%c
Вставка обозначения диаметра круга (ý).

%%%
Вставка одного символа процента (%). Допустимо только для команды ТЕКСТ.

Текст может быть одновременно зачеркнутым и подчеркнутым. По достижении конца строки оба режима автоматически отключаются.

Управляющую последовательность кодов %%nnn можно использовать для вставки специальных символов в шрифтах PostScript.
Образец чертежа (truetype.dwg) с таблицей символов для каждого из шрифтов находится в папке sample.
Обозначение евро

Обозначение евро можно использовать со шрифтами SHX и их эквивалентами TrueType, поставляемыми вместе с AutoCAD 2000 и более поздними версиями. Если на клавиатуре нет обозначения евро, можно ввести его набором комбинации цифр 0128 на цифровой клавиатуре при нажатой клавише Alt.

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

Мне почему-то кажется, что за 11 лет вопрос потерял свою актуальность.

[pan]

Сообщение от perpetule Справка по управляющим кодам и специальным символам 2014 Доступны следующие управляющие коды. %%o Включение/отключение зачеркивания...

%%o - это в AutoCAD 2014 по-прежнему НАДчеркивание
Но в многострочном тексте, начиная с 2013, действительно появилось зачеркивание.

[Geor9e]

Offtop: pan, получается, ответ на исходный вопрос "как в autocad сделать зачёркнутый текст" звучит примерно как "подождать семь лет, он сам появится"

[kp+]

Сообщение от pan Но в многострочном тексте, начиная с 2013, действительно появилось зачеркивание.

А при открытии таких файлов в прежних версиях, например в 2010 - такие объекты показываются как безымянные блоки

[pan]

Сообщение от Geor9e подождать семь лет, он сам появится

Пока зачеркнутый появился только для многострочного.
Для однострочного надо еще ждать)))

[solar]

а можно ли махом зачеркнуть несколько однострочных текстов?
по одному можно через панель свойств вставкой %%K, при попытке зачеркнуть сразу несколько получается неожиданный результат

[kp+]

Добавить префикс %%К с помощью вот этого лиспа: https://www.cadtutor.net/forum/topic...mbers-or-text/

[AMDen]

http://www.lee-mac.com/strikethrough.html

[solar]

может кто переделать этот лисп https://dwg.ru/dnl/15174 до простой вставки %%K ?

[koMon]

прямо переделать?

Код:

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

 
(defun c:text_strike_thru (/ selecting_active entities_ss ss_index text_striked_thru_count command_terminated
							 entity text_object
						  )
	(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
	(setq selecting_active t
		  text_striked_thru_count 0
	)
	(if (null action)
			(setq action "Зачёркиваем тексты")
	)
	(while selecting_active
		(cond
			(
				(null (setq entities_ss (vl-catch-all-apply 'ssget (list '((0 . "text"))))))
							(alert "        Объекты [Тексты] не выбраны")
			)
			(
				(vl-catch-all-error-p entities_ss)
					(setq entities_ss nil
						  selecting_active nil
						  command_terminated t
					)
			)
			(
				t
					(setq selecting_active nil)
			)
		)
	)
	(cond
		(
			(and
				(null command_terminated)
				entities_ss
			)
				(setq selecting_active t)
				(while selecting_active
					(initget "Зачёркиваем Убираем")
					(if (vl-catch-all-error-p (vl-catch-all-apply 'getkword (list (strcat "Действие (ESC изменить):[" action "] <" action ">"))))
						(setq action (cadr (member action '("Зачёркиваем тексты" "Убираем зачёркиваение" "Зачёркиваем тексты"))))
						(setq selecting_active nil)
					)
				)
				(setq ss_index -1)
				(repeat (sslength entities_ss)
					(setq text_object (vlax-ename->vla-object (ssname entities_ss (setq ss_index (1+ ss_index)))))
					(cond
						(
							(= "Зачёркиваем тексты" action)
								(if (/= "%%K" (strcase (substr (vla-get-textstring text_object) 1 3)))
										(progn
											(vla-put-textstring text_object (strcat "%%k" (vla-get-textstring text_object)))
											(setq text_striked_thru_count (1+ text_striked_thru_count))
										)
								)
						)
						(
							t
								(if (= "%%K" (strcase (substr (vla-get-textstring text_object) 1 3)))
									(progn
										(vla-put-textstring text_object (substr (vla-get-textstring text_object) 4))
										(setq text_striked_thru_count (1+ text_striked_thru_count))
									)
								)
						)
					)
				)
				(if (= "Зачёркиваем тексты" action)
					(princ "\nЗачёркнуто Текстов: ")
					(princ "\nУбрано зачёркиваний: ")
				)
				(princ (itoa text_striked_thru_count))
		)
		(
			t
				(princ "\nКоманда отменена")
		)
	)
	(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
	(princ)
)

[solar]

ай спасиба, айбалит
вылечил от головной боли

А обратную функцию можно внедрить?

UP. Спасибо, всё работает.
С подсказки автора [koMon], перед тем как произвести обратную операцию [убрать зачёркивание] необходимо ввести ту же команду [text_strike_thru], затем нажать\ввести "пробел", появится окно с информированием [Убираем зачёркивание] и далее пользователем производится выбор зачёркнутого однострочного текста. При вводе инверсной команды зачёркивание незачёркнутого текста не производится.

UPP. Тактика поменялась. В последнем варианте необходимо набрать команду, выбрать объекты (однострочные тексты), сделать выбор действия [подчеркнуть или убрать подчёркивание] клавишей ESC и подтвердить действие ENTERом