1. Пользоваться форумом на планшетах и телефонах стало удобнее благодаря Tapatalk

Макрос для распределения объектов

Тема в разделе "CorelDraw", создана пользователем G-Kir, 6 июн 2005.

Модераторы: Артер
  1. G-Kir

    G-Kir Знаток

    С нами с:
    17.06.2005
    Сообщения:
    774
    Симпатии:
    3
    Баллы:
    20
    Вот как обещал здесь:
    http://www.graphics.ru/forum/read.php?9,126322

    Раньше не мог — страшно занят.
    Сам макрос тута

    http://kir-arts.narod.ru/distrib.html



     
  2. Mike Udin

    Mike Udin Активный участник

    С нами с:
    01.01.1970
    Сообщения:
    158
    Симпатии:
    0
    Баллы:
    11
    Здесь тоже скажу:
    Работает прекрасно — спасибо большое. :)))
     
  3. G-Kir

    G-Kir Знаток

    С нами с:
    17.06.2005
    Сообщения:
    774
    Симпатии:
    3
    Баллы:
    20
    На здоровье. Он мне пригодился один раз, а после апгрейда железа я о нем даже не вспомнил. Если бы на форуме не увидел тему, то так бы и пылился этот макрос на болванке :)
     
  4. _AR_

    _AR_ Активный участник

    С нами с:
    31.10.2006
    Сообщения:
    32
    Симпатии:
    0
    Баллы:
    5
    Приветствую !

    Не могли бы Вы поделиться вышеуказанным макросом, плиз очень надо или если есть у кого вот такая штука:
    Макрос "Shake Well" для Corel 10: хаотичное распределение объектов или групп по поверхности прямоугольника.
     
  5. Mike Udin

    Mike Udin Активный участник

    С нами с:
    01.01.1970
    Сообщения:
    158
    Симпатии:
    0
    Баллы:
    11
    А самому сходить по ссылке, что мешает?
     
  6. _AR_

    _AR_ Активный участник

    С нами с:
    31.10.2006
    Сообщения:
    32
    Симпатии:
    0
    Баллы:
    5
    Ваша правда. Извиняюсь.
    Зашёл с другого компа без проблем скачал. Спасибо.
     
  7. _AR_

    _AR_ Активный участник

    С нами с:
    31.10.2006
    Сообщения:
    32
    Симпатии:
    0
    Баллы:
    5
    У кого нибудь есть такой:

    Макрос "Shake Well" для Corel 10: хаотичное распределение объектов или групп по поверхности прямоугольника.
    Поделитесь пожалуйста.
     
  8. Guest

    > ...хаотичное распределение объектов или групп по поверхности прямоугольника...

    Неужели для этого нужен макрос?
    Всего-то надо создать спрей кисть. Потом регулирй как хочешь и добавляй объектов сколько угодно.
     
  9. Kerch

    Kerch Активный участник

    С нами с:
    13.09.2006
    Сообщения:
    63
    Симпатии:
    0
    Баллы:
    5
    Может это подойдет?

    Sub ShowProgress()
    Dim doc As Document
    Dim n As Long

    Set doc = CreateDocument
    Status.BeginProgress CanAbort:=True
    For n = 1 To 1000
    doc.ActiveLayer.CreateRectangle2 Rnd() * 8, Rnd() * 11, Rnd() * 5, Rnd() * 5
    If (n Mod 10) = 0 Then
    Status.UpdateProgress
    If Status.Aborted Then Exit For
    End If
    Next n
    Status.EndProgress
    End Sub
     
  10. _AR_

    _AR_ Активный участник

    С нами с:
    31.10.2006
    Сообщения:
    32
    Симпатии:
    0
    Баллы:
    5
    Макрос называется создание 1000 разных прямоугольников ?
    Спасибо :).
     
Модераторы: Артер

Поделиться этой страницей