Draw

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

(Различия между версиями)
Перейти к: навигация, поиск
(Экспорт объектов)
Строка 35: Строка 35:
</source>
</source>
==Экспорт объектов==
==Экспорт объектов==
 +
==Полезные ссылки==

Версия 17:16, 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

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

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

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