Вид

CorelDRAW :: VBA макросы :: wOxxOm RSS
Atom
English EN
Pycckue RU

RecentFiles. Анлимитед

Ноябрь 30: (важно) исправлено: не "отпускал" картинки, не давая их перезаписывать в других прогах

Ноябрь 21: Новое: показ доп.инфы для картинок / PDF

Ноябрь 11: (важно) теперь пропускает '..' при удалении файлов

  • 10 000+ файлов в истории документов с удобным управлением и дополнительными функциями
  • Прекрасно заменяет диалог открывания файлов и окно Приветствия в CorelDraw
  • Управление файлами - быстрый поиск, предпросмотр, Ctrl-C/X/V, перетаскивание файлов.
shot_RecentCDR.png
  • Совместим с CorelDraw 11, 12 & X3
  • Автоматическое отслеживание истории документов.
  • автоматически закрывается/минимизируется (клавиша <Esc>) и появляется когда закрыт последний документ (в Опциях)
  • Сортировка и быстрый поиск по имени/папке/дате, c мгновенным отображением результата
  • Превьюшка. Для документов CorelDRAW – с указанием версии сохранения
  • CDRinfo+ (опции) показывает кол-во и размер страниц, dpi, шрифты, инфу о linked картинках, и т.п.
      (правая кнопка мыши на информации позволяет сменить ед.изм. размера страницы)
  • Файловая панель с превьюшкой (правой кнопкой по превьюшке чтобы изменить ее размер) для большинства графических файлов - CDR, CDT, CMX, DES, PAT, TIF, PSD, JPG, BMP, WMF, EMF, CRW, NEF, EPS, причем 90% показываются действительно мгновенно, используя встроенные в них превьюшки. Для TIF/JPG с увеличенной областью превьюшки можно увидеть более качественную версию, полученную чтением всего файла, нажав левой кнопкой на превьюшку.
  • Предпросмотр содержимого папки, то есть сразу видно что лежит в выбранной папке
  • Выбор папки стандартным окном папок Проводника, с запоминанием расположения это окна.(Клавиша <F4>)
  • Избранные папки (размер области на экране для них можно изменить - над ними есть полоска, ее можно тянуть)
  • Открывает и импортирует сразу несколько файлов (Клавиша <Enter>, для импорта <Alt> и двойной щелчок)
  • Удаление документов из списка истории, удаление в корзину (Клавиша <Del>, <Ctrl-Del> )
  • Функция автопометки уже несуществующих файлов в истории с удалением
  • Переименование файлов с синхронизацией истории (даже для папок)
  • Перетаскивание файлов/папок в окно макроса чтоб перейти к этому файлу/папке. Перетаскивать из окна макроса в другие программы, например картинку в PhotoShop – для редактирования, или файл в окно Проводника – для копирования
  • Стандартные операции с файлами через буфер - копирование/вырезание/вставка (Ctrl-C/X/V), работает совместно с окнами Проводника. При CtrlX, CtrlV в пределах окна макроса происходит синхронизация истории с новой папкой файла
  • Опция "LastView" - сохранение масштаба, положения и номера страницы в сохраненных документах, так что при открывании в следующий раз сразу можно продолжать с места последнего редактирования
  • Автопометка растровых картинок их именем/папкой на диске, что будет видно в статус-строке при выделении объекта [идея: Lev], для умещения длинной строки можно убрать из статуса элемент с подсказками по инструменту, и на его место перетянуть информацию по объекты (делается, удерживая клавишу Alt)
  • кнопка "Найти растр" - переходит к дисковому исходнику вставленной картинки при нажатии на кнопку с Alt - находит в документе (или во всех открытых) подсвеченную в окне макроса картинку с диска
  • Автоматическое извлечение из .CRW & .NEF встроенных jpeg при перетаскивании/импорте
  • Изменение и сохранение размеров окна, колонок списка, вида списка (опции)
  • Две полоски для изменения размера области файлов и избранных папок
  • Управление всеми возможностями с клавиатуры (см. встроенную справку и подсказки к элементам окна)
  • Выбор языка интерфейса, русский / английский

    Если не запускается:
    1. обновите Microsoft CommonDialogs OCX или (пере-)установите MSOffice
    2. При запуске макроса включите опцию Автозапуск в настройках макроса.
    3. Выключите в CorelDRAW в меню опций Tools >> Options >> VBA >> Delay load VBA ("Отложенный запуск")

    История документов:  C:\Documents and Settings\**Ваша учетная запись**\Application Data\Corel\recentFiles.ini
    Настройки макроса:    C:\Documents and Settings\**Ваша учетная запись**\Application Data\Corel\recentFilesOptions.ini

  • Nov21 - показывать X x Y x цветность @ dpi (размер в мм) лдя картинок, число фреймов в GIF/TIF, mediabox (размер страницы) и кол-во стр. для PDF
  • Nov11 - ВАЖНО! теперь пропускает '..' при удалении файлов
  • Sep19 - какие-то исправления
  • July03 - Импорт через макрос - клик мышкой для импорта в указанное место документа, <Пробел> использует позицию из файла для импорта (для векторных), <Enter> - по центру страницы
    импорт 'PSInterpreted' :: сохраняет ответ и использует для всех оставшихся выделенных файлов
    запоминается последняя использованная папка для сохранения новых документов
    путь к Ghostscript можно указать в опциях
  •  Jun10 - PDF, PS, AI, PRN, EPS отображаются в просмотре. GhostScript нужен в большинстве случаев.
  •  May31 - в режиме сохранения :: даблклик по файлу в панели папок - сохраняет в этот файл (с запросом перезаписи)
  • Mar29 - разные исправления
