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

Я древним Seps2Comp'ом сливал под не менее древним 6-м Акробатом.

У меня как-то была задача: есть файл с котором присутствовала кучкой растровых и градиентных объектов, со спотом как бы одного цвета, но половина была Coated, половина Uncoated, может ещё вариации были, не помню уже. Время поджимало, думать было лень, после пары неудачных фантазий на тему...

Вы с ума сошли? Я с ума сошел? Лыжи не едут? Из темы устраняюсь.

И чего у меня не так? Берём случайный объект из меняемых, меняем на первый из набора для подстановки, объект удаляется берём случайным образом следующий объект, меняем на второй при исчерпании объектов для подстановки, начинаем брать их заново делаем, пока есть объекты для замены.

Дык убирать объект из набора/списка для замен после его обработки. Тем более, он физически удаляется даже в текущем коде.

Можно чуть развернуть логику. Сейчас меняются все объекты на случайный из набора, а можно менять случайный объект на очередной из набора. Т.е. будут задействованы все объекты для замены. Надеюсь не путанно написал.

Маловато будет: Размер верхнего подворота, днища, склейки Тип днища - стандартное, разрезное Боковина - цельная, разрезная Склейка - справа, слева Ручки - верёвочные, прорубная, без ручек или клеенные - влияет на дизайн, присутствие верхнего подворота Склейка пакета из одного, двух листов и т.д...

попробуйте в функции GetNearestShape увеличить начальное значение t или вместо min_n = 0 сделать min_n = 1

Какая ошибка? У меня на Х7 работает. PosLine - забыл удалить вызов функции, рисовал тестовую линию хода режущей головки для проверки результата работы

Берём за начальный объект самый нижний (ну или верхний, или нижний левый, сами код поправите), находим ближайший к нему, отправляем назад, обработанный шейп исключаем из перебора. Коммивояжеры не нужны. Достаточно примитива. За координату объекта берём координату его первой точки (для большей...

Для минимального перемещения у вас было в исходном коде - искались расстояния между объектами. Но в описании вы захотели расставить как буквы в книжке. т.е. будет происходить возврат c конца строки к началу второй, что не способствует минимизации хода головки.

Сортируем по верхнему левому углу Sub PosSortOrder() ActiveDocument.BeginCommandGroup "sort by pos" Set sr = ActiveLayer.Shapes.All sr.Sort "@shape1.Top * 100 - @shape1.Left > @shape2.Top * 100 - @shape2.Left" For Each s In sr.Shapes s.OrderToBack Next s...

Вариант - сдублировать слой, повернуть под углом, исказить размер, отзеркалить и т.п. и так же как описано выше залить слой. Т.е. получить пару-тройку слоёв. На месте ненравящихся элементов тереть дырку до нижележащего слоя.

Увеличиваем размер холста (Image > Canvas size) Выделям белое поле Удаляем с опцией Content aware Повторов куча, но нерегулярно, без единого паттерна боремся с ненравящимися повторами вручную

Всё придумано до нас

одна тема - один вопрос

Накой столько скобок? Зачем хранить отловленные пробелы и "крестики"? (\d)\s*[xх×ХX]\s*(\d) менять на $1~<×~<$2

Откройте Corel Font Manager и организуйте коллекции в нём

Sub page_dist_size() ActiveDocument.BeginCommandGroup "Page Dist & Size Dimensions" If ActiveSelection.Shapes.Count = 0 Then Exit Sub ActiveDocument.Unit = cdrMillimeter dist = 12 txt_size = 24 Dim p As Page Set p = ActivePage Set s = ActiveSelection.Shapes.All Set pt =...

Я вчерась погуглил Adobe ShoeBox. Шрифтом они пользуются. Шрифт, как ТС и писал состоит из двух частей. Растровая png картинка и xml описание. Программа умеет добавлять кернинг, но вот пользуются ли этой функцией у ТС не уверен, раз приходится править верстку. Могу придумать другие варианты...