[CDR 2017-2020] Макрос для поиска одинаковых объектов по размеру

[fjord]

Здравствуйте, есть задача обработки чертежей (PDF сделанных, вероятно, в какой-то архитектурной программе) и импортированных в CorelDraw для дальнейшего использования в рекламе. Для этого их надо очистить от множества мелких штрихов, коротких линий.

Вопрос: существует ли макрос для CorelDraw 2020, который может находить и выделять все линии исходя из их длины?

Стандартный поиск Find and Replace / From selection выделяет все линии данного типа, основываясь на цвете, толщине и количестве узлов, а вот параметра "длина" там нет.

 

[lmn1]

Посмотрите "Панель макросов от Деревяшкина". Здесь на форуме.
Или как вариант: открыть pdf в Иллюстраторе, а там - плагин Astute FindReplace.

 

[fjord]

Посмотрите "Панель макросов от Деревяшкина". Здесь на форуме.
Или как вариант: открыть pdf в Иллюстраторе, а там - плагин Astute FindReplace.

Cпасибо за ответ. Быстро просмотрев описание функций "Панель макросов от Деревяшкина" не удалось найти подобной функции, но возможно она как-то по-другому обозначена/названа.

А пока удалось найти макрос "SelectSame", там есть опция Size (Select all similar), макрос даже запустился в версии 2020, но вылетает с ошибкой и невозможно понять, подходит макрос под эту задачу или нет. К сожалению, в макросах (да и в "программировании" вообще) ничего не понимаю, поэтому описание ошибки (приложен скриншот) для меня тёмный лес...

 

[_MBK_]

Попробуйте убрать фрагмент кода, на который ругается (напротив него справа стоит текст комментария)

 

[dastin]

множества мелких штрихов, коротких линий

ЛайфХак от 'Shelby Moore'
Ищет объекты - в т.ч. в группах ( но не в PoweClip) размером 1,5смх15,5см

Спойлер: КОД

Sub DeleteSmallShapes()
    Dim srSelection As ShapeRange, s As Shape
 
    'Break apart the active selection
    Set srSelection = ActiveSelectionRange.BreakApartEx
 
    'Delete all shapes that are smaller than 1.5cm
    srSelection.Shapes.FindShapes(Query:="@width < {1.5cm} and @height < {1.5cm}").Delete
 
    'Combine back to a single shape
    Set s = srSelection.Combine
    'Select the combined shape
    s.CreateSelection
End Sub

Размер - на ваше усмотрение - корректируйте

как варианты - поиск по площади или только по длине

Спойлер: КОД

'Delete by Area
srSelection.Shapes.FindShapes(Query:="@com.DisplayCurve.Area < {1cm^0}").Delete

'Delete by Length
srSelection.Shapes.FindShapes(Query:="@com.DisplayCurve.Length < {1.5cm^0}").Delete

 

[dastin]

фрагмент кода

CorelScript там ... а он уже эмигрировал

 

[_MBK_]

эDelete

 

[dastin]

ЛЯ запала .. поправил

 

[fjord]

Спасибо всем ответившим, будем экспериментировать

 

[lmn1]

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

 

[lmn1]

Попробовал панель Деревяшкина. Ищет!
Голубая кривая - образец размера. Будем искать кривые больше или меньше этого образца.
Выделяем все объекты, среди которых ищем. Потом с Шифтом выделяем голубой объект-образец.
В панели выбираем "больше" или "меньще" и затем - "выделить".
Для наглядности после поиска покрасил найденные объекты. Те. что больше образца - в красный, те, что меньше - в желтый.

 

[fjord]

Попробовал панель Деревяшкина. Ищет!
Голубая кривая - образец размера. Будем искать кривые больше или меньше этого образца.
Выделяем все объекты, среди которых ищем. Потом с Шифтом выделяем голубой объект-образец.
В панели выбираем "больше" или "меньще" и затем - "выделить".
Для наглядности после поиска покрасил найденные объекты. Те. что больше образца - в красный, те, что меньше - в желтый.

Посмотреть вложение 160848

Cупер, спасибо! Надо разобраться как приобрести эту панель - там вроде только через обращение к автору по e-mail

 

[lmn1]

Тестовую версию автор раздает бесплатно. Для ваших целей хватит

Докер от Деревяшкина

Тестовая версия докера.

forum.rudtp.ru

 

[fjord]

Ещё удалось найти макрос "Jeff's select Same 3" на Macromonster, скачали, он там не в виде файла GMS а в виде EXE - скачали версию JH_SelectSame_2020.exe , запустили, Windows 11 гордо объявил что предотвратил запуск потенциально опасной программы, но там есть опция в пункте "Детали", "Всё равно запустить". Запустили, поставили все галочки, пошла установка, "Установка прошла успешно" и... нигде этого макроса не появилось Искали и в самом CorelDraw, и в файловом менеджере, и просто через поиск по всему компьютеру Пробовали несколько раз и каждый раз говорит что установился, но на самом деле нет

 

[lmn1]

Распакуйте JH_SelectSame_2020.exe. Там будет JH_SelectSame.gms.
Закиньте его в c:\Program Files\Corel\CorelDRAW Graphics Suite 20**\Draw\GMS\
Перегрузите Корел и ищите JH_SelectSame в панели макросов.
Но этот макрос ищет только объекты того же размера, но не меньшего.

 

[fjord]

Распакуйте JH_SelectSame_2020.exe. Там будет JH_SelectSame.gms.
Закиньте его в c:\Program Files\Corel\CorelDRAW Graphics Suite 20**\Draw\GMS\
Перегрузите Корел и ищите JH_SelectSame в панели макросов.
Но этот макрос ищет только объекты того же размера, но не меньшего.

У Вас CorelDraw 2020 и макрос работает? Распаковали, получился GMS весом 84 Кб, поместили в папку, запустили, открылся НО выдаёт ошибку:

 

[lmn1]

Корел 2022. Макрос работает. Вот этот. Он не из JH_SelectSame_2020.exe, а из JH_SelectSame_ver3_X5-2019.exe. Но все равно работает.

 

[lmn1]

А вот gms из JH_SelectSame_2020.exe у меня тоже не работает с такой же ошибкой.

 

[DukereD]

У меня нет сейчас возможности проверить панель от Деревяшкина. Но скриншот выглядит похоже на то, что вам требуется.
Посмотреть вложение 160842

ой какая старая версия )
я тут на днях обновил. там крутой сканер.

Cупер, спасибо! Надо разобраться как приобрести эту панель - там вроде только через обращение к автору по e-mail

ну и да. по размеру образа ищет больше меньше или равно.
так же есть функция удаления (выбора) дублей объекта с учетом "зазора" т.е. дубли плюс минус могут отличаться или совсем не отличаться. и могут как накладываться друг на друга так и быть в разных местах. там много вариантов действия

тестовую версию можно скачать тут на форуме в ресурсах.

 

[fjord]

Корел 2022. Макрос работает. Вот этот. Он не из JH_SelectSame_2020.exe, а из JH_SelectSame_ver3_X5-2019.exe. Но все равно работает.

Работает! Огромнейшее Вам спасибо!