wx_TOOLS :: набор макросов
2008 Март,1 selectInside
2007 ноябрь,28 BitmapsResizer
  • wx.PClipPick - выбор объекта внутри поверклипа без вхождения в режим его редактирования, под указателем мыши. Работает только при назначении макросу горячей клавиши, например: назначьте две, "W" и "Shift-W" (с Shift для того чтобы выбирать несколько внутри поверклипа). Если выбран поверклип внутри поверклипа то повторный вызов макроса будет выбирать уже в этом вложенном.
  • wx.ZoomOutBack - (для DrawX3) назначьте на F3, восстанавливает правильное (до Х3) поведение этой клавиши (переход к последнему масштабу зума, что удобно при возврате после экстремального увеличения масштаба)
  • wx.ZoomFullPage - назначьте на Shift-F4, для замены стандатной функции показа всей страницы (5% вместо 20% пустого пространства вокруг страницы)
  • wx.ScrollScreenDown, ...Up ...Left ...Right ...DownRight ...UpRight ...DownLeft ...UpLeft - Перелистывание экрана на 80% по направлениям: Вниз, Вверх, Влево, Вправо, ВнизВправо, ВверхВправо, ВнизВлево, ВверхВлево. Удобно если назначить на клавиши Ctrl-Alt-Numpad (1..9, по направлению перемотки)
  • wx.InvertSelection - инверсия выделения
  • wx.selectInside 2008 март,1: usage: select a lot of small shapes, run the macro, click some big shape (not in Wireframe view)- all the objects inside the big one will be selected.
  • wx.selectComplexCurves - для поиска кривых с числом узлов более заданного
  • wx.selectSmallObjects - для поиска (и, если ответить Yes, удаления) мелких объектов, меньше чем заданный размер. Удобно для подчистки результатов трассировки
  • wx.selectSameFillColor, wx.selectSameFillAndOutline, wx.selectSameOutline, wx.selectSameDialog
    Выбор объектов с совпадающими с текущим объектом цветом заливки / заливки и обводки / обводки / интерактивный диалог (см. картинку). Удобно например назначить на клавиши: F, Ctrl-Shift-F, Shift-F. Выбираются только объекты вне групп. Для выбора так же и внутри групп (без разгруппировки!) макросами без диалога - включить индикатор ScrollLock, вызвать макрос и ввести отрицательное число. Кстати само по себе это число задает степень различия цвета для выбора.
    images/sameColorSelect.png
  • wx.CreateFountain - быстрое и удобное создание многоцветовых градиентов. Создайте много простых разноцветных объектов (например прямоугольников), выделите их и запустите макрос, затем укажите фигуру для заливки градиентом. Угол воображаемой линии, проходящей через центры крайних исходных объектов, используется для градиента (см. картинку).

    images/tip_CreateFountain.png
    Подсказка: для быстрого воссоздания градиента из цветов битмапа: создайте сколько нужно прямоугольничков, переключитесь на инструмент пипетка, установите вверху его режим в ColorSampler, а теперь нажимайте один раз на картинке и потом с Shift - на очередном прямоугольничке. Повторите сколько надо, затем запускайте макрос.
  • wx.ConvertShapesToCMYK - перевести объекты, в том числе битмапы, в CMYK (выбранное / весь документ).
    Используется активный цветовой профиль в Tools->Color Management
  • wx.transparentEdge - прозрачный край для простых объектов (в т.ч. битмапов). Работает странно :-) потому, что используется нестандартный метод. Сбросить эффект рузмеется можно, выбрав, например, инструмент Transparency ("рюмка") и нажать там на кнопку сброса.
    images/smallEdge.jpg images/shot_TransparentEdge.png
  • wx.TextToCurves - текст в кривые в выбранном или всем документе, включая и поверклипы.
  • wx.OutlinesToQ_KillEmpty - перевод обводки в кривую с удалением исходной фигуры, если она без заливки и без обтекания текста / поверклипа / эффектов / меш
  • wx.outlineBehind - обводка "под низом" (чтобы не заходить в диалог свойств обводки). Shift-клик (и Ctrl-клик) на кнопке вызова макроса - обычная обводка
  • wx.outlineCorners - обводка со скругленными углами, Ctrl-клик: острыми, Shift-клик: срезанными
  • wx.OutlineIncrease & OutlineDecrease - увеличение / уменьшение толшины обводки без диалога для всех выделенных объектов относительно их исходной обводки в индивидуальном порядке. У меня назначено на Ctrl-Alt-СтрелкаВверх и Ctrl-Alt-СтрелкаВниз
  • wx.OutlineEqualsFill - сделать цвет обводки такой же как у заливки для выделенных объектов в индивидульном порядке. Очень полезно для устранения дефектов отображения результата трассировки в Х3 (призрачные белые обводки)
  • wx.GuideHorizontal, GuideVertical - создать направляющую горизонтальную / вертикальную в позиции указателя мыши. Только для вызова с клавиатуры (например, H и V)
  • wx.PasteAtMouse - вставка из буфера в позиции указателя мыши. Только для вызова с клавиатуры (например, Ctrl-Shift-V)
  • wx.ForEach - повторить последний простой трансформ объекта на множестве выделенных объектов индивидуально. "Простой" означает повторяемый через Ctrl-R. - исправлен баг с повторением вращения
  • wx.BlendSplit - (только в Х3) расщепить бленд в позиции указателя мыши. Только для вызова с клавиатуры. Для многосоставных (compound) бленд сначала надо выделять с Ctrl нужный сегмент. Помимо прочего удобства, макрос исправляет баг - слет угла созданного управляющего субобъекта на блендах по пути с автовращением
  • wx.sizePagetoFIT - сделать размер страницы равным размеру области объектов + заданный в окне зазор (числа округляются при нажатии OK с Shift или Shift-Enter)
  • wx.pageNamesAsNumbers - убрать названия страниц (удобно чтобы внизу экрана помещалось больше "ярлычков" страниц)
  • wx.dupOnNextPage - дублирование выделнных объектов на следующую страницу без использвания буфера. Слои не учитываются. Удобно в случае большого объема данных
  • wx.OverprintsRemove - Убрать все оверпринты, в т.ч. с битмапов (Х3) на выделенных объектах или во всем документе
  • Следущие три макроса для битмапов работают с выделенными объектами или всем документом, в т.ч. и внутри поверклипов. В конце выводят постраничную статистику
  • wx.BitmapsDownsample - ресэмлировать картинки на выбранное dpi, если текущее dpi картинки превышает заданное более чем на 20%.
  • wx.BitmapsSetDPI - сменить dpi битмапов *без* ресэмплирования (меняется геометрический размер).
  • wx.BitmapsToPowerclips - поместить битмапы в прямоугольные поверклипы по размеру картинки. Можно указать зазор.
  • wx.BitmapsResizer - изменить геометрические размеры битмапов *без* ресэмплирования.
    В окне настройки можно указать размеры и опции (например, 100 0 ap):
    — сохранять пропорции - один из размеров равен 0, он и будет подстраиваться автоматически
    — игнорировать пропорции - оба размера не нулевые
    — обрабатывать весь документ - указана английская буква A (от слова All)
    — смотреть внутри поверклипов - указана английская буква P (от слова Powerclip)
