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



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





Огромная коллекция макросов для Corel12/X3
print | #
Титан - модератор
Присоединился:
2006/4/8 19:42
Сообщений: 152
Offline
Огромная коллекция макросов для Corel12/X3

downsampleBitmaps - уменьшает dpi выбранных битмапов до введенного
bitmapsIntoPowerclips - все битмапы засовывает в поверклипы чтоб удобнее обводки было делать
selectSameFillColor - выделяет все такого же цвета как и текущий (если капслок включен - то спрашивает чувствительность к цвету)
selectSameFillAndOutline - т.ж. по цвету и обводке
selectSameOutline - т.ж. по обводке
ConvertShapesToCMYK - все выделенные в cmyk
ChannelMixer - миксер cmyk каналов для кривых. версия0.1
makeOutlineSameAsFill - делает обводки такого же цвета что и заливки
removeUnderlyingDups - убирает точные копии кривых, лежащие друг под другом
DrawCrops - кресты рисует простые для совмещения
makeBoundingGuides - рисует гайды по границам выделенного
sizePagetoFIT - меняет размер страницы под размер объектов
rotateLeft01 - крутит объект на 0.1 градуса влево
rotateRight01 - вправо
selectSmallObjects - в выделенном ищет мелкие объекты (меньше заданного числа) и выделяет (для последующего удаления)
DecreaseOutline - уменьшает обводку выделенного (учитывает предыдущую и отнимает от нее. Если капслок включен то отнимает 0.03 мм)
IncreaseOutline - т.ж. увеличивает
InvertSelection - инвертирует выделение объектов
DrawGuideHorizontal - гайда гориз. по курсору мыши
DrawGuideVertical - гайда верт. по курсору мыши
outlineCornersRound - устанавливает свойства обводки на сглаженные углы
outlineBehind - устанавливает свойства обводки - под низ
fixBlendControlShapeAngle - испроавляет глюк на сложных блендах с крученим объектов
repeatLast - повтор последней команды заданное число раз
collectPages - собирает все страницы на одну, в длинный столбик
guidesToggleEdit - переключает редактируемость гайд (чтоб не хватались и не мешали)
ForEach - повторяет последний трансформ объекта для кучи выделенных индивидуально
pageNamesAsNumbers - убирает из названий страниц внизу экрана слово "Page" - оставляя только номера (удобнее смотреть когда много страниц)
OutlinesNonScaled - вырубает масштабирование обводки в свойствах всех выделенных объектов
textinfo - хватает весь текст на странице, даже тот что в группах и powerclip БЕЗ РАЗГРУППИРОВАНИЯ, удобно для последующего нажимания CtrlQ
DecreaseLineSpacing - расстояние между строками текста минус 1%
IncreaseLineSpacing - расстояние между строками текста плюс 1%
DecreaseLineSpacing10 - расстояние между строками текста минус 10%
IncreaseLineSpacing10 - расстояние между строками текста плюс 10%
setTextLangRussian - назначает тексту русский язык
colorizeTill2ndTab - образец макроса - красит другим цветом до первой/второй табуляции
RussianPropis - русская пропись числа
oldFormatText - для CorelX3 - вызывает старый родной диалоговый бокс форматирования текста
ZoomOutBack - вешается в CorelDrawX3 на F3 - и восстанавливает правильное поведение клавиши F3
ZoomPlus - масштаб экрана + 10%
ZoomMinus - масштаб экрана -- 10%
ZoomAboutObject - почти Shift-F2 только с полями
ScrollPageDown - вешаем на CtrlAltNumlock2 - прокручивает на один экран вниз
ScrollPageUp - вешаем на CtrlAltNumlock8 - прокручивает на один экран вверх
ScrollPageLeft - вешаем на CtrlAltNumlock4 - прокручивает на один экран влево
ScrollPageRight - вешаем на CtrlAltNumlock6 - прокручивает на один экран вправо
ScrollPageDownRight - вешаем на CtrlAltNumlock3 - прокручивает на один экран вниз и вправо
ScrollPageUpRight - вешаем на CtrlAltNumlock9 - прокручивает на один экран вверх и вправо
ScrollPageDownLeft - вешаем на CtrlAltNumlock1 - прокручивает на один экран вниз и влево
ScrollPageUpLeft - вешаем на CtrlAltNumlock7 - прокручивает на один экран вверх и влево
ShowHideToolbars - убирает/показывает менюшку/интсрументы - чтоб было больше на экране видно работы


Установка:
1. Копируем из архива "zzOsman.gms" в каталог c:\Program Files\Corel\CorelDRAW Graphics Suite 13\Draw\GMS\
для Корела 12 надо в почти такой же но с цифрой 12
если нету в "\draw" каталога гмс, то создаем его
2. перезапускаем корел, идет в настройки интерфейса "tools->options-customization-commands" по русски: опции-настройка-команды,
выбираем в верхнем выпадающем списке "макросы", тянем нужные макросы на любимое место в панели или вешаем клавишу

