Регистрация | | запомнить |
 
 
ВК



Просматривают:   1 Анонимно





CorelDRAW , макрос
print | #
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Всем приветики.
Хотел написать Макрос , который бы обрабатывал только те объекты, которые выбраны пользователем и в том же порядке.

1. Есть открытый документ CorelDraw с кучей разных объектов.
2. Пользователь выделяет (selection) объекты нажимает кнопку "запомнить".
3. Выделенному (selection) присваевается порядковый номер(?) заноситься в список или массив(?) или.....
4. Потом согласно сформированого списка выпоняется обработка selections.

ps: есть форма, две кнопки ("запомнить", "обработать" и ListBox.
Кто силен помогите, или подскажите

есть подобный макрос (SelectionManager) по сохранению селекций, но как автор реализовал непонятно

Опубликовано: 2008/2/4 10:24
« 1 (2) 3 »


Re: CorelDRAW , макрос
Новичок
Присоединился:
2008/1/15 10:05
Откуда Челябинск
Сообщений: 20
Offline
Цитата:
GoodvinVV wrote: Если не сильно отвлеку, но как это сделать? (я с VBA только пару дней )

Если пару дней - то в первую очередь смотреть help по VBA для Corel (для 11-го - DRAW11VBA.HLP, для Х3 - draw_vba.chm). Там много описано, есть примеры.

Опубликовано: 2008/2/4 14:56


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Примеры то есть да все как то не то

нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру

Опубликовано: 2008/2/4 15:08


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
так... чтобы понять чего собственно хотел Я "изобрести свой велик"

Опубликовано: 2008/2/4 15:10


Re: CorelDRAW , макрос
Новичок
Присоединился:
2008/1/15 10:05
Откуда Челябинск
Сообщений: 20
Offline
Цитата:
GoodvinVV wrote: Примеры то есть да все как то не то
нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру :-(


Всё там есть - ищи и пробуй. Сам. Для твоего случая может подойти:

Dim s1 As Shape
Dim s2 As Shape
' Задаём имя выделенного объёкта:
Set s1 = ActiveSelection.Shapes(1)
s1.Name = "MamaMylaRamu"
' Тут сам пиши, что нужно - добавление в список, перебор и пр., и пр.
' [...]
' Поиск по имени объекта:
For Each s2 In ActiveLayer.Shapes.FindShapes("MamaMylaRamu")
MsgBox "Я MamaMylaRamu", vbInformation, " Пример"
Next

Доводи до ума сам, исходя из задачи.

Опубликовано: 2008/2/4 15:51


Re: CorelDRAW , макрос
Новичок
Присоединился:
2007/4/5 10:45
Откуда Московская обл.
Сообщений: 20
Offline
Цитата:

GoodvinVV wrote:
Примеры то есть да все как то не то

нет примера присвоить селекции уникальный номер, чтобу потом найти ее по этому номеру


А если селекцию в группу, и назвать как удобно, можно с числами на конце.

Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim s1 As Shape
Set s1 = OrigSelection.Group
Dim nameLogo, mystr
nameLogo = s1.name
s1.name = "Logo"

Потом по названию разыскать, разгруппировать и обработать.

Опубликовано: 2008/2/4 15:52


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
!!! Всем огромное спасибо попробую вечерком
завтра отпишу как прошло....

Опубликовано: 2008/2/4 16:03

Edited by GoodvinVV on 04/02/2008 18:57:05
Edited by GoodvinVV on 05/02/2008 0:05:50


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Да теперь что-то получаеться
Спасибо Sanchos!
Спасибо Ander_OS!
Спасибо magnus_z!

Опубликовано: 2008/2/5 0:03


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Считаю тему закрытой!


Однако как работать с группой (не группируя выделенные объекты) пока не ясно

Опубликовано: 2008/2/5 20:44


Re: CorelDRAW , макрос
Новичок
Присоединился:
2007/4/5 10:45
Откуда Московская обл.
Сообщений: 20
Offline
Вопрос? Что нужно сделать в группе? Перебираешь элементы по очереди и делаешь что хочешь.

Опубликовано: 2008/2/6 11:03


Re: CorelDRAW , макрос
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01
Откуда Москва
Сообщений: 49
Offline
Группировать нельзя! объекты могут находиться на разных слоях и при групировке падают на один слой и могут поменять свой порядок, что кретично

Опубликовано: 2008/2/6 12:45



« 1 (2) 3 »




Форма быстрого ответа
ЛогинИмя   Пароль   Логин
Сообщение:          

      ПРИМЕР


 [далее...]
Уведомлять о сообщениях в теме.



[Настройки поиска]