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

  1. lev

    [CDR X4 и ранее] Получить Shape, расположенный под/над другим Shape (без перебора)

  2. lev

    [CDR X4 и ранее] Получить Shape, расположенный под/над другим Shape (без перебора)

    ActivePage.SelectShapesFromRectangle CorelScript.SelectObjectsInRect
  3. lev

    [CDR 2017-2023] Размеры фигур.

    Да и вручную ничего сложного 1) рисуем вспомогательный прямоугольник с длиной стороны равной желаемой 2) прилепляем к нему многоугольник, который будем подгонять 3) Дополнительным кликом по многоугольнику переходим в режим вращения 4) Переносим центр вращения в точку относительно которой будем...
    • lev
    • Сообщение #29
    • Раздел: CorelDRAW
  4. lev

    [CDR 2017-2023] Размеры фигур.

    Так попробуйте (предполагается, что у Вас равносторонний многоугольник, без искажений): Sub Polyside() ActiveDocument.Unit = cdrMillimeter ActiveDocument.ReferencePoint = cdrCenter Set s = ActiveShape If s.Type = cdrPolygonShape Then sl = s.DisplayCurve.Length / s.Polygon.Sides...
    • lev
    • Сообщение #14
    • Раздел: CorelDRAW
  5. lev

    [ID CC-CC2023] Некорректно копируется в вектор

    Уже второй пост на неделе с заголовком "Не корректно". У нас месячник борьбы с "не"?
  6. lev

    Snagit (программа для создания скриншотов)

    От оно как...
  7. lev

    каталог с вырубными закладками

    Если ступеньки окрашены, то стоит заранее обратить внимание на их дизайн. Левый вариант гораздо сложнее высечь (втяжка полос - creeping, точность оборудования и т.п.)
  8. lev

    краситель [Segoe UI]

    угу, Segoe полностью совпал
  9. lev

    краситель [Segoe UI]

    Malgun Gothic только кратка у меня не совпадает
  10. lev

    Свинина [Days]

    Можно сделать "Топ-10 разыскиваемых на нашем форуме", вся статистика под рукой. И в шапку её с картинками-примерами. Или, если лень, поместить в шапку тему "Это ж Лобстер" с одной картинкой.
  11. lev

    Когда тебя оклеветали. Обелять ли своё имя?

    Заказчиков кучка
  12. lev

    Когда тебя оклеветали. Обелять ли своё имя?

    А телефон-то Ваш у заказчиков откуда? Фирма говорит, что вы поудаляли файлы и выдаёт телефон злодея? Странно как-то.
  13. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    Перевод строки оказался не при чём (регулярка тем более). Видимо строки вычисляются при первом вызове For Each. При замене в живом тексте длина текста меняется и указатель на начало следующей строки попадает не туда. Будем пересобирать текст в отдельную переменную, и уже потом менять весь текст...
  14. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    добавьте строку Replace s.Text.Story, vbCr, vbCrLf перед For Each l In s.Text.Story.Lines а то перевод каретки не воспринимается как перевод строки, и в текстовки строк попадают произвольные нарезки, в т.ч. и бьющие искомый паттерн на части В будущем вы можете попасть и на другую проблемку: в...
  15. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    И где в этом образце class="", которые первый макрос не отлавливает больше двух раз? Посетите страничку BB-коды, чтобы научиться убирать простыни под спойлер
  16. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    Тут уже желательно регулярки подключать Sub cl_main() ActiveDocument.BeginCommandGroup "Mainer" Set re = CreateObject("VBScript.RegExp") re.Pattern = "class="".*?""" Dim s As Shape Dim l As TextRange Dim doreplace As Boolean doreplace = False For Each s In...
  17. lev

    [CDR X5-X8] Макрос замены строки текста или удаления строки.

    Sub class_main() Dim s As Shape Dim l As TextRange Dim doreplace As Boolean doreplace = False For Each s In ActiveLayer.Shapes.FindShapes(Type:=cdrTextShape) For Each l In s.Text.Story.Lines If doreplace Then l.Text = Replace(l.Text, "class=""""", "class=""main""") If...
  18. lev

    Цифровое телевидение или что купить чтоб снова стало хорошо (приставка DVB-T2)?

    Купил приставку DVB-T2 к древнему телевизору на даче, подключил тв на антенный выход приставки и раз в пару месяцев пытался на разных тв выловить на ДМВ результат работы приставки, только года через два прочёл в инструкции, что никакого ДМВ на выходе приставки, как на видео или игрушках нету...
  19. lev

    Как должно выглядеть lean-тестирование сайта?

    Так?: <html> <head> <meta charset="win-1251"> <title>lean-тестирование сайта</title> </head> <body> <form id="data"> </form> <fieldset form="data"> <p>Вам удобно использовать сайт?</p> <p><input type="radio" name="answer" value="1" checked> Да</p> <p><input type="radio"...
  20. lev

    Макет стаканчиков для кофе

    Новый плагин от boxshot - Conical Label Illustrator Plugin - easily wrap your artwork for conical surfaces
Верх Низ
Назад