|
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
|
|