| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как сделать текст с подчеркиванием?

Как сделать текст с подчеркиванием?

Ответ
Поиск в этой теме
Непрочитано 16.06.2004, 11:22
Как сделать текст с подчеркиванием?
ilka_t
 
Москва
Регистрация: 20.01.2004
Сообщений: 154

Там вроде как символы веред текстом вставлять надо , а какие не смог найти в справке.
Заранее спасибо...
Просмотров: 27436
 
Непрочитано 10.03.2006, 14:12
#21
Tramp


 
Регистрация: 12.01.2006
Сообщений: 114


Цитата:
И по-русски напишу и по-татарски, лишь бы было правильно сделано.
Вспоминается истоия: готовили мы чертежи для китайцев, а мой тогдашний шеф почему-то был о них очень невысокого мнения. Так он настоял, чтобы рядом с поясняющими надписями сделали ещё и небольшие картинки, как можно, а как нельзя. На одной такой, помнится, человек стоял рядом со влючённым аппаратом, и картинка была жирно перечёркнута - нельзя, мол :-)
Tramp вне форума  
 
Непрочитано 01.03.2018, 15:46
#22
Serghei


 
Регистрация: 07.02.2007
Мъ
Сообщений: 320


Привет.
Как подчеркивать text понятно, и лисп для этого есть на форуме.
Кто подскажет как массово подчеркивать MTEXT?
Имеются десятки многострочного текста, и нужно массово их подчеркнуть. Открывать каждый МТЕКСТ и подчеркивать каждый очень долго получается.
Взрывать МТЕКСТ не вариант! (Пробовал, и текст бьется на несколько кусков)
Serghei вне форума  
 
Непрочитано 01.03.2018, 19:42
3 | #23
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Вот на затравку моя старая функция подчеркивания чего угодно - текста, Мтекста, простых и многострочных отребутоф. По каждому объекту надо щелкнуть мышкой один раз. Если есть критерий массового выбора мтекстов, подлежащих подчеркиванию - могу добавить обработку предварительно выбранных объектов. Написано "для себя", "низким штилем", почти без каких-либо защит и проверок. Единственная защита - от промаха по объекту, да и та примитивная. Короче, прошу не пинать.
Благодаря использованию nentsel может "залезать" в блоки и подчеркивать текстовые объекты внутри них, поэтому использовать осмотрительно.
Вызов - команда au.

;;подчеркивание чего угодно
Код:
[Выделить все]
 
