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

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

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

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

попробуйте в функции 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 описание. Программа умеет добавлять кернинг, но вот пользуются ли этой функцией у ТС не уверен, раз приходится править верстку. Могу придумать другие варианты...

Вероятно ТС не пользуется кернингом шрифта, поэтому они после каждой его перегенерации заново сдвигают буковки в интерфейсе.

А чем не устраивает CreateBoundary?

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

Примерно так: Sub replace_txt() Dim s As Shape ActiveDocument.BeginCommandGroup "rep" from$ = InputBox("Чё меняем?") tto$ = InputBox("На чё меняем?") For Each s In ActiveLayer.Shapes.FindShapes(, cdrTextShape) s.Text.Story = rep(s.Text.Story, from, tto) Next s...