Разделение замкнутых от незамкнутых объектов

DAZ / 01.04.2011, 20:46/00:41
Форум: 
Макросы и скрипты

Рисую кистью Artistic Media tool > Preset. Разбиваю полученные мазки Ctrl+K. Получаю объекты + центральные линии этих объектов. Можно как нибудь автоматизировать поиск и удаление этих "прожилок"? Это можно было сделать простым Find Objects..., но проблема в том что свойства линий и объектов одинаковые, т.е. они полностью эдентичны, кроме того что линии не замкнуты...

Sancho / 01.04.2011, 21:23

Где то я уже об этом писал ))) Ну имеется виду макрос, даже Ctrl+K не нужно делать, всё автоматом. Теперь осталось только вспомнить :D

DAZ / 01.04.2011, 21:35

Sancho было бы здорово если бы был такой макрос и он был бы бесплатный :) ...жалко протраченного времени на выковыривание этих прожилок ))

Sancho / 01.04.2011, 22:52/22:53

DAZ, нашёл ))

Sub DeArtBrush()
    ActiveDocument.BeginCommandGroup "DeArtBrush"
    On Error Resume Next
    Dim sr As ShapeRange, s As Shape, sr1 As ShapeRange
    Set sr = ActiveSelectionRange
    For Each s In sr
      If s.Type = cdrArtisticMediaGroupShape Then
        Set sr1 = s.GetLinkedShapes(cdrLinkAllConnections)
        s.Separate
        sr1(1).Delete
        sr1.Remove 1
      End If
    Next s
    ActiveDocument.EndCommandGroup
End Sub

Просто выдели кучу объектов с кистями и запускай макрос.

DAZ / 01.04.2011, 22:57

Sancho
СПАСИБО ОГРОМНЕЙШЕЕ!!!
ВСЁ ПОЛУЧИЛОСЬ )))

Sancho / 01.04.2011, 23:21

DAZ, всегда велкам :)

Algis / 08.04.2011, 17:24

От спасибо! Как мне токой штуки не хватало :)