(defun c:au (/ a n u_sym )
  (vl-load-com)
  (setq a (vlax-ename->vla-object (car (nentsel "Что подчеркнуть?\n"))))
  (if (not (vlax-property-available-p a 'textstring)) (c:au))
  (setq n (vla-get-textstring a))
  (setq u_sym "%%U")
  (if (or
    	(= (vla-get-ObjectName a) "AcDbMText")
	(= (vla-get-mtextattribute a) :vlax-true)
      )	
    (setq u_sym "\\L")
  )
  (setq n (strcat u_sym n))
  (vla-put-textstring a n)
  (c:au)
)
kp+ вне форума  
 
Непрочитано 01.03.2018, 22:20
#24
Serghei


 
Регистрация: 07.02.2007
Мъ
Сообщений: 320


Лисп проверен. То что мне нужно.
kp+ Спасибо огромное.
Serghei вне форума  
 
Непрочитано 02.03.2018, 03:13
1 | #25
onick


 
Регистрация: 27.10.2010
Калининград
Сообщений: 246


Не особо актуально судя по дате - Для команды Text введите перед содержанием текста %%U и текст будет подчеркнут (%%c - знак диаметра, %%d - знак градуса)

Последний раз редактировалось onick, 02.03.2018 в 03:19.
onick вне форума  
 
Непрочитано 02.03.2018, 09:49
#26
Bull

Конструктор по сути (машиностроитель)
 
Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391


Цитата:
Сообщение от onick Посмотреть сообщение
Для команды Text введите перед содержанием текста %%U и текст будет подчеркнут
насчет текста вопроса и не было, это все знают
__________________
Век живи, век учись - ...
Bull вне форума  
 
Непрочитано 02.03.2018, 10:57
#27
Serghei


 
Регистрация: 07.02.2007
Мъ
Сообщений: 320


Цитата:
Сообщение от Serghei Посмотреть сообщение
Как подчеркивать text понятно, и лисп для этого есть на форуме.
Кто подскажет как массово подчеркивать MTEXT?
onick спасибо. Но вы читали мое сообщение?
Serghei вне форума  
 
Непрочитано 02.03.2018, 18:13
#28
onick


 
Регистрация: 27.10.2010
Калининград
Сообщений: 246


Да первую страницу не заметил) поразил 2006 год на этой странице)
onick вне форума  
 
Непрочитано 23.03.2018, 12:22
#29
Okl


 
Регистрация: 14.03.2018
Сообщений: 11
Отправить сообщение для Okl с помощью Skype™


Цитата:
Сообщение от Grinzaid Посмотреть сообщение
Текст можно и НАДчёркивать %%o и даже подчёркивать и надчёркивать одновременно. А можно и отменять под-/ надчёркивание в середине строки
Скопируйте эту строку в чертёж и увидите:

%%oOVER %%uDOUBLE%%o UNDER%%u NOTHING
Почему у меня эти правила форматирования работают в однострочном тексте?
что надо сделать чтобы эти правила начали работать в многострочном тексте? Очень нужно(((
Okl вне форума  
 
Непрочитано 26.03.2018, 09:17
1 | #30
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от Okl Посмотреть сообщение
что надо сделать чтобы эти правила начали работать в многострочном тексте? Очень нужно(((
Надо переписать ядро и несколько библиотек Акада. Потому, что в Мтексте несколько другие правила: {\Lxxx}, {\Oxxx} или просто \L, \O. См. хэлп.
Если по каким-то причинам надо в множество однострочных текстов превратить в многострочные, но с сохранением подчеркивания, то можно сделать автозамену, например %%U на \L. Причем не стандартными средствами (с 2010 эта возможность выпилена), а с помощью, например, Bfind.
kp+ вне форума  
 
Непрочитано 26.03.2018, 09:17
#31
Bull

Конструктор по сути (машиностроитель)
 
Регистрация: 10.10.2005
Набережные Челны (это где КамАЗ)
Сообщений: 11,391


Цитата:
Сообщение от Okl Посмотреть сообщение
что надо сделать чтобы эти правила начали работать в многострочном тексте? Очень нужно(((
обратиться в автодеск
__________________
Век живи, век учись - ...
Bull вне форума  
 
Непрочитано 26.03.2018, 14:31
#32
Okl


 
Регистрация: 14.03.2018
Сообщений: 11
Отправить сообщение для Okl с помощью Skype™


Цитата:
Сообщение от kp+ Посмотреть сообщение
Мтексте несколько другие правила: {\Lxxx}, {\Oxxx} или просто \L, \O.
Спасибо огромное!!!)) Очень выручил!!))
Okl вне форума  
 
Непрочитано 07.06.2018, 18:15
#33
Okl


 
Регистрация: 14.03.2018
Сообщений: 11
Отправить сообщение для Okl с помощью Skype™


Цитата:
Сообщение от kp+ Посмотреть сообщение
Надо переписать ядро и несколько библиотек Акада. Потому, что в Мтексте несколько другие правила: {\Lxxx}, {\Oxxx} или просто \L, \O. См. хэлп.
Если по каким-то причинам надо в множество однострочных текстов превратить в многострочные, но с сохранением подчеркивания, то можно сделать автозамену, например %%U на \L. Причем не стандартными средствами (с 2010 эта возможность выпилена), а с помощью, например, Bfind.
я не знаю что случилось но эти коды уже не работают(((( что делать!?!??!
Код:
[Выделить все]
 (VL-CMDF "_mtext"
	   ;; òî÷êà ¹1
	   p1
	   ;; Ââîä ïàðàìåòðîâ Ì_Òåêñòà
	   "_j"	"_MC" "_h" "2.0" ;"_l" "_e" "0.75x"
	   ;; Òî÷êà ¹2
	   p2
	   ;; ÂÂîä ñòðîê Ì_Òåêñòà
	   "{\Lxxx 5345324532 \lxxx} {\Oxxx 325234523 \oxxx} 3253245 35345 \L 213515123 \l \O. 21351235 \l" "")
Okl вне форума  
 
Непрочитано 08.06.2018, 08:57
#34
kp+

идущий по граблям
 
Регистрация: 26.05.2005
Сообщений: 5,091


Цитата:
Сообщение от Okl Посмотреть сообщение
что делать!?!??!
Отставить истерику!
Цитата:
Сообщение от Okl Посмотреть сообщение
я не знаю что случилось но эти коды уже не работают(((( что делать!?!??!
Что значит "эти коды уже не работают"? Создается текст без под/надчеркивания? Проверял, у меня (Акад 2010) работает нормально.
Или не работает сам программный код? У меня выдал ошибку, т.к. неизвестно, что такое p1 и p2.
kp+ вне форума  
 
Непрочитано 19.06.2018, 12:26
#35
OKJI

AutoLISP
 
Регистрация: 19.06.2018
Харьков
Сообщений: 101
Отправить сообщение для OKJI с помощью Skype™


Цитата:
Сообщение от kp+ Посмотреть сообщение
Что значит "эти коды уже не работают"? Создается текст без под/надчеркивания? Проверял, у меня (Акад 2010) работает нормально.
Или не работает сам программный код? У меня выдал ошибку, т.к. неизвестно, что такое p1 и p2.
Все, разобрался... Проблема была в том что одна косая черта ( \ ) Автокадом воспринимается как начало какого-то текстового кода а для того чтобы косая черта воспринималась, как косая черта ее нужно дублировать ( \\ )
Вот хороший пример кода:
Код:
[Выделить все]
 (VL-CMDF  "_mtext"
	;; точка №1
	(LIST 0 10)

	;; Ввод параметров М_Текста
	"_j" 	"_MC"	"_h"	"2.0" "_l" "_a" "0.75x"

	;; Точка №2
	(LIST 200 0)

	;; ВВод строк М_Текста
	"{{\\H1.5x; Большой текст} \\A2; над текстом\\A1;/\\A0;за текстом}\\P{\\A0;Базовый: 1 \\S1/2;}\\P{\\A1;По центру: 1 \\S1/2;}\\P{\\A2;Верхняя линия: 1 \\S1/2;}\\P{Допуски: \\A1;1.000\\H.75x;\\S+0.010^-0.000;}\\P{Архитектурный: 9-{\\H.666x;\\A2;11\\A1;/\\A0;16}\\A2;\"}\\P"
	""
)
OKJI вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > AutoCAD > Как сделать текст с подчеркиванием?

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск