Help! Раскладка в CorelDRAW Х3

splxgf · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
в том и проблема, что я не знаю как он понимает какой и где объект находится и какая операция с ним происходит. может он запоминает координаты объекта...

Вот и рекомендуется подумать "как"... скорее всего это просто номер объекта по-порядку.

Код:

ActiveDocument.Pages(1).Layers("Слой 1").Paste 'Вставляется содержимое буфера обмена
    Dim Paste1 As ShapeRange 'объявляется переменная
    Set Paste1 = ActiveSelectionRange' эта переменная связывается с текущим выделением, т.е. то что было вставлено.
    Paste1.Move 5.412941, -4.158701' затем идут три перемещения.
    Paste1.Move 0.492571, 0.221693
    Paste1.Move 0#, -1.377953

Я правда запамятовал куда корел вставляет объекты, возможно по центру страницы.
Постарайтесь обходиться без квадратиков и их удаления.... или удаляйте уже после того как макрос отработал.

Serrg_Shaman · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Вот и рекомендуется подумать "как"... скорее всего это просто номер объекта по-порядку.

у меня уже проскальзывала такая мысль, но где можно посмотреть какой номер присвоен к объекту, так как на раб обл. 8 страниц состоящих из более 70 объектов (как мелких типа номер дня недели и до текста)

splxgf сказал(а):
Я правда запамятовал куда корел вставляет объекты, возможно по центру страницы.
Постарайтесь обходиться без квадратиков и их удаления.... или удаляйте уже после того как макрос отработал.

уже думал и пробовал про это, проблема в выравнивании страниц на А2 формате...очень долго и макрос будет кривой.
может есть возможность как нибудь привязать блок к направляющим?

splxgf · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Начнем с самого начала.

- импорт страниц ежедневника в нужном порядке;
- поворот на 180 градусов;
- разгрупировка всех объектов и удаление прямоугольника по краю страницы (нужен для выравнивания по центру и импорте в нужном месте раб. области)

1. понятно.
2. понятно.
3. непонятно. Зачем удалять прямоугольник по краю, почему нельзя отцентрировать до импорта.
Перестройте свою работу, или не записывайте макросы, а пишите их.

Serrg_Shaman · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
3. непонятно. Зачем удалять прямоугольник по краю, почему нельзя отцентрировать до импорта.
Перестройте свою работу, или не записывайте макросы, а пишите их.

если вы внимательно присмотритесь к скрину в первом посте, то расстояние между страницами разное (где фальц = 24 мм, где обрез = 48мм)
в написании макросов полный ноль, кроме

Код:

Sub
End Sub

а на изучение VB сейчас нет времени (сейчас сезон, после нового года займусь поплотнее), директор торопит.

splxgf · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
если вы внимательно присмотритесь к скрину в первом посте, то расстояние между страницами разное

Расстояние вижу, а в чем проблема нет.
Позиционируйте вместе с рамкой, пусть хоть пересекаются или не доходят.
Нужные рамки можно нарисовать один раз на мастере. А ненужные удалить поиском/заменой

Serrg_Shaman · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

не понял, если возможно, то поподробнее распишите плиз

splxgf · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Я могу только указать на сомнительные моменты. А что-то расписывать по скринам не зная ничего это бесполезное занятие.
Вот производится импорт в корел из какого формата? PDF? Часть плюшек можно делать сразу там.
Непонятно почему не подходит Imposion tool и почему результат должен быть в кореле.
Есть системы специально предназначенные для спуска полос.

Serrg_Shaman · 18.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Я могу только указать на сомнительные моменты. А что-то расписывать по скринам не зная ничего это бесполезное занятие.
Вот производится импорт в корел из какого формата? PDF? Часть плюшек можно делать сразу там.
Непонятно почему не подходит Imposion tool и почему результат должен быть в кореле.
Есть системы специально предназначенные для спуска полос.

импортируются файлы в *.cdr формате. скрин прикрепил
дело в том, что после работы в Imposion tool, нужно вставить метки обреза (на А2) и названия типа изделия. хотя кончный файл нужен в PDF формате.
что за системы для спуска полос?

Nicky · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Kodak Preps, Prinect Signa Station, например.

_MBK_ · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Не по теме:
У меня складывается такое ощущение, что в данной теме без меня присутствует некий заговор - никто не хочет объяснить человеку почему дважды два - четыре. Попробую я.

Serrg_Shaman сказал(а):
в том и проблема, что я не знаю как он понимает какой и где объект находится и какая операция с ним происходит. может он запоминает координаты объекта...

Часть ответа вы уже поняли сами - никак он этого понять не может. По этой причине ваш записанный скрипт абсолютно бессмысленен - он может быть применен только к тому документу , на котором он записан. А все потому что

Serrg_Shaman сказал(а):
цифирь в скобках после 'Shapes'

- это абсолютный индекс в массиве объектов - "волшебная цифра", уникальная для каждого созданного документа, практически случайная, зависит от порядка создания объектов и положения звезд на небе. Для другого документа, естественно, будет другой.

Serrg_Shaman сказал(а):
после слова 'Move' - это координаты вставляемого объекта

Да. RTFM, открываейт Visual Basic Editor, жмите F1 и F2 и будет вам счастье.

а на изучение VB сейчас нет времени (сейчас сезон, после нового года займусь поплотнее), директор торопит.

Тогда ничего у вас не выйдет, просто так за две секунды никто вас дистанционно на форуме бейсику не обучит. Вам тут правильно уже подcказали, варианты правильных действий в данный момент:
1) Пользовать штатные кореловские средства раскладки
2) Пользовать специальный софт
3) Заплатить денюжку специально обученному программисту чтобы написал этот злосчатный скрипт
4) Выделить время и засесть за это самое FM, изучить самому васик и написать скрипт, периодически задавая умные вопросы на форуме.

splxgf · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Оптимально использовать кореловскую раскладку и вывод в PDF.
Добавить наименования спусков в уже готовый файл затруднений не должно представлять.

Serrg_Shaman · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

splxgf сказал(а):
Оптимально использовать кореловскую раскладку и вывод в PDF.
Добавить наименования спусков в уже готовый файл затруднений не должно представлять.

я с ПДФ файлами не работал, какой прогой лучше добавить изменения?

Serrg_Shaman · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

_MBK_ сказал(а):
Не по теме:
У меня складывается такое ощущение, что в данной теме без меня присутствует некий заговор - никто не хочет объяснить человеку почему дважды два - четыре. Попробую я.

Часть ответа вы уже поняли сами - никак он этого понять не может. По этой причине ваш записанный скрипт абсолютно бессмысленен - он может быть применен только к тому документу , на котором он записан. А все потому что

- это абсолютный индекс в массиве объектов - "волшебная цифра", уникальная для каждого созданного документа, практически случайная, зависит от порядка создания объектов и положения звезд на небе. Для другого документа, естественно, будет другой.

Да. RTFM, открываейт Visual Basic Editor, жмите F1 и F2 и будет вам счастье.

Тогда ничего у вас не выйдет, просто так за две секунды никто вас дистанционно на форуме бейсику не обучит. Вам тут правильно уже подcказали, варианты правильных действий в данный момент:
1) Пользовать штатные кореловские средства раскладки
2) Пользовать специальный софт
3) Заплатить денюжку специально обученному программисту чтобы написал этот злосчатный скрипт
4) Выделить время и засесть за это самое FM, изучить самому васик и написать скрипт, периодически задавая умные вопросы на форуме.

спасибо за внятное объяснение и совет.
какой можете посоветовать софт?

_MBK_ · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Софт для спуска вам посоветовали в #29. Можно спускать в PDF, тут пробегали темы про Quite Imposition

Serrg_Shaman · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

_MBK_ сказал(а):
Софт для спуска вам посоветовали в #29. Можно спускать в PDF, тут пробегали темы про Quite Imposition

ок, спасибо

еще один вопросик, почему корел при использовании ранее записаного макроса на группировку всех объектов на раб. обл. группирует только на 1-й странице (всего страниц 40), а в истории черным по белому записано, что группировку произведено на всех страницах
вот текст макроса:

Код:

Sub Macro1()
    '
    ' Recorded 19.10.2012
    '
    ' Description:
    '
    '
    Dim s1 As Shape
    Set s1 = ActivePage.Shapes.All.Group
    Dim s2 As Shape
    Set s2 = ActiveDocument.Pages(2).Shapes.All.Group
    Dim s3 As Shape
    Set s3 = ActiveDocument.Pages(3).Shapes.All.Group
    Dim s4 As Shape
    Set s4 = ActiveDocument.Pages(4).Shapes.All.Group
    Dim s5 As Shape
    Set s5 = ActiveDocument.Pages(5).Shapes.All.Group
    Dim s6 As Shape
    Set s6 = ActiveDocument.Pages(6).Shapes.All.Group
    Dim s7 As Shape
    Set s7 = ActiveDocument.Pages(7).Shapes.All.Group
    Dim s8 As Shape
    Set s8 = ActiveDocument.Pages(8).Shapes.All.Group
    Dim s9 As Shape
    Set s9 = ActiveDocument.Pages(9).Shapes.All.Group
    Dim s10 As Shape
    Set s10 = ActiveDocument.Pages(10).Shapes.All.Group
    Dim s11 As Shape
    Set s11 = ActiveDocument.Pages(11).Shapes.All.Group
    Dim s12 As Shape
    Set s12 = ActiveDocument.Pages(12).Shapes.All.Group
    Dim s13 As Shape
    Set s13 = ActiveDocument.Pages(13).Shapes.All.Group
    Dim s14 As Shape
    Set s14 = ActiveDocument.Pages(14).Shapes.All.Group
    Dim s15 As Shape
    Set s15 = ActiveDocument.Pages(15).Shapes.All.Group
    Dim s16 As Shape
    Set s16 = ActiveDocument.Pages(16).Shapes.All.Group
    Dim s17 As Shape
    Set s17 = ActiveDocument.Pages(17).Shapes.All.Group
    Dim s18 As Shape
    Set s18 = ActiveDocument.Pages(18).Shapes.All.Group
    Dim s19 As Shape
    Set s19 = ActiveDocument.Pages(19).Shapes.All.Group
    Dim s20 As Shape
    Set s20 = ActiveDocument.Pages(20).Shapes.All.Group
    Dim s21 As Shape
    Set s21 = ActiveDocument.Pages(21).Shapes.All.Group
    Dim s22 As Shape
    Set s22 = ActiveDocument.Pages(22).Shapes.All.Group
    Dim s23 As Shape
    Set s23 = ActiveDocument.Pages(23).Shapes.All.Group
    Dim s24 As Shape
    Set s24 = ActiveDocument.Pages(24).Shapes.All.Group
    Dim s25 As Shape
    Set s25 = ActiveDocument.Pages(25).Shapes.All.Group
    Dim s26 As Shape
    Set s26 = ActiveDocument.Pages(26).Shapes.All.Group
    Dim s27 As Shape
    Set s27 = ActiveDocument.Pages(27).Shapes.All.Group
    Dim s28 As Shape
    Set s28 = ActiveDocument.Pages(28).Shapes.All.Group
    Dim s29 As Shape
    Set s29 = ActiveDocument.Pages(29).Shapes.All.Group
    Dim s30 As Shape
    Set s30 = ActiveDocument.Pages(30).Shapes.All.Group
    Dim s31 As Shape
    Set s31 = ActiveDocument.Pages(31).Shapes.All.Group
    Dim s32 As Shape
    Set s32 = ActiveDocument.Pages(32).Shapes.All.Group
    Dim s33 As Shape
    Set s33 = ActiveDocument.Pages(33).Shapes.All.Group
    Dim s34 As Shape
    Set s34 = ActiveDocument.Pages(34).Shapes.All.Group
    Dim s35 As Shape
    Set s35 = ActiveDocument.Pages(35).Shapes.All.Group
    Dim s36 As Shape
    Set s36 = ActiveDocument.Pages(36).Shapes.All.Group
    Dim s37 As Shape
    Set s37 = ActiveDocument.Pages(37).Shapes.All.Group
    Dim s38 As Shape
    Set s38 = ActiveDocument.Pages(38).Shapes.All.Group
    Dim s39 As Shape
    Set s39 = ActiveDocument.Pages(39).Shapes.All.Group
    Dim s40 As Shape
    Set s40 = ActiveDocument.Pages(40).Shapes.All.Group
