[CDR X5-X8] создать контур плоттерной резки для массива одинаковых PowerClip

[dastin]

Всем привет!
Задача: создать контур плоттерной резки для массива одинаковых PowerClip
Решение:
- массив создается средствами макроса Tiler (Oberon)
- у оригинала массива Outline ставится в ноль
- копия массива выносится на новую страницу
- из каждого PowerClip извлекается и удаляется всё содержимое
- Outline копии ставится в Black Hairline
остаётся назначить циклом всем PowerClip Frame стиль No Frame ...
на форуме Оберона нашелся код для Х6

Sub RemovePowerclipFrame()
    Dim s As Shape
   
    For Each s In ActiveSelection.Shapes
        If Not s.PowerClip Is Nothing Then
            If s.PowerClip.Shapes.Count = 0 Then
                s.CreateSelection
                Application.FrameWork.Automation.Invoke "7b022531-3cd7-487f-a797-9d80179dc821"

            End If
        End If
    Next s
End Sub

однако, он делает свое дело ровно на один шаг и останавливается
эмпирическим путем было выявлено, что следующая модификация
две строки после invoke
MsgBox "XXXXX", vbOKOnly
SendKeys "{ESC}"
дает результат - но всё же один раз на кнопочку [ОК] в окне MsgBox приходится нажимать - далее всё идет как по маслу.
Вопрос:
Как ли этот "затык" убрать, чтобы цикл корректно отрабатывал без всяких дополнительных нажатий

 

[_MBK_]

Какой то совсем костыльный вариант у вас, ждать прямой работы от него весьма наивно. Тогда уж проще не на VBA а на AHK подобное запрограммить. А какой особый резон вынуждает к таким нетрадиционноориентированным решениям прибегать? Что именно из вышеперечисленного объектная модель не позволяет делать?

 

[dastin]

Результат выходит достаточно прямой. Но на ОК приходится разок нажать.
На чем-то прочем, кроме как на ВБА - практики нет.
Резон в том, что кучей эти фреймы не переводятся в кривые.Только по одному. И в ВБА нет такой функции, прямо ассоциированной с фреймом поверклипа. Тут стоит заметить - на Х5 - как только из поверклипа вынули содержимое - фрейм тут же перестаёт оным быть и становится кривой. В дальнейших версиях - фрейм продолжает оставаться фреймом и кроме как через этот invoke не достать.
Да ... плоттер это фрейм напрямую резать не желает.
Во всем остальном объектная модель справляется - есть готовый макрос, который предназначен для формирования контуров резки для массива одинаковых изделий

 

[_MBK_]

А! Вам всего-то навсего надобно получить шейп маски?
Да коротко и яcно, здорово и вечно:

Set sCurve = ActiveLayer.CreateCurve(sh.DisplayCurve)
 sh.Delete

 

[dastin]

а разве фрейм поверклипа - кривая? Точнее он может быть и кривой, но все равно он фрейм. Вернуть его "к свету" можно только по правой клавише - Frame Type -> None. Или invoke

 

[_MBK_]

а разве фрейм поверклипа - кривая?

А что это, по вашему? Вы мой код, вообще, поняли, запускали?

 

[dastin]

не дают ... пытаюсь ... говорят работать надо ...
Да работает. С одним и с кучей скомбинированных в одно - фрейм заменяется кривой.
Будем причесывать в цикл ...
Спасибо...

***
где для плюса надо нажать?

 

[Jeine]

где для плюса надо нажать?

Советы и рекомендации новичкам на форуме

 

[dastin]

Советы и рекомендации новичкам на форуме

ага... и вам спасибо

 

[_MBK_]

Рынок искал новые подходы и ниши: мне попадались презервативы "Occam's Razor" с портретом средневекового схоласта и слоганом "Не следует умножать сущности без необходимости".