Schöck
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

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

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

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

ilka_t вне форума Вставить имя

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


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


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


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


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

идущий по граблям
 
Регистрация: 26.05.2005
Днепропетровск
Сообщений: 3,738


Вот на затравку моя старая функция подчеркивания чего угодно - текста, Мтекста, простых и многострочных отребутоф. По каждому объекту надо щелкнуть мышкой один раз. Если есть критерий массового выбора мтекстов, подлежащих подчеркиванию - могу добавить обработку предварительно выбранных объектов. Написано "для себя", "низким штилем", почти без каких-либо защит и проверок. Единственная защита - от промаха по объекту, да и та примитивная. Короче, прошу не пинать.
Благодаря использованию 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
Мъ
Сообщений: 283


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


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


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

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

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


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


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


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


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


Да первую страницу не заметил) поразил 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
Днепропетровск
Сообщений: 3,738


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

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


Цитата:
Сообщение от 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
Днепропетровск
Сообщений: 3,738


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

AutoLISP
 
Регистрация: 19.06.2018
Харьков
Сообщений: 37
Отправить сообщение для 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 > Как сделать текст с подчеркиванием?

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

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

Быстрый переход

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||