Draw

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

Версия 17:03, 21 февраля 2011

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

Draw#Работа с галереей

Работа с галереей

Открыть галерею можно так Сервис - Галерея

Создать свою базу графических объектов можно так:

• Открыть Галерею
• Нажать кнопку Создать тему
• Указать имя темы (моя тема) и на вкладке файлы задать тип файлов (для векторных рисунков Draw подходит формат SGV - StarDraw 2.0)
• Тема создана!
• Нарисовать объект для добавления в галерею.
• Выделить этот объект мышкой и перетащить его в созданную тему галереи. Перед перетаскиванием надо держать кнопку мышки нажатой не менее 2 сек. Объект при этом должен быть выделен. При перетаскивании необходимо удерживать правую кнопку мыши.
• Новый графический рисунок помещен в галерею!

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

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

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

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

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

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

Draw#Работа с галереей

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

• Расположить текст вдоль кривой