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

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

Ох уж эти тексты

Ответ
Поиск в этой теме
Непрочитано 14.05.2007, 12:29 #1
Ох уж эти тексты
AlexGalkin
 
Москва
Регистрация: 14.05.2007
Сообщений: 2

Я могу у однострочного текста поменять высоту текста таким образом (command "change" prim "" "" "" "" pause "" ""), а нет ли какой-нибудь подобной команды по изменению высоты у многострочных текстов?

И еще один вопрос нет ли команды для измения фактора сжатия для однострочных текстов
Просмотров: 2626
 
Непрочитано 14.05.2007, 13:07 Re: Ох уж эти тексты
#2
zenon

Остекляем!!! Алюминим!!!
 
Регистрация: 21.02.2005
Москва
Сообщений: 3,917
<phrase 1=


Цитата:
Сообщение от AlexGalkin
Я могу у однострочного текста поменять высоту текста таким образом (command "change" prim "" "" "" "" pause "" ""), а нет ли какой-нибудь подобной команды по изменению высоты у многострочных текстов?

И еще один вопрос нет ли команды для измения фактора сжатия для однострочных текстов
Чем не устраивает "Панель Свойств" (PROPERTIES) :?:
Выделил, изменил свойства объекта и командой "_matchprop" перенес настройки на другие :!:
В чем проблема не вижу :idea:
__________________
Мы можем делать быстро, качественно и недорого, выбирайте любые 2 условия.:search:
zenon вне форума  
 
Непрочитано 14.05.2007, 14:17 Re: Ох уж эти тексты
#3
fixo

Lisp/VBA/VB.NET Hobbyist
 
Регистрация: 24.03.2005
Славен Град Петров
Сообщений: 367


Цитата:
Сообщение от AlexGalkin
Я могу у однострочного текста поменять высоту текста таким образом (command "change" prim "" "" "" "" pause "" ""), а нет ли какой-нибудь подобной команды по изменению высоты у многострочных текстов?

И еще один вопрос нет ли команды для измения фактора сжатия для однострочных текстов
Самое простое использовать не команду
а entmod / entupd

Код:
[Выделить все]
;;; для сжатия для однострочных текстов
;;  для примера коэффициент 0.8
(initget 6)
(setq scl (getreal "\nEnter text width scale <0.8> :"))
(if (not scl)(setq scl 0.8))
(while (setq ent (entsel "\nSelect text (press Enter to exit) >>"))
  (setq en (car ent)
	elist (entget en))
    (if (eq "TEXT" (cdr (assoc 0 elist)))
    (progn
  (entmod (subst (cons 41 scl)(assoc 41 elist) elist))
  (entupd en)
  )
      )
  )


;;; для изменения высоты текстов и мультитекстов
;;  для примера высота 0.375
(initget 6)
(setq hgt (getreal "\nEnter text height <0.375> :"))
(if (not hgt)(setq hgt 0.375))
(while (setq ent (entsel "\nSelect text / mtext (press Enter to exit) >>"))
  (setq en (car ent)
	elist (entget en))
  (if (wcmatch (cdr (assoc 0 elist)) "*TEXT")
    (progn
  (entmod (subst (cons 40 hgt)(assoc 40 elist) elist))
  (entupd en)
  )
)
  )
~'J'~
fixo вне форума  
 
Непрочитано 14.05.2007, 16:13
#4
Bull

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


AlexGalkin, если ты новичок, то прочти повнимательнее про панель "Свойства" ("Properties") Там и величина шрифта (причём для однострочного и многострочного - неважно), и сужение, и поворот и т.д.
__________________
Век живи, век учись - ...
Bull вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Ох уж эти тексты