Draw

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

Версия от 18:38, 25 октября 2010; Clio (Обсуждение | вклад)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

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

В данном файле Файл: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
Источник — «https://wiki.forumooo.ru:80/wiki/Draw»
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты