[CDR 2017-2021] Поиск незамкнутых кривых в CD 2017

[shakhtar]

Есть, какая нибудь возможность, поиска незамкнутых кривых в Corel 2017 ,штатная или с помощью макроса ? Очень нужная для меня вещь.
На предыдущих версиях я пользовался набором макросов zzOsman, там была такая возможность . Но в 2017 этот макрос никак не работает.

 

[_MBK_]

Sub SelectUnclosed()
 Dim shRange As ShapeRange
 Dim sh As Shape
 
 Set shRange = ActiveSelectionRange
 If shRange.Count = 0 Then
    MsgBox "There is no selected shapes in the current document!"
    Exit Sub
 End If
 For Each sh In shRange
  If sh.DisplayCurve.Closed Then sh.RemoveFromSelection
 Next sh


End Sub

 

[shakhtar]

Ну я понял что это код макроса. А куда его вставлять то ?
В виде файла с разрешением gms есть ?

 

[_MBK_]

В виде файла с разрешением gms есть ?

Наверное вы имели в виду "с расширением"?
А что мешает самому залезть в редактор макросов и вставить код?

 

[shakhtar]

Наверное вы имели в виду "с расширением"?

ну да , запарился

А что мешает самому залезть в редактор макросов и вставить код?

Если б разбирался - не переспрашивал бы.
Вы под редактором имеете ввиду Визуал бэйсик фор апликэйшнс ?
Я в нем полазил - не понял как макросы новые создавать или редактировать.

 

[lev]

 

[shakhtar]

Всем спасибо, но поскольку не получается создать макрос , переформулирую вопрос :
у кого то есть данный макрос в виде файла gms ?

 

[_MBK_]

Давайте, все таки, научим вас самому подключать код без gms
Ибо для создания gms необходимо наличие актуальной версии, а код универсален
Что именно не получается?

 

[shakhtar]

Давайте, все таки, научим вас самому подключать код без gms
Ибо для создания gms необходимо наличие актуальной версии, а код универсален
Что именно не получается?

У меня просто нет времени изучать VBA программирование из за одного макроса.
Если так просто подключить, напишите алгоритм действий - что открывать ,куда вводить - попробую.

 

[_MBK_]

алгоритм действий - что открывать ,куда вводить - попробую.

Ну вот доходчиво и по русски описано, Лев вам даже картинку прилепил куда жать
Что именно у васне получается из вышеописанного? В редактор вошли хотя бы? А то, может, в вашей версии макросы вообще отключены, такое бывает

 

[dastin]

У меня просто нет времени изучать VBA

так и не надо - картинку нужно просто разлядеть - Macro Manager - Alt+Shift+F11 - пометить Visual Basic for Application - далее New - New Macro Project - дать название - Пум-пум-пурум-пум.gms. Потом - Alt+F11 - найти Пум-пум-пурум-пум.gms - И вставить код. И сохранить. И пользоваться, говоря спасибо @_MBK_

 

[dastin]

zzOsman tools это же то, из чего wx_Tools появилось? Чего-то там такого нету ... может добавить? zzOsman tools где-то были ...

 

[shakhtar]

Получилось , я просто не понял что Macros Manager это Диспетчер макросов в самом Кореле .
Вопрос в догонку : нельзя сделать чтоб он выделял незамкнутые в группе ? В одной из версий zzOsman тоже такой был, но я его что то не найду .

 

[dastin]

В одной из версий zzOsman тоже такой был, но я его что то не найду .

вот и я не найду ... даже не то, что в группе, а вовсе такого функционала макроса в имеющемся zzOsman нету ...
точно zzOsman??? Может как иначе называлось?

 

[_MBK_]

Вопрос в догонку : нельзя сделать чтоб он выделял незамкнутые в группе ?

Ну можно наверное. Тот что я прислал - самое простое что можно сделать, он даже не выделяет а снимает выделение с замкнутых

 

[shakhtar]

вот и я не найду ... даже не то, что в группе, а вовсе такого функционала макроса в имеющемся zzOsman нету ...
точно zzOsman??? Может как иначе называлось?

В версии 19.02 .2007 есть ,называется zzOsman.Curves.selectOpenCurves
Но опять таки в 2017 он не рабочий. В 12й версии работает.

 

[shakhtar]

Ну можно наверное. Тот что я прислал - самое простое что можно сделать, он даже не выделяет а снимает выделение с замкнутых

А как ?

 

[dastin]

В версии 19.02 .2007 есть

видимо у вас нечто другое чем тут
выкладывайте, дружище, ваш экземпляр сюда
зархивируйте и выкладывайте - ежели, конечно, вы не против ...
проведем вивисекцию и получите нового франкештейна - zzOsman_wx_Tools - для вашего CD2017
?

 

[_MBK_]

Пожалуй, да, правильнее и полезнее для общества будет старый адаптировать под 2017
Я надеюсь, авторских проблем не возникнет же?

 

[shakhtar]

видимо у вас нечто другое чем тут
выкладывайте, дружище, ваш экземпляр сюда
зархивируйте и выкладывайте - ежели, конечно, вы не против ...
проведем вивисекцию и получите нового франкештейна - zzOsman_wx_Tools - для вашего CD2017
?

zzosman там две версии.
Так а что вы хотите ? объединить эти два сборника, zz и wx и отредактировать для 2017 версии ?