П.С. код открыт. Всем открытая дорога чтоб дописать чего душе угодно. Если что-то совсем не нужно можно удалить чтоб не мешали из кода - начиная sub заканчивая endSub (кроме boostStart/boostFinish

Загрузить:


zip zzOsman.zip Размер: 77.62 KB; Скаченно: 3525

Опубликовано: 2006/4/8 20:20

Edited by wOxxOm on 05/06/2006 17:30:02
Edited by wOxxOm on 19/02/2007 16:34:15
Edited by wOxxOm on 20/02/2007 17:23:55
« 1 (2) 3 »


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2008/7/11 13:55
Откуда Казань
Сообщений: 1
Offline
Спасибо! Надеюсь это то, что нужно!

Опубликовано: 2008/7/11 14:07


Re: Огромная коллекция макросов для Corel12/X3
Титан
Присоединился:
2005/7/5 16:34
Откуда Великий Новгород
Сообщений: 4233
Offline
wow!
спасибо

Опубликовано: 2008/7/11 15:08
_________________
ARE YOU PORN???
портфель http://www.free-lance.ru/...
жж http://nikcmyk.livejourna...


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2008/4/21 14:42
Сообщений: 12
Offline
спасибо огромное! а вот с икс4 совместимы эти штучки ??

вопрос снят, проверил всё пашет.

Опубликовано: 2008/7/13 20:31

Edited by T.Z. on 13/07/2008 21:38:58
_________________
мои работы:
http://tomyoda.deviantart...


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2007/11/2 19:47
Откуда Украина, Сумы
Сообщений: 20
Offline
О! пасибо громадное! Кста, если есть у кого нормальный Crop Markeк плиз поделитесь

Опубликовано: 2008/9/20 13:18


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2005/10/28 19:20
Откуда Saint-Petersburg
Сообщений: 7
Offline
Полезность налицо!

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


Re: Огромная коллекция макросов для Corel12/X3
Пользователь 1 уровня
Присоединился:
2007/7/27 14:11
Откуда Россия, г.Пермь
Сообщений: 533
Offline
? рот отпал... (нижняя его часть )
СПАСИБО!

Опубликовано: 2008/10/27 16:07
_________________
shibakin@dezigner.ru


Re: Огромная коллекция макросов для Corel12/X3
Пользователь 2 уровня
Присоединился:
2007/2/18 2:00
Откуда Полтава, Украина
Сообщений: 118
Offline
забрал в свой сарайчик. теперь бы по полочкам, по полочкам...
Автору спасибо

Опубликовано: 2008/10/28 11:14
_________________
Да чтоб мне всю жизнь в Paint-е градиенты рисовать


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2007/4/5 10:45
Откуда Московская обл.
Сообщений: 20
Offline
В Х5 перестали работать Scrollы. Кто знает как восстановить?

Опубликовано: 2011/3/28 12:47


Re: Огромная коллекция макросов для Corel12/X3
Новичок
Присоединился:
2007/4/5 10:45
Откуда Московская обл.
Сообщений: 20
Offline
Еще одна проблема до кучи. Убрал менюшку скриптом. А он потом отказывается понимать выделенную ниже строчку. До этого понимал. Как вылечить проблему, или хотя-бы вернуть панель инструиентов?

Sub ShowHideToolbars()
Dim cbar As Object, cB As Variant, bars() As String
Dim strSavedBars$
strSavedBars = GetSetting("ShowHideToolbars", "ToolbarState", "Toolbars"
If strSavedBars <> "" Then
For Each cB In Split(strSavedBars, ":"
CommandBars(cB).Visible = True
Next cB
SaveSetting "ShowHideToolbars", "ToolbarState", "Toolbars", ""
Else
nCount = CommandBars.Count: nSavedCount = 0
ReDim bars(0 To nCount - 1)
For n = 1 To nCount
With CommandBars(n)
If .Name <> "Status Bar" Then
If .Visible Then
.Visible = False
bars(nSavedCount) = .Name
nSavedCount = nSavedCount + 1
End If
End If
End With
Next n
ReDim Preserve bars(0 To nSavedCount - 1)
SaveSetting "ShowHideToolbars", "ToolbarState", "Toolbars", Join(bars, ":"
SendKeys "{ESC 10}"
End If
End Sub

Опубликовано: 2011/3/28 13:31


Re: Огромная коллекция макросов для Corel12/X3
Титан - модератор
Присоединился:
2006/4/8 19:42
Сообщений: 152
Offline
я давно обновил переключалку интерфейса - http://www.unleash.com/wo...

Опубликовано: 2011/3/28 13:45



« 1 (2) 3 »




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

      ПРИМЕР


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



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