Исправления дляDRAW X4
• Экспорт TIF из DRAW X4 в Photoshop CS3
Этот макрос автоматически исправляет экспорт TIF в DRAW X4 и делает файлы совместимые с Photoshop CS3. Достаточно просто установить макрос и забыть о проблеме. Единственное необходимое условие для макроса, которое кстати по-умолчанию проверяется в установщике макроса, это опция: Tools->Options->VBA->DelayLoadVBA = отключено
• DPI для битмапов в строке статуса DRAW X4
Этот макрос автоматически показывает небольшое горизонтальное окно со свойствами битмапа, в т.ч. DPI. Разместить лучше всего, на мой взгляд, поверх соответствующей секции строки статуса. Единственное необходимое условие для макроса, которое кстати по-умолчанию проверяется в установщике макроса, это опция: Tools->Options->VBA->DelayLoadVBA = отключено
Улучшения интерфейса 
Увеличенные окна опций DRAW/PAINT
2008 Mar, 4 + FontNavigator

Эта программа-патч расширяет окна опций DRAW 11,12,X3,X4 — Настройка комманд и панелек, Текст автозамены, Стили текста, Конверты, Связи типов файлов, Активные фильтры импорта/экспорта, Предупреждения, Настройки совместимости принтера. NEW + FontNavigator

