Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

Makra - automatyzacja obrysów

c0m4r - 13 Listopad 2023, 14:31
Temat postu: automatyzacja obrysów
Cześć,
Czy jest ktoś w stanie mi podpowiedzieć czy jestem w stanie przyśpieszyć/zautomatyzować makrem swoją pracę w Corelu?
Szykuje pliki do cnc i wszystkie elementy każdego projektu to zamknięte łamane. Każdy taki obiekt muszę :
-powiększyć po obrysie o stałą wartość,
-wyodorębnić,
-skasować stary obiekt żeby został nowy, powiększony.

Potem często wybranym obiektom muszę dorobić obrys wewnętrzny, wyodrębnić, zaokrąglić rogi i zrobić część wspólną z innym obiektem. Te czynności robię w każdym projekcie, w którym mam po 15-30 elementów-zamknietych łamanych.
Zastanawiam sie czy da się zrobić jakieś makra na poszczególne moje ruchy np wszystkie elementy jesli są zamknięte to dodaj obrys, wyodrębnij i skasuj stary obiekt ?

Martin Nez - 17 Listopad 2023, 06:47

Cześć,
da się to zrobić makrem. ;-)

Pozdr,
MN

c0m4r - 20 Listopad 2023, 11:27

Dzięki za info, to pocieszające :)
Teraz pytanie czy podpowiesz jak zrobić makro ew czy może odpłatnie mógłbyś je przygotować ?

krof - 5 Grudzień 2023, 10:30

Cześć
Mogę popróbować to rozwiązać musisz podesłać jakiś przykładowy plik
Pozdrawiam

Martin Nez - 2 Styczeń 2024, 21:05

Można spróbować tak:
Kod:
Sub c0m4r()
    ActiveDocument.Unit = cdrMillimeter
    Dim Obrys As Effect
    Dim dblWartoscObrysu As Double
    '=========
    dblWartoscObrysu = 0.1 ' tutaj ustawiac wartosc
    '=========
    For Each s In ActiveSelection.Shapes
        s.CreateSelection
        Set Obrys = ActiveShape.CreateContour(cdrContourOutside, dblWartoscObrysu, 1, , , , , 0, 0, cdrContourRoundCap, cdrContourCornerRound, 15#)
        Obrys.Separate
        ActiveShape.Delete
    Next
End Sub

Pozdr,
MN


Powered by phpBB modified by Przemo © 2003 phpBB Group