Corel FORUM

[c0m4r]

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]

Cześć,
da się to zrobić makrem.

Pozdr,
MN

[c0m4r]

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]

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

[Martin Nez]

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