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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Однострочный текст сделать полужирным

Однострочный текст сделать полужирным

Ответ
Поиск в этой теме
Непрочитано 12.04.2007, 12:30 #1
Однострочный текст сделать полужирным
Zouss
 
Регистрация: 14.03.2006
Сообщений: 863

в дополнение к подчеркивателю и надчеркивателю однострочного текста предлагаю такую старенькую программу
выше 2005 не тестировалась
комментарии приветствуются
Код:
[Выделить все]
;;;Программа для выделения однострочного текста "полужирным" шрифтом
;;;текст должен быть создан в ПСК, направление оси Z которой перпендикулярно плоскости вида
;;;Не рекомендуется применение данной программы в 3D, так как эффект "полужирного" начертания
;;;достигается за счет выдавливания текста на достаточно большую высоту с направлением
;;;выдавливания незначительно отличным от перпендикуляра к плоскости вида
;;;Работает в Layout
;;;Автор идеи и реализации под AutoCAD r.10 - М.И.Кнеллер, Москва, Россия, 1992г.
;;;Адаптация  под AutoCAD 2000 и выше - ZouSS, Набережные Челны, Россия, 2000г.

(defun C:bold (/ ed v f dxf210 dxf39)
  (setq f "+")
  (if (and
	(setq ed (entsel "\nУкажите текст:"))
	(setq ed (entget (car ed)))
	(= "TEXT" (cdr (assoc 0 ed)))
      ) ;_ and
    (while (and
	     f
	     (/= "OK" f)
	   ) ;_ and
      (setq ed (if (setq v (cdr (setq dxf210 (assoc 210 ed))))
		 (subst	(cons 210
			      (list
				(eval (list (read f) (car v) 8e-9))
				(eval (list (read f) (cadr v) 5e-9))
				(caddr v)
			      ) ;_ list
			) ;_ cons
			dxf210
			ed
		 ) ;_ subst
	       ) ;_ if
      ) ;_ setq
      (if (setq	dxf39
		 (assoc 39 ed)
	  ) ;_ setq
	(setq ed (subst
		   (cons 39 (* (cdr (assoc 40 ed)) 5e+6))
		   dxf39
		   ed
		 ) ;_ subst
	) ;_ setq
	(setq ed (cons
		   (cons 39 (* (cdr (assoc 40 ed)) 5e+6))
		   ed
		 ) ;_ cons
	) ;_ setq
      ) ;_ if
      (entmod ed)
      (initget "+ - OK")
      (setq f (getkword "\nТолще[+] или тоньше [-] <OK>"))
    ) ;_ while
  ) ;_ if
  (princ)
) ;_ defun
Просмотров: 4089
 
Непрочитано 12.04.2007, 13:13
#2
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Я эту, извините, фигню пробовал еще в 1993 г. Баловство.
Profan вне форума  
 
Непрочитано 12.04.2007, 13:58
#3
str02

инженер-конструктор
 
Регистрация: 06.10.2004
питер
Сообщений: 2,722


мм....
цвет текста при печати сделать потолще? 0,5-0,4мм, не?
str02 вне форума  
 
Непрочитано 12.04.2007, 15:54
#4
Pilot

Проектировщик свиноводство
 
Регистрация: 21.08.2003
Сообщений: 2,291


Точно.
Эта идея была давно опубликована в одной книжице (название не помню, но дома вроде валяется, не выбросил). И текст проги там был.
Pilot вне форума  
 
Автор темы   Непрочитано 12.04.2007, 17:12
#5
Zouss


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


"AutoCAD 12, полезные рецепты", желтенькая
под 2000 оригинальный текст работать отказался, а MText был с кракозябрями. Наверное кроме ссылки на авторство надо и источник информации указывать?
Zouss вне форума  
 
Непрочитано 12.04.2007, 18:21
#6
Pilot

Проектировщик свиноводство
 
Регистрация: 21.08.2003
Сообщений: 2,291


Цитата:
Сообщение от Zouss
"AutoCAD 12, полезные рецепты", желтенькая
Факт!
Pilot вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Однострочный текст сделать полужирным