Draw: Часто задаваемые вопросы

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

(Различия между версиями)
Перейти к: навигация, поиск
(Image: Draw.png Операции с объектами)
м (Круг из текста)
Строка 38: Строка 38:
*преобразовать его в многоугольник,
*преобразовать его в многоугольник,
*создать текстовый объект с произвольным содержимым (главное чтоб текстовый объект был, а что в нём за текст - неважно)
*создать текстовый объект с произвольным содержимым (главное чтоб текстовый объект был, а что в нём за текст - неважно)
-
*воспользоваться расширением "Брызги", [http://extensions.services.openoffice.org/ru/project/scatter1 Брызги] (для этого выделить оба объекты и идти в меню Сервис/Дополнения/Брызги)
+
*воспользоваться расширением "Брызги", [http://extensions.services.openoffice.org/project/scatter1 Брызги] (для этого выделить оба объекты и идти в меню Сервис/Дополнения/Брызги)
*отредактировать макрос (текст макроса приведен в конце заметки), вставив вместо слова "Привет!" то что вам нужно.
*отредактировать макрос (текст макроса приведен в конце заметки), вставив вместо слова "Привет!" то что вам нужно.
*запустить этот макрос
*запустить этот макрос

Версия 17:06, 22 марта 2011


Содержание

Draw.png Импорт объектов

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

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

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

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

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

Операции с объектами доступны через контекстное меню, которое вызывается щелчком правой кнопки мыши.

Объекты можно:

преобразовать:

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

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

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

В данном файле Файл: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.png Экспорт объектов

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

Draw.png Полезные ссылки

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