Draw

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

(Различия между версиями)
Перейти к: навигация, поиск
(Новая страница: «==Круг из текста== В результате получится нечто такое В данном файле [[File:T...»)
Строка 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

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

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