Как выровнять текст

Как выровнять текст · 18.01.2012, 22:17

Привет всем! Акад 2009
Вставил текст с VBA в модель согласно справки, все получилось.
Затем попробовал выровнять текст таким методом:

Код:

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

Dim myTextObject As Object
Set myTextObject = ThisDrawing.ModelSpace.AddText("Hello World!", TextInsertionPoint, 1#)
 
'modify text alignment to Middle-Center
myTextObject.Alignment = acAlignmentMid

в результате весь текст ушел в точку (0,0). Аналогично попробовал выровнять текст приведенного в справке примера, текст опять ушел в точку(0,0)

trir · 18.01.2012, 22:31

И чё? Верни назад и всего делов.

Кулик Алексей aka kpblc · 18.01.2012, 23:11

Хотя и на лиспе, но принцип не меняется: http://autolisp.ru/2010/04/06/text-and-attrib-entities/

VVA · 18.01.2012, 23:14

Помимо TextInsertionPoint есь еще TextAlignmentPoint. И она по умолчанию 0,0,0

Rembo_4 · 18.01.2012, 23:28

Цитата:

Сообщение от VVA

Помимо TextInsertionPoint есь еще TextAlignmentPoint. И она по умолчанию 0,0,0

Так и есть, всем спасибо большое, разобрался

18.01.2012, 22:17		#1
Как выровнять текст Rembo_4 Регистрация: 18.01.2012 Сообщений: 5 Привет всем! Акад 2009 Вставил текст с VBA в модель согласно справки, все получилось. Затем попробовал выровнять текст таким методом: Код: [Выделить все] Dim myTextObject As Object Set myTextObject = ThisDrawing.ModelSpace.AddText("Hello World!", TextInsertionPoint, 1#) 'modify text alignment to Middle-Center myTextObject.Alignment = acAlignmentMid в результате весь текст ушел в точку (0,0). Аналогично попробовал выровнять текст приведенного в справке примера, текст опять ушел в точку(0,0)
Просмотров: 4736

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Текст вдоль полилинии или сплайна (по кривой)	Denioska	AutoCAD	48	10.09.2022 21:55
Текст слетел...	Павел Владимирович	AutoCAD	3	08.07.2011 22:11
кто как подгоняет текст в основной надписи? (Допускаются ли в основной надписи различная высота текста в однотипных графах, а также сжатие текста?)	Ax3	AutoCAD	35	20.10.2010 20:19
Как извлечь из размера значение, т.е. текст???	Rubль	Программирование	10	24.08.2009 17:24
Перестаёт редактироваться текст.	Behemoth	AutoCAD	2	10.06.2009 08:04

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

	Реклама i