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

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  DownloadDownload

Poprzedni temat «» Następny temat
automatyzacja obrysów
Autor Wiadomość
c0m4r
Początkujący


Dołączył: 13 Lis 2023
Posty: 2
Skąd: wwa
Wysłany: 13 Listopad 2023, 14:31   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 
Doradca
Grafik?


Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 114
Skąd: Czmoń
Wysłany: 17 Listopad 2023, 06:47   

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

Pozdr,
MN
 
 
c0m4r
Początkujący


Dołączył: 13 Lis 2023
Posty: 2
Skąd: wwa
Wysłany: 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 
Początkujący


Wersja CorelDRAW: 2021
Dołączył: 05 Gru 2023
Posty: 2
Skąd: Czerwionka
Wysłany: 5 Grudzień 2023, 10:30   

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


Wersja CorelDRAW: 2019
Pomógł: 14 razy
Dołączył: 29 Sty 2011
Posty: 114
Skąd: Czmoń
Wysłany: 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
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Nowe zasady dotyczące cookies. Wykorzystujemy pliki cookies, aby nasz serwis lepiej spełniał Państwa oczekiwania. Można zablokować zapisywanie cookies, zmieniając ustawienia przeglądarki.
         
Strona wygenerowana w 0.09 sekundy. Zapytań do SQL: 13