Draw
Материал из Forumooo wiki
(Различия между версиями)
Clio (Обсуждение | вклад) (Новая страница: «==Круг из текста== В результате получится нечто такое В данном файле [[File:T...») |
Helen (Обсуждение | вклад) |
||
Строка 1: | Строка 1: | ||
- | ==Круг из текста== | + | ==Импорт объектов== |
+ | ==Операции с объектами== | ||
+ | ==Операции с текстом== | ||
+ | ===Текст вдоль кривой=== | ||
+ | ===Круг из текста=== | ||
[[Image:Textkrug.png|thumb|left|В результате получится нечто такое]] | [[Image:Textkrug.png|thumb|left|В результате получится нечто такое]] | ||
В данном файле [[File:Textkrug.odg]] приведен пример получения круга, в котором все буквы вертикальны. Для получения такого круга нужно: | В данном файле [[File:Textkrug.odg]] приведен пример получения круга, в котором все буквы вертикальны. Для получения такого круга нужно: | ||
Строка 30: | Строка 34: | ||
End Sub | End Sub | ||
</source> | </source> | ||
+ | ==Экспорт объектов== |
Версия 17:10, 30 октября 2010
Содержание |
Импорт объектов
Операции с объектами
Операции с текстом
Текст вдоль кривой
Круг из текста
В данном файле Файл:Textkrug.odg приведен пример получения круга, в котором все буквы вертикальны. Для получения такого круга нужно:
- нарисовать обычный круг,
- преобразовать его в многоугольник,
- создать текстовый объект с произвольным содержимым (главное чтоб текстовый объект был, а что в нём за текст - неважно)
- воспользоваться расширением "Брызги", Брызги (для этого выделить оба объекты и идти в меню Сервис/Дополнения/Брызги)
- отредактировать макрос (текст макроса приведен в конце заметки), вставив вместо слова "Привет!" то что вам нужно.
- запустить этот макрос
Текст макроса:
REM ***** BASIC ***** Sub Main Page=ThisComponent.CurrentController.CurrentPage N=Page.Count-1 Obj=Page(N) Nobj=Obj.Count-1 Str1="Привет!" Len1=Len(Str1) Dim Str1Ar(Len1-1) As String For i=0 to Len1-1 Str1Ar(i)=mid(Str1,i+1,1) Next For i=0 to Nobj 'Obj(i).String=chr(1072+Int(32*rnd)) 'Obj(i).String=chr(97+Int(26*rnd)) Obj(i).String=Str1Ar(i mod Len1) Next End Sub