[CDR 2025] Поиск и выбор похожих элементов

[NemoSUN]

Возникла необходимость выделить треугольники и точки после импорта чертежа с AutoCAD. Нашёл на форуме в истории скрипт SelectSame.gms. Но при запуске поиска появляется ошибка :


Есть ли работающие скрипты под 16 или 25 или другие методы.

 

[_MBK_]

Закомментируйте две строки начиная с выделенной

 

[eugeny]

CorelScript это старый class из 2013 года.
судя по коду, он разрешает вам выделить объекты на всех слоях страницы.
можете вместо всего блока IF... Endif написать
set shpsToTest =ActivePage.SelectableShapes.All

 

[DukereD]

что интересно, то по запросу "SelectSame.gms" находит ветку с точно такой же проблемой ))

ну и не упущу возможность...

 

[zollinger]

Закомментируйте две строки начиная с выделенной

3, для порядка

 

[NemoSUN]

Закомментируйте две строки начиная с выделенной

Удалил.
вместо всего блока IF... Endif написал
set shpsToTest =ActivePage.SelectableShapes.All
Далее ругается на "CorelScript.RedrawScreen".

Но! В Corel X6(x64) этот макрос работает )

 

[zollinger]

Для начала закомментить все строки, где встречается CorelScript. С большой долей вероятности будет работать. Если не заработает, посмотреть аналоги этих функций из современных версий

 

[~RA~]

Мегамозг предложил

Option Explicit

Sub FixedMacro()
    Dim oScript As Object
    
    If AcrossLayers Then
        ' Попытка использовать CorelScript (совместимость)
        On Error Resume Next
        Set oScript = Application.CorelScript
        If Not oScript Is Nothing Then
            oScript.SetMultiLayer True
        Else
            ' Современный подход для 2025
            ActiveDocument.Selection.FindShapes.ReplaceAllAcrossLayers = True
        End If
        On Error GoTo 0
    End If
    
    ' Продолжение вашего кода...
End Sub

 

[dastin]

Далее ругается на "CorelScript.RedrawScreen".

заменить на Refresh

 

[dastin]

... и вообще - зачем ковырять засохшее ... нет чтобы скачать обновленный макрос

Works with versions X5/X6/X7/X8/2017/2018/2019/2020/2021+
If you are having trouble, place the loose JH_SelectSame_3_international.gms file into your GMS folder using these instructions and use that version.

 

[zollinger]

Jeff select same не хватает возможности указать допуск, по размеру, например. Если нужно выбрать "маленькие объекты" и их много, то некоторая дополнительная головная боль. Но лучше чем ничего

 

[dastin]

Если нужно выбрать "маленькие объекты" и их много

может быть "наступить на грабли"

 

[NemoSUN]

Мегамозг предложил

Option Explicit

Sub FixedMacro()
    Dim oScript As Object
   
    If AcrossLayers Then
        ' Попытка использовать CorelScript (совместимость)
        On Error Resume Next
        Set oScript = Application.CorelScript
        If Not oScript Is Nothing Then
            oScript.SetMultiLayer True
        Else
            ' Современный подход для 2025
            ActiveDocument.Selection.FindShapes.ReplaceAllAcrossLayers = True
        End If
        On Error GoTo 0
    End If
   
    ' Продолжение вашего кода...
End Sub

Вставил код. Вот, что получилось:


Вот, что пишет.

 

[zollinger]

может быть "наступить на грабли"

Прекрасно. Скажи, друг, а почему ты не предложил эту штуку сразу вот Тсэу? Кажется, ему бы это сильно помогло

 

[dastin]

а почему

Правильно заданный вопрос был завуалирован просьбой об исправлении ошибки.
Хотя, человек вроде бы и искал.

 

[NemoSUN]

... и вообще - зачем ковырять засохшее ... нет чтобы скачать обновленный макрос

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

О да! В 25 версии работает ) Но установщики (JH_SelectSame_2020.exe и JH_SelectSame_ver3_X5-2019.exe) не видят 25 версию. Только 16. Но и ладно. Главное, что макрос работает.

 

[dastin]

Но установщики (JH_SelectSame_2020.exe и JH_SelectSame_ver3_X5-2019.exe) не видят 25 версию. Только 16.

что-то не верится про только 16 ... циферки там не зря. Но, ладно. Это пустяки.

 

[zollinger]

О да! В 25 версии работает ) Но установщики (JH_SelectSame_2020.exe и JH_SelectSame_ver3_X5-2019.exe) не видят 25 версию. Только 16. Но и ладно. Главное, что макрос работает.

он не ставится через установщик, я тоже попробовал, и он развалился, выдав странную ошибку. Там они и сами рекомендуют не установщиком пользоваться, а скопировать JH_SelectSame_3_international.gms в C:\Program Files\Corel\CorelDRAW Graphics Suite 2020\Draw\GMS. По крайней мере, в 2020 после этого всё отлично работает

 

[zollinger]

Правильно заданный вопрос был завуалирован просьбой об исправлении ошибки.
Хотя, человек вроде бы и искал.

В любом случае, огонь! Забрал, так, на всякий случай

 

[mnemonix]

зачем ковырять

На позапрошлой неделе его поставил (2025) - работает, радует)