Draw
Материал из Forumooo wiki
Версия от 15:37, 30 января 2011; Helen (Обсуждение | вклад)
Содержание |
Импорт объектов
Операции с объектами
Операции с текстом
Текст вдоль кривой
Круг из текста
В данном файле Файл: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