End Sub

с чем это может быть связано? может я, как то не так записываю?

splxgf · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Serrg_Shaman сказал(а):
с чем это может быть связано? может я, как то не так записываю?

Записываешь может правильно, но записываться может неправильно.
Почувствуй разницу.

Код:

 Set s1 = ActivePage.Shapes.All.Group
Set s2 = ActiveDocument.Pages(2).Shapes.All.Group

В переводе на русский проще сначала активировать нужную страницу, потом делать ActivePage.Shapes.All.Group
И вообще в цикле это четыре строки с автоматическим учетом количества страниц, а записывать сорокастраничный макрос это... непроизводительно.

_MBK_ · 19.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Даже и не знаю. Но я бы сделал что-то типа:

Код:

for i=1 to ActiveDocument.Pages.Count
 Dim s As Shape
 ActiveDocument.Pages(i).Activate
 Set s=ActivePage.Shapes.All.Group

Next i

JAW · 21.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

Мой ответ Чемберлену...
Учите системы спуска полос, т.к. это у вас ещё простой случай.
Когда нужно будет записнушки типа по 16 стр. в тетради с листа A3+ возникнут дополнительные вопросы типа поворота страницы на угол и смещение для компенсации фальца, метки в корешке для подбора и т.п. радости...
В Кореле Вы со всем этим повеситесь.

_MBK_ · 21.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

JAW сказал(а):
Мой ответ Чемберлену...
Учите системы спуска полос, т.к. это у вас ещё простой случай.
Когда нужно будет записнушки типа по 16 стр. в тетради с листа A3+ возникнут дополнительные вопросы типа поворота страницы на угол и смещение для компенсации фальца, метки в корешке для подбора и т.п. радости...
В Кореле Вы со всем этим повеситесь.

Джав, вы, как всегда, проблему видите совсем не в том месте, где надо. Если человек научится нормально ставить задачу под создание спуска и ее реализовввать - то всякие сдвиги-повороты-масштабирования будут как семечки. Самое сложное для него - понять идеологию создания макроса в рамках спуска полос. И я вовсе не уверен, что мы все вместе так, между делом, сможем его научить, если он сам документацию и примеры разбирать не будет.

Serrg_Shaman · 22.10.2012

Ответ: Help! Раскладка в CorelDRAW Х3

_MBK_ сказал(а):
Самое сложное для него - понять идеологию создания макроса в рамках спуска полос. И я вовсе не уверен, что мы все вместе так, между делом, сможем его научить, если он сам документацию и примеры разбирать не будет.

правильно пишете

_MBK_. так как у меня сейчас нет совсем времени на чтение мануала, написание макроса переносится на некоторое время, а сейчас я просто буду задавать некоторые наводящие вопросы, если никто не возражает

Поиск

Help! Раскладка в CorelDRAW Х3

splxgf

Serrg_Shaman

Участник

splxgf

Serrg_Shaman

Участник

splxgf

Serrg_Shaman

Участник

splxgf

Serrg_Shaman

Участник

Вложения

Nicky

_MBK_

Пикирующий бомбардировщик

splxgf

Serrg_Shaman

Участник

Serrg_Shaman

Участник

_MBK_

Пикирующий бомбардировщик

Serrg_Shaman

Участник

splxgf

_MBK_

Пикирующий бомбардировщик

JAW

_MBK_

Пикирующий бомбардировщик

Serrg_Shaman

Участник