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
Makro do oczkowania banerów
Autor Wiadomość
jarekpiotrowicz 
Początkujący


Dołączył: 19 Paź 2015
Posty: 5
Skąd: Tarnów
Wysłany: 20 Październik 2015, 18:12   

Nie, jest super.
 
 
OutsiderEg 
Początkujący
Normalnie nienormalny


Wersja CorelDRAW: X5 X7
Dołączył: 18 Paź 2021
Posty: 3
Skąd: WarMar
Wysłany: 18 Październik 2021, 07:14   

Podepnę się pod pościk co prawda czerstwy już od jakiegoś czasu, ale dotyczy on makra które tu się znajduje.

Czy jest możliwość, a domniemam że pewnie jest dopisania tego i owego aby dane makro w miejscu czarnych kropek tworzyło ich kopię lecz z konturem M 100.
Nie używam makr w sposób który uświadomił mnie co do ich edycji oraz tworzenia.

Jedyne co zmieniłem to kolor z RGB na CMYK (w takiej palecie pracuję)
Jednym słowem podwójne kropkowanie (dublowanie) o innych kolorach.

Private Function fill_ellipse(p_ellipse As Shape)
p_ellipse.Outline.Color.CMYKAssign 0, 100, 0, 0
p_ellipse.Outline.Width = 0.05
p_ellipse.Fill.UniformColor.CMYKAssign 0, 0, 0, 0

Załączam PDf-a w celu zwizualizowania o co się rozchodzi.

macro pasery oczka.txt
Pobierz Plik ściągnięto 257 raz(y) 2.63 KB

oczkowanie.pdf
Pobierz Plik ściągnięto 265 raz(y) 1.31 MB

 
 
TheMan258 
Początkujący
TheMan258


Wersja CorelDRAW: x5
Wiek: 32
Dołączył: 22 Lut 2021
Posty: 14
Skąd: Kraków
Wysłany: 9 Listopad 2021, 20:01   

Witaj,
myślę, że to zadziała:
Kod:
Dim i As Integer, s As Shape, p_ellipse As Shape, m_ellipse As Shape, _

Kod:
For i = 0 To il_w_oczek
    shift = i * w_odl
    Set m_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_up, x2 + shift, y2_up)
    fill_ellipse1 m_ellipse
    Set m_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_down, x2 + shift, y2_down)
    fill_ellipse1 m_ellipse
    Set p_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_up, x2 + shift, y2_up)
    fill_ellipse p_ellipse
    Set p_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_down, x2 + shift, y2_down)
    fill_ellipse p_ellipse

Kod:
Private Function fill_ellipse1(m_ellipse As Shape)
m_ellipse.Outline.Color.CMYKAssign 0, 100, 0, 0
m_ellipse.Outline.Width = 0.05
m_ellipse.Fill.UniformColor.CMYKAssign 0, 0, 0, 0
End Function

lub ręcznie jako osobne makro
Kod:
Dim OS As ShapeRange, s As Shape
Set OS = ActiveSelectionRange
Dim s1 As Shape
For Each s In OS

Set s1 = ActiveLayer.CreateEllipse(s.LeftX + 0, s.TopY - 0, s.RightX - 0, s.BottomY + 0)
s1.Outline.SetProperties Color:=CreateCMYKColor(0, 100, 0, 0)
Next s
 
 
OutsiderEg 
Początkujący
Normalnie nienormalny


Wersja CorelDRAW: X5 X7
Dołączył: 18 Paź 2021
Posty: 3
Skąd: WarMar
Wysłany: 16 Listopad 2021, 11:59   

Super robota. Ja na to nie wpadłem a siedziały przy tym głowy dwie,
Zmieniliśmy trochę sam kod - same pierdoły.

Wielkie dzięki za uzyskaną pomoc.TheMan258
Niech żyje Kraków.

Cały kod po naszych zmianach w załączniku.

Macro oczka plus kontur-new.txt
załącznik powstał przy pomocy z TheMan258 - Kraków
Pobierz Plik ściągnięto 283 raz(y) 3.06 KB

 
 
labzap
Początkujący


Dołączył: 14 Gru 2010
Posty: 5
Skąd: Bielsko-Biała
Wysłany: 6 Lipiec 2023, 17:29   zmiana nazwy

A czy w tym makro jest opcja żeby zamiast podpispodpis wpisywał nazwę banneru pobraną z warstwy czyli tak jak nazywa się na warstwie żeby taka sama nazwa była wyświetlana?
 
 
OutsiderEg 
Początkujący
Normalnie nienormalny


Wersja CorelDRAW: X5 X7
Dołączył: 18 Paź 2021
Posty: 3
Skąd: WarMar
Wysłany: 6 Lipiec 2023, 18:09   

Pewnie makro takie istnieje. Lecz to nie to czego szukasz. Te makro dodajetylko kolka w skrajnych rogach ( do maszyny tnącej)
 
 
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.2 sekundy. Zapytań do SQL: 16