На маленькие картинки можно нажать и увидеть полноразмерную.

images/bigOptUI.png images/thumb_bigOptCommands.png images/thumb_bigOptStyles.png images/thumb_bigOptLabels.png images/thumb_bigOptQuickCorrect.png images/thumb_bigOptAssociate.png images/thumb_bigOptFilters.png images/thumb_bigOptPrinting.png images/thumb_bigOptFontNavChart.png images/thumb_bigOptFontNavSample.png images/thumb_bigOptFontNavDuplicates.png
• Интерфейс :: вкл/выкл — аналог Tab в Adobe PS/Illy
2008 фев 24 панелька докеров теперь переключается в DRAW Х4 тоже
  • wx.ShowHideToolbars - показывает/прячет заголовок CorelDRAW, меню, статус, панели кнопок, линейки, направляющие, палитры, докеры, панель задач Windows. Назначьте, например, на Alt-~ (рядом с Tab)
  • wx.SetupShowHideToolbars - диалог настройки списка элементов интерфейса для переключения видимости. Настройки сохраняются и используются основным макросом ShowHideToolbars
  • wx.LockToolbars & wx.UnlockToolbars - закрепить тулбары на месте
  • wx.guidesToggleEdit - Переключает редактируемость мастер слоя направляющих мышью
  • wx.DockersShufflerToggle - Переключает панель докеров - для управления ее видимостью с клавиатуры
shot_ShowHideUI.png

shot_RestoreMenu.png
Памятка, если вы не назначили клавишу для макроса и спрятали меню:
1. нажать и держать клавишу Alt (до шага 5)
2. правой кнопкой мыши нажать в пустом месте окна
3. в появившемся меню нажать правую же кнопку
4. включить "Menu" (как обычно левой кнопкой)
5. отпустить Alt
• Панорамирование колесом мышки (аналог Adobe)
При запуске в трее Windows появляется новый значок, и программа фильтрует колесо мыши в окнах CorelDRAW / PhotoPAINT, меняя масштабирование на прокрутку

  • Колесо - прокрутка по вертикали. Alt+Колесо - по горизонтали.
  • Ctrl+Колесо - зум. Shift+Колесо - зум плавно в DRAW (или быстро в PhotoPAINT)
  • Колесо нажато без вращения - быстрое панорамирование движениями мыши
  • Настройка запуска вместе с CorelDRAW:
    1. Создайте ярлык для CorelPanScroll.zip
    2. в его свойствах ярлыка отредактируйте командую строку запуска, добавив после пробела полный путь к CorelDRW.zip в кавычках
      например, так: "C:\путь\CorelPanScroll.zip" "c:\Program Files\Corel\CorelDRAW Graphics Suite 13\Programs\CorelDRW.zip"
    3. Этим ярлыком теперь и запускайте CorelDRAW.
  • [ Исходник скрипта AHK ]
• PhotoPAINT во весь экран
  • PPapiTimer.PaintMaxEdit - открывает PhotoPAINT во весь экран для выделенной картинки
  • PPapiTimer.PaintMaxSetup - настройщик, если ответить Yes, то PhotoPAINT будет во весь экран при выборе "Edit bitmap" в меню правой кнопки (и при двойном щелчке на картинку в CorelDRAW 12 либо настроенном через реестр DrawX3 - HKEY_CURRENT_USER\Software\Corel\CorelDRAW\13.0\CorelDRAW\Application Preferences\Bitmaps -> EditBitmapOnDoubleClick -> 1)
• 2 окна, 2 типа отображения синхронно для одного документа
  • wx.SyncWindowsToggle создает второе окно для документа, в котором синхронно отображает в режиме Wireframe (каркас). Повторный запуск макроса отключает этот режим и закрывает дополнительное окно.
  • Настройка режимов просмотра — в коде макроса (Tools->VisualBasic->Editor или удобнее черезMacroInstaller)
shot_Sync.png
• Сохранение своих рисованных иконок интерфейса
Увеличение размера шрифта в Справке (Help) 2008 фев 21

Эта программка увеличивает шрифт в файлах справки .CHM формата, заменяя фиксированные и маленькие значения размера шрифтов на пропорциональные. В диалоговом окне можно указать дополнительный процент увеличения (по-умолчанию 100%)

Также в Справку добавляется кнопка смены шрифта на лету во время просмотра!

Использование: перейти к папке программы и нажать Search & queue subfolders, затем Process queue list

Перевод :-)
create backup = оставлять копию оригинала
Search & queue subfolders = поиск по вложенным папкам с добавлением в список обработки
Process queue list = обработать список

images/CHMFontSize.pngimages/CHMFontSizeExample.png

Цвет...  
• Векторный Микшер Каналов CMYK
  • Мгновенный предпросмотр
  • Визуальное управление (движки) и ручной ввод значений для точного управления
  • Сохранение наборов установок. Загрузка выбранного – по двойному щелчку
shot_Mixer.png
  • копирование/замена каналов перетаскиванием метки канала на другую (держать Ctrl для копии)
  • преобразование в CMYK (опция "Convert to CMYK") — требуется для обычных клипартов
  • работает с заливкой и/или обводкой
  • держать <Shift> при управлении ползунками для изменения по 10%
    держать <Ctrl> — для одновременной смены значений
    держать <Alt> — для пропорционального изменения текущих значений ("резиновый" режим)
  • Наборы сохраняются в %AppData%\Corel\Graphics13 / 12 / 11 \User Custom Data\CurveChannelMixer.ini
• ColorReplacer от Oberon - наши более продвинутые варианты
shot_ColorReplacer1.pngshot_ColorReplacer2.png

• Оттенки Pantone. Аналог Duotone для вектора, текста, 1bit ч/б
Битмапы...
• Экспорт в битмапы постранично с нумерацией
2008 фев 01 Добавлена заплатка для бага X4 при экспорте в TIF
  • Нумерованная последовательность JPG, TIF, GIF, PNG, BMP, и даже CDR (с опциональным преобразованием текста в кривые)
  • Выбор страниц, префикса файла, начального номера, кол-ва цифр, размера полученных картинок
  • Припуск (блид). При включении - экспортирует всю область страницы + блид.
    Выкл. - для экспорта только фактической области, занятой объектами
  • 5 цветовых моделей, включая индексированную с настраиваемыми параметрами
shot_Export.png
• Импорт с именем картинок и коррекция DPI   
images/smallImportTagger4.gif

import.ImportBitmapWithName — создает плавающее окошко, на которое можно перетаскивать файлы из папок Проводника
— картинки проимпортируются с файловым именем и/или папкой в статусбаре и менеджере объектов.
— Доп.функция для jpg 72/96 dpi: если держать держать Ctrl то используется коррекция DPI (удерживайте Alt для игнорирования коррекции DPI).
— Опции - по правой кнопке. Положение на экране запоминается. Подсказка в меню [About]

Примечание: чтобы видеть в статусе dpi - уберите поле 'Подсказка' и измените размер и положение для 'Информации' и 'Деталей' (с нажатой клавишей Alt подвести курсор к концу элемента статусбара, нажать и тянуть вправо. Надежнее это сделать можно, находясь в диалоге опций Customization->Commands, и выбраь простым нажатием сначала нужный элемент прямо в статусбаре, а потом уже изменять его размер)
Стандарт: images/ImportTaggerSB2before.gif
Настроено: images/ImportTaggerSB2after.gif
• AutoDPI для импортированных битмапов
  • wx.setDpi - устанавливает введенное dpi для битмапов (выделенных/всех на странице)
  • wx.setDpiSetup - настройка автоматической установка dpi при импорте битмапов (0 = выключить)
• Линкованные картинки :: переимпортировать в 100% качестве
См. также несколько макросов в wx_Tools :: wx.Bitmaps....
Работа с объектами, слоями...
• Быстрое выравнивание узлов 2008 фев 21

wx.NodeAlignLeft, ...Right, ...XCenter, ...Top, ...Bottom, ...YCenter - эти макросы выравнивают узлы аналогично стандартным клавишам L,R,C,T,B,E (лево, право, середина гориз., верх, низ, середина верт.), поддерживается выделение узлов с разных объектов одновременно.

Примечние: Так как DRAW не передает информацию об узле выбранном в последнюю очередь в VBA макрос, то все выравнивания абсолютны, например NodeAlignLeft всегда выравнивает по самому левому узлу. Решение :-) сначала выравнять все узлы кроме "правильного", затем выполнить макрос, теперь выбрать дополнительно "правильный" узел и запустить макрос еще раз (все это очень быстро делается если макрос назначен на клавишу)

• Layers: управление слоями
Памятка для тех кто обновляет с очень старой версии: вручную удалите showlayer.gms (теперь имя файла wx_showlayer.gms)
  • mLayer.ActivateLayerSetup - настройка автоактивации слоя выделенного объекта.
    — Упрощает работу с многослойными документами
    — Доп.инфо. в шапке CorelDRAW: слой, цветовой профиль, имя документа
  • mLayer.toggleLayerAutoActivation - Вкл./выкл. автоактивацию слоя выделяемого объекта
shot_Layers.png
  • mLayer.GroupAndSaveLayers - Для сохранения информации об исходных слоях при копировании через буфер. Создает объект-группу, который можно копировать, сохранять, переносить в другой документ.
  • mLayer.UnGroupAndAssignLayers...... - Распределяет объекты из ранее созданной группы, три варианта:
    ...Skip - по СУЩЕСТВУЮЩИМ слоям
    ...One - То же, а также создает слой "From deleted layers" для объектов, слоев которых нет в данном документе
    ...CreateAll - СОЗДАЕТ все необходимые слои и распределяет объекты из группы (порядок слоев не запоминается)
  • mLayer.ScatterToNewLayers - перед экспортом в PSD — помещает каждый объект в документе на свой отдельный слой, в результате чего при экспорте в .PSD в файле будет слой для каждого объекта.
  • mLayer.LayerFromSelected - Создание нового слоя из выделенных объектов, имя у нового слоя - как у активного и знак +
  • mLayer.SelectLayerShapes - Выделяет все объекты со слоев текущих выделенных объектов
  • mLayer.LayerPrevious, LayerNext - Сменить активный слой
  • mLayer.LayerMoveUp, LayerMoveDown - Передвинуть активный слой вверх или вниз.
  • mLayer.SelectLayer - Активировать слой выделенного объекта
  • mLayer.MoveShapesToCurrentLayer - Переместить выделенный объект на активный слой
  • mLayer.MergeLayersToCurrent - Склеить слои выделенных объектов с текущим.
  • mLayer.LabelLayer - Переименовать слой текущего объекта или активный слой, если ничего не выделено
  • mLayer.DeleteLayer - Удалить слой текущего объекта или активный слой, если ничего не выделено
• BarCodes в кривые (используя фильтр EPS) 
• Обводки :: автомасштаб вкл/выкл (wx.OutlinesScaledON / OFF)
• Дедубликатор и коннектор
  • wx.removeUnderlyingDups - выделяет копии объектов лежащие друг над другом и предлагает их удалить
  • wx.nodeClean2 - для соединения разбитых на кусочки линий в раздельных объектах с геометрически общими концами в одну замкнутую кривую
  • wx.CtrlShiftQ_dispose - устаревший, заменен наwx_Tools :: wx.OutlinesToQ_KillEmpty
Разные макросы 
• Макро инсталлер
  • Быстрое создание кнопочек для макросов
  • Запуск макросов из списка
  • Поиск макроса в списке ведется по всем сразу макросам по части имени. Не покидая строки поиска можно нажимать клавиши Вверх/Вниз и переходить к след./пред. совпадению

Скриншот полного варианта и кнопочек: установщик & кнопочки
shot_MacroInstallerSmall.pngshot_MacroInstallerMedium.png
• Динамическая настройка DrawХ3 (только DrawX3.0.739)
shot_PatchDrawEN.png
  • patch.CLOLreadToggle - отключить чтение из CDR файлов цветовых стилей ColorStyles для ускорения их открывания
  • patch.CLOLwriteToggle - отключить запись цветовых стилей ColorStyles в CDR файлы для уменьшения размера и ускорения их записи
  • patch.NodeGlyph2xToggle - переключить двойной размер невыделенных маркеров узлов в режиме редактирования кривых
  • patch.NodeGlyphColoredToggle Сент,30: переключить расцветку маркеров узлов в зависимости от типа узла (NodeColorCoding)
  • patch.SnapRadiusSet Окт,13: увеличить силу привязки в несколько раз. Удобнее работать с Snap-to-Objects и направляющими. Сам CorelDRAW выставляет максимум 15, а макрос - до 35.
  • patch.SnapRadiusStd10, SnapRadiusMax35 Окт,13: установить стандартную силу привязки (10) и максимальную (35)
  • patch.SlowZoomToggle - переключить скорость зуммирования колесом мыши - быстро/медленно. Скорость Shift-прокрутки тоже меняется.
  • patch.ZoomLevelLimitToggle Nov,15: убрать сообщения о достижении предела зума "Maximum (minimum) zoom level achieved reached"
  • patch.CrossHairToggle - указатель мыши - перекрестье на весь экран
  • patch.DispImageAntiAliasToggle - антиалиасинг (сглаживание) битмапов в режиме просмотра Улучшенный (Enhanced)
  • patch.Setup - настройщик автозагрузки настроек при запуске CorelDRAW
  • работает только на версии 13.0.0.739
• Сохранение в старой (исходной) версии
  • wx.CDRSaveAsVersion — надо назначить на Ctrl-S или на кнопку в тулбаре и пользоваться для сохранения только этим макросом. Можно вызвать настройку версии сохранения — включите индикатор ScrollLock на клавиатуре и запустите макрос. После настройки - выключите ScrollLock, чтобы не не появлялось окно настройки.
  • wx.CDRSaveSetup — Если надо чтобы все доки сохранялись в одной фиксированной версии, то укажите номер версии - он и будет использоваться. Если ввести там 0 то сохранять будет в первоначальной версии документа.
• Автоочистка списка видов (ViewStyles) при сохранении/открывании
Установка макросов VBA в CorelDRAW
1. Запустить установщик макроса (из CorelDRAW предварительно выйти)
2. сделать кнопку для макроса:
[ Демо-ролик 80 сек 0.5MБ флешка "Создание кнопок" ]
[ создание кнопочки для макроса, пошагово в картинках ]
[ Макро Инсталлер ]

Вкратце:
  • в меню Tools->options->customization->commands, выбрать "macros"
    (Сервис/Инструменты -> Опции -> Схемы/изготовление -> Команды -> Макросы)
  • перетащить выбранный макрос в тулбар (панель с кнопками на экране
  • там же можно назначить клавишу быстрого запуска.
Макросы: блог обновлений wOxxOm зеркало HotLinkFiles Санчо MacroMonster IsoCalc CoolTools OberonPlace AntiPoetics QuickChange