Результаты поиска

  1. lev

    [CDR X5-X8] Инструкция VBA линза-инверсия не выполняется в файле

    Право на закрытие тем принадлежит модераторам. Им не требуются указания и разрешения на их закрытие. Даже то, что Вы являетесь ТопикСтартером (ТС) не означает того, что никому из участников форума не захочется когда-нибудь дополнить тему или задать дополнительные вопросы.
  2. lev

    [CDR X5-X8] как в VBA получить имя текущей папки

    Право на закрытие тем принадлежит модераторам. Им не требуются указания и разрешения на их закрытие. Даже то, что Вы являетесь ТопикСтартером (ТС) не означает того, что никому из участников форума не захочется когда-нибудь дополнить тему или задать дополнительные вопросы.
  3. lev

    [CDR X5-X8] Вопрос размера

    Одна тема - один вопрос До новых встреч.
  4. lev

    Про конфигурацию для корела

    восемнашка
  5. lev

    Логотип-герб

    Фантазии на тему. Звезда Альтаир, шестерёнка, колосок, речка, Алеф (перевёрнутая А, голова быка), корону забыл
  6. lev

    День российской полиграфии

    Судя по википедии работа началась "в лѣто 7070 первое априля въ 19" по старому стилю (Иван Фёдоров — Википедия), т.е., примерно, 6 апреля по новому, с чем я поздравляю российских полиграфистов, депутатов Государственной Думы, Федеральное агентство по печати и массовым коммуникациям и...
  7. lev

    [CDR X5-X8] пунктирная кривая из нескольких абрисов???

    Ну можно артистик брашами ещё поразвлекаться 1) отрезок 2,5 мм - дырка 5 мм - отрезок 2,5 мм, после брейкапарта можно сшить 2,5 мм отрезочки с помощью Join Curves 2) отрезок 5 мм - кружочек 5 мм, после брейка выловить кружочки через Find и удалить
  8. lev

    [CDR X5-X8] пунктирная кривая из нескольких абрисов???

    Можно макросом нарезать Sub Curve_divider() Dim sp As SubPath d = Val(InputBox("Insert distance", , 5)) Optimization = True ActiveDocument.Unit = cdrMillimeter ActiveDocument.BeginCommandGroup ("Divider") For Each sp In ActiveShape.Curve.SubPaths For i = sp.Length To 0 Step -d...
  9. lev

    [Acr 9 и ранее] Разбиение большого файла для печати

    В 6-й версии Adobe Acrobat Professional есть.
  10. lev

    [CDR X5-X8] пунктирная кривая из нескольких абрисов???

    обрис - проверочное слово: обрисовать?
  11. lev

    [CDR X5-X8] Горячие клавиши?

    Tools>Customization...>Commands>Shortcut Keys>View All...
  12. lev

    [CDR X5-X8] Как удалить сторону прямоугольника

    Удаляем самый правый из имеющихся вертикальных сегментов. Sub del_right_seg() Dim seg As Segment Dim n As Node x1 = -10000 i = -1 ActiveDocument.BeginCommandGroup "Delete right segment" For Each seg In ActiveShape.Curve.Segments If seg.StartNode.PositionX = seg.EndNode.PositionX...
  13. lev

    [CDR X5-X8] Вписать один объект в другой.

    Я не кистью делал. С кистями лень возиться.
  14. lev

    [CDR X5-X8] Как изменить размер документа?

    Скриптом. Мой основной рабочий инструмент - CorelDRAW 9. REM set page size to the size of an object.script for CorelDRAW 9 #define DRAWOBJECT "CorelDRAW.Automation.9" ON ERROR GOTO ErrHandler WITHOBJECT DRAWOBJECT .setreferencepoint 3 .ApplyOutline 0, 0, 0, 0, 0, 0, 0, 0, 0, FALSE, 0, 0...
  15. lev

    [CDR X5-X8] Как изменить размер документа?

    У меня 80% работ - всяческие развёртки, поэтому скриптом приведения размера страницы к выделению пользуюсь по нескольку раз на дню.
  16. lev

    [CDR X5-X8] Вписать один объект в другой.

    Штурман У Вас в файле сектор 116°, в него и вписал А уже чуть позже перечитал, что 120° надо, могу переделать, если надо.
  17. lev

    Штурман - Штурман

    надпись по дуге
  18. lev

    [CDR X4 и ранее] Инвертировать выбор объектов

    Я делаю мелкий зум и с Shift'ом обвожу всё. Можно и макросы поискать, но мне так проще.
  19. lev

    [CDR X4 и ранее] Нужен набор пантонов в кореле

    см. макро CreateColorSwatch из стандартной поставки
  20. lev

    [Acr XI] Одинаковый масштаб на всех страницах

    уже ничегой