Draw

Материал из Forumooo wiki

(Различия между версиями)
Перейти к: навигация, поиск
(Полезные ссылки)
(Операции с текстом)
Строка 2: Строка 2:
==Операции с объектами==
==Операции с объектами==
==Операции с текстом==
==Операции с текстом==
-
===Текст вдоль кривой===
 
===Круг из текста===
===Круг из текста===
[[Image:Textkrug.png|thumb|left|В результате получится нечто такое]]
[[Image:Textkrug.png|thumb|left|В результате получится нечто такое]]
Строка 34: Строка 33:
End Sub
End Sub
</source>
</source>
 +
==Экспорт объектов==
==Экспорт объектов==
==Полезные ссылки==
==Полезные ссылки==
* [http://myooo.ru/content/view/128/39/ Расположить текст вдоль кривой]
* [http://myooo.ru/content/view/128/39/ Расположить текст вдоль кривой]

Версия 15:37, 30 января 2011

Содержание

Импорт объектов

Операции с объектами

Операции с текстом

Круг из текста

В результате получится нечто такое

В данном файле Файл: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

Экспорт объектов

Полезные ссылки

Источник — «http://wiki.forumooo.ru/wiki/Draw»
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты