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

Опен тайп в корел постепенно внедряли, от версии к версии умения корела растут.

хотел предложить вам добавить в изначальный код Dim c As Shape Set c = sr.Combine c.Curve.SubPaths(1).StartNode.ConnectWith c.Curve.SubPaths(2).EndNode c.Curve.Closed = True но, раз справились сами, то и нормально

Допустим, у меня разрыв между точками #2 и #3 в кривой и я хочу соединить из отрезком: Sub ConnectNodes() ActiveShape.Curve.Nodes(2).ConnectWith ActiveShape.Curve.Nodes(3) End Sub В Вашем случае подставьте нужные вам точки.

Можно накрыть памятник куском однотонной материи и попытаться "проявить" надпись углём, угольной пылью, если ткань светлая или мелом если тёмная. Как в детстве монетки тыльной стороной карандаша на листике делали.

В режиме редактирования кривых выделяем углы развертки, жмём кнопку разрыва кривой. Жмём Ctrl+K и разбиваем развёртку на отдельные кривые. Между верхней и нижней строим бленд из одного объекта. Если сразу правильно не вышло, меняем направление одной из кривых. Опять Ctrl+K, чтобы разбить бленд...

С оболочкой проблема воспроизвелась, но я для своих конических разверток пользуюсь альтернативным вариантом. Поделюсь уж с "конкурентом" :) Создаем блендом среднюю линию развёртки. Делаем из трансформируемого объекта кисть и применяем к этой линии. Устанавливаем её ширину равной высоте...

Это из Хармса.

Чтобы разобраться с проблемой надо смочь её воспроизвести. Делал опыты с VAG Rounded Next - у меня всё относительно ровненько как и у @Jeine. Давно бы кинули исходник до деформации.

Чтобы соблюсти векторность, градиенты в вашем примере должны стать из линейных коническими. И вроде бы задача должна быть при должном терпении решаемой. Но инструмент "оболочка" (envelope) не разбирает какую форму оболочки ему подсунули. Допустим это флажок и градиент должен стать флагообразным...

Как вариант - экспорт в 1-2 версии PS и реимпорт, при этом градиент разобьется на мульён полосочек. Загнётся менее точно чем битмап, но лучше чем в исходном посте.

PDF тут не при чём Дабл клик в новых версиях корела создаёт прямоугольник со смещением. В Х7 нормально. Перепозиционируйте его по нижнему левому углу в нули. Ну или центр в 105 и 148.5.

Похоже, что используется HatchFill от CorelDesigner. В CorelDRAW нет доступа к интерфейсу их настроек, но импортировать их из CorelDesigner можно, как и печатать экспортировать и т.п. Так же есть доступ к ним и из VBA. Вы можете перебрать объекты с такой заливкой макросом и выставить им...

Точного английского имени оригинала не знал

Не он, но несколько похож на Shock PS В интернетах проще находится Stacatto 555 BT

А так бывает что: var ai = new ActiveXObject("Illustrator.Application"); работает, а Set ai=CreateObject("Illustrator.Application") только через два года начинает функционировать? Дело было на PC? На маке, по идее, AppleScript должен был раньше появиться.

Ну, в общем, баг понятен. При программном вынимании объекта/объектов из группы с помощью MoveToLayer или OrderFrontOf корел не отслеживает качество самой группы и допускает появление групп с одним или нулём объектов, а при Undo начинает сходить с ума. Поэтому будем работать через Group-Ungroup...

Ну, вот на пробу, очередной вариант через OrderFrontOf с привинченным поиском самой верхней группы: Sub ex() Set s = ActiveSelectionRange(1).ParentGroup While Not s.ParentGroup Is Nothing Set s = s.ParentGroup Wend ActiveSelectionRange.OrderFrontOf s End Sub Забавные результаты в...

Старая и новая тема объединены, читайте с начала

Да, примерно с 2013 года с 8.5 версии ТС (или раньше?), как и написал @Андрей Викторов.

Дубликатов может быть поболее одного. Для их выделения я году эдак в 2007 написал утилитку.