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
Utworzenie nowej warstwy i oznaczenie spradu i marginesu
Autor Wiadomość
N0carz 
Bywalec



Wersja CorelDRAW: x7/x8
Pomógł: 1 raz
Dołączył: 15 Gru 2017
Posty: 34
Skąd: Lublin
Wysłany: 7 Luty 2018, 17:14   Utworzenie nowej warstwy i oznaczenie spradu i marginesu

Witam.
Potrzebuję pomocy w zautomatyzowaniu czynności które wykonuje przed rozpoczęciem nowego projektu.

Opis czynności w krokach (w załączniku kroki na zrzutach ekranu)

Krok 0
Tworzę nowy dokument o określonych wymiarach. W tym przypadku jest to wymiar A4

Krok 1
Tworze nową warstwę i nazywam ją „LINIE”

Krok 2
Mając aktywną warstwie „LINIE” robie dwuklik na narzędziu „Prostokąt” - pojawia się prostokąt dopasowany do pola roboczego (ten prostokąt pokazuje linie spadów). Duplikuje prostokąt i sprawdziwszy czy proporcje są odblokowane pomniejszam jego wymiary o 10mm szerokość i wysokość (ten prostokąt określa linie marginesów).

Krok 3
Zaznaczam dwa prostokąty i ustawiam kolor konturu na jakiś spotowy (w tym przypadku CutContour z palety Roland VersaWorks, ale może być zwykły cyjan z palety CMYK)

Krok 4
Mając cały czas zaznaczone prostokąty zmieniam grubość konturu na „Włosowy”

Krok 5
Blokuje możliwość edycji i druku warstwy „LINIE” i przełączam się na warstwę roboczą

Krok 6
Powiększam obszar roboczy o 4mm szerokość i wysokość

Poniżej nagrane makro z tych czynności. Problem z tym makro jest taki, że jeśli torze nowy dokument o innych wymiarach pola roboczego (na przykład 100x100mm) to makro dalej tworzy mi linie o wymiarach A4, a ja chce by to po kliknięciu automatycznie tworzyło odpowiednie prostokąty dopasowane do wymiaru aktualnego pola roboczego.

Kod:
Sub linie()
    ' Recorded 2018-02-07
    Dim lr1 As Layer
    Set lr1 = ActivePage.CreateLayer("Layer 1")
    lr1.Name = "LINIE"
    Dim s1 As Shape
    Set s1 = lr1.CreateRectangle(0#, 11.850394, 8.425197, 0#)
    s1.Rectangle.CornerType = cdrCornerTypeRound
    s1.Rectangle.RelativeCornerScaling = True
    s1.Fill.ApplyNoFill
    s1.Outline.SetPropertiesEx 0.007874, OutlineStyles(0), CreateCMYKColor(0, 0, 0, 100), ArrowHeads(0), ArrowHeads(0), cdrFalse, cdrFalse, cdrOutlineButtLineCaps, cdrOutlineMiterLineJoin, 0#, 100, MiterLimit:=5#, Justification:=cdrOutlineJustificationMiddle
    Dim s2 As Shape
    Set s2 = s1.Duplicate
    s2.AddToSelection
    ActiveSelection.Outline.SetProperties Color:=CreateSpotColor("13ed2790-c966-11de-8a39-0800200c9a66", 1, 100)
    s1.Style.StringAssign "{""fill"":{""primaryColor"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000""},""outline"":{""width"":""762"",""color"":""SPOT,USER,1,100,13ed2790-c966-11de-8a39-0800200c9a66,~,CutContour,1,CMYK255,USER,0,252,0,0,100,00000000-0000-0000-0000-000000000000,~,13ed2790-c966-11de-8a39-0800200c9a66,CutContour""},""transparency"":{}}"
    s2.Style.StringAssign "{""fill"":{""primaryColor"":""CMYK,USER,0,0,0,100,100,00000000-0000-0000-0000-000000000000"",""secondaryColor"":""CMYK,USER,0,0,0,0,100,00000000-0000-0000-0000-000000000000""},""outline"":{""width"":""762"",""color"":""SPOT,USER,1,100,13ed2790-c966-11de-8a39-0800200c9a66,~,CutContour,1,CMYK255,USER,0,252,0,0,100,00000000-0000-0000-0000-000000000000,~,13ed2790-c966-11de-8a39-0800200c9a66,CutContour""},""transparency"":{}}"
    ActiveDocument.ReferencePoint = cdrCenter
    s2.SetSize 8.031496, 11.456693
    lr1.Editable = False
    lr1.Printable = False
    Windows.FindWindow("CorelDRAW X7 (64-Bit) - Untitled-1").ActiveView.SetViewPoint 4.293921, 5.921543, 73
    With ActiveDocument.MasterPage
        .SetSize 8.582677, 11.850394
        .Orientation = 0
        .PrintExportBackground = True
        .Bleed = 0#
        .Background = 0
    End With
    Windows.FindWindow("CorelDRAW X7 (64-Bit) - Untitled-1").ActiveView.SetViewPoint 4.293921, 6.000283, 73
    With ActiveDocument.MasterPage
        .SetSize 8.582677, 12.007874
        .Orientation = 0
        .PrintExportBackground = True
        .Bleed = 0#
        .Background = 0
    End With
End Sub


Podpowie ktoś co muszę zmienić w tym makro by robiło to trzeba? Albo jeśli to nie problem zmodyfikować makro tak by móc własnoręcznie podać o ile ten drugi prostokąt (określający marginesy) musi być pomniejszony bo czasami jest potrzeba w ustawieniu większych marginesów.

kroki.jpg
Pobierz Plik ściągnięto 317 raz(y) 1.18 MB

kroki.jpg
Pobierz Plik ściągnięto 324 raz(y) 1.18 MB

 
 
tegraf 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 8 Luty 2018, 10:38   

Doprecyzuj:

Krok 0 - Tworzę nowy dokument o określonych wymiarach. W tym przypadku jest to wymiar A4.
Krok 6 - Powiększam obszar roboczy o 4mm szerokość i wysokość.

Co to jest "obszar roboczy"?
 
 
N0carz 
Bywalec



Wersja CorelDRAW: x7/x8
Pomógł: 1 raz
Dołączył: 15 Gru 2017
Posty: 34
Skąd: Lublin
Wysłany: 8 Luty 2018, 12:40   

tegraf napisał/a:
Krok 0 - Tworzę nowy dokument o określonych wymiarach. W tym przypadku jest to wymiar A4.


Jak tworzysz nowy dokument klikasz utworz nowy lub klawisze sktóru Ctrl+N po czym w oknie "Utwórz nowy dokument" ustawia się wszystkie parametry tego dokumentu. Rozmiar strony, rozdzielczość, przestrzeń kolorów itd.
zal. krok0

tegraf napisał/a:
Krok 6 - Powiększam obszar roboczy o 4mm szerokość i wysokość.

Co to jest "obszar roboczy"?


Przepraszam źle opisałem obszar o który mi chodzi (zapożyczyłem od konkurencji). Mówiąc powiększam obszar roboczy miałem na myśli powiększam rozmiar strony. Chodzi o to że na początku tworze stronę o wymiarach netto (do którego projekt zostanie przycięty) tworze te linie (spadu i marginesu) a potem ustawiam rozmair strony na brutto (zawierający spady) który wymaga odpowiednia drukarnia.

zal. krok6

P.S. czemu nie mogę wstawić obrazek bezpośrednio do wątku? Wkleiłem taki kod i nic się nie pojawiło
Kod:
[img]http://zapodaj.net/72fce2b0f41ef.jpg.html[/img]


krok0.jpg
Pobierz Plik ściągnięto 293 raz(y) 410.07 KB

krok6.jpg
Pobierz Plik ściągnięto 299 raz(y) 214.28 KB

 
 
tegraf 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 8 Luty 2018, 12:51   

Kod:
Sub Linie()

    Optimization = True
    ActiveDocument.Unit = cdrMillimeter
   
    Dim zmiana_nr_1 As Integer
    zmiana_nr_1 = 10
    Dim zmiana_nr_2 As Integer
    zmiana_nr_2 = 4
   
   
    Set aktywna_warstwa = ActivePage.ActiveLayer
    Set lr1_LINIE = ActivePage.CreateLayer("LINIE")
   
       
    Set prostokat_wiekszy = lr1_LINIE.CreateRectangle2(0#, 0#, ActivePage.SizeWidth, ActivePage.SizeHeight)
    Set prostokat_mniejszy = lr1_LINIE.CreateRectangle2(zmiana_nr_1, zmiana_nr_1, ActivePage.SizeWidth - (2 * zmiana_nr_1), ActivePage.SizeHeight - (2 * zmiana_nr_1))
   
    prostokat_wiekszy.AddToSelection
    prostokat_mniejszy.AddToSelection
   
    ActiveSelection.Outline.Width = 0.1
    ActiveSelection.Outline.Color.CMYKAssign 100, 0, 0, 0
   
    lr1_LINIE.Editable = False
    lr1_LINIE.Printable = False
   
    ActiveDocument.MasterPage.SetSize ActivePage.SizeWidth + zmiana_nr_2, ActivePage.SizeHeight + zmiana_nr_2
   
    Optimization = False
    ActiveWindow.Refresh

End Sub



Powinno działać, ale za nic nie mogę pojąć, po co to wszystko.

Trochę niepokojące jest Twoje zdanie "potem ustawiam rozmair strony na brutto (zawierający spady) który wymaga odpowiednia drukarnia". Generowanie pdfa (bo jak rozumiem to jest format przekazywany do drukarni) w rozmiarze brutto jest błędem.

Rozmiar brutto (+ spady = 0 ustawiane w oknie publikowania do pdf) to nie to samo, co rozmiar netto + spady np. = 3 mm (też ustawiane w tym oknie). Pozornie oba pdfy wyglądają tak samo, ale tylko pozornie. Między nimi jest potężna różnica w wewnętrznej strukturze pdfa, co sprawia, że np. znaczna część drukarni on-line pdf generowany z rozmiaru brutto - odrzuci jako błędny.
 
 
N0carz 
Bywalec



Wersja CorelDRAW: x7/x8
Pomógł: 1 raz
Dołączył: 15 Gru 2017
Posty: 34
Skąd: Lublin
Wysłany: 8 Luty 2018, 14:18   

tegraf napisał/a:
Powinno działać

Działa bardzo dziękuję! :poklon . Tylko coś po uruchomieniu makra nie pokazuje się warstwa "LINIE". Dopiero po zapisaniu i ponownym wczytaniu dokumentu pojawia się.

tegraf napisał/a:
ale za nic nie mogę pojąć, po co to wszystko.

Już tłumacze. Te linie traktuje bardziej jako ułatwiające życie przed wszechwiedzącymi klientami. Tak by łatwo i szybko odznaczyć opcje druk na warstwie "LINIE" i zapisać podgląd z liniami, a w mailu załączając plik podglądowy napisać coś w stylu "Drogi Panie kliencie nie mogę przesunąć element X bardziej do krawędzi bo wtedy wyjdziemy poza bezpieczne marginesy i istnieje ryzyko że ten element zostanie przycięty" lub coś w tym stylu.

tegraf napisał/a:
Trochę niepokojące jest Twoje zdanie "potem ustawiam rozmair strony na brutto (zawierający spady) który wymaga odpowiednia drukarnia". Generowanie pdfa (bo jak rozumiem to jest format przekazywany do drukarni) w rozmiarze brutto jest błędem.

Rozmiar brutto (+ spady = 0 ustawiane w oknie publikowania do pdf) to nie to samo, co rozmiar netto + spady np. = 3 mm (też ustawiane w tym oknie). Pozornie oba pdfy wyglądają tak samo, ale tylko pozornie. Między nimi jest potężna różnica w wewnętrznej strukturze pdfa, co sprawia, że np. znaczna część drukarni on-line pdf generowany z rozmiaru brutto - odrzuci jako błędny.

To wiem, ale dziękuję za zwrócenie uwagi :ok . Niestety ale jest to wymóg z agencji z którą współpracuję i dostaje coraz więcej zleceń. Zresztą taki sam jak wymóg pracy w Corelu bo mają jakiegoś innego grafika z którym współpracują od X lat, a który nie ma nic na wyposażeniu poza Corelem więc muszę być z nim kompatybilny na wypadek wymiany plików otwartych :roll: . Takie ustawienia mają u siebie w drukarni i innych drukarniach z którymi współpracują (też internetowe). Wolą by pliki były w rozmiarze brutto zawierające spady bez żadnych znaczników cięcia itd. Nie wiem, nie wnikam, działa... tak chcą tak robię :-D Próby zmian i tłumaczenia już sobie odpuściłem po kilku próbach, kiedy to produkowałem się z opisami i wyjaśnianiem przez 30-60min, w trakcie których jak padało jakieś pojęcie związane z DTP lub ustawień w programach właściciele lub osoby odpowiedzialne za wysyłanie plików do drukarni patrzyli na mnie jak na kosmitę, a potem po rozmowie zgodnie stwierdzali, że u nich to działa więc nie zmieniajmy by nie kombinować no i ten ich grafik tak robi wiec zostańmy przy tym.
 
 
tegraf 
Ekspert
tegraf


Pomógł: 74 razy
Dołączył: 21 Mar 2011
Posty: 1954
Skąd: Zielona Góra
Wysłany: 8 Luty 2018, 15:05   

N0carz napisał/a:
Tylko coś po uruchomieniu makra nie pokazuje się warstwa "LINIE".


U mnie pokazuje się po zamknięciu i otwarciu okna dokowanego Menedżer obiektów. Ale nie wiem dlaczego :-)
 
 
N0carz 
Bywalec



Wersja CorelDRAW: x7/x8
Pomógł: 1 raz
Dołączył: 15 Gru 2017
Posty: 34
Skąd: Lublin
Wysłany: 8 Luty 2018, 16:07   

tegraf napisał/a:
U mnie pokazuje się po zamknięciu i otwarciu okna dokowanego Menedżer obiektów. Ale nie wiem dlaczego :-)

Zawsze to szybciej niż zamykanie i otwieranie dokumentu ponownie:)
 
 
N0carz 
Bywalec



Wersja CorelDRAW: x7/x8
Pomógł: 1 raz
Dołączył: 15 Gru 2017
Posty: 34
Skąd: Lublin
Wysłany: 15 Luty 2018, 10:05   

tegraf napisał/a:
Ale nie wiem dlaczego

By nie trzeba było kombinować z oknem dokowanym wystarczy dopisać jeszcze jedną linie do kodu

Kod:
Application.Refresh

i wszystko działa jak trzeba :mrgreen:
 
 
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.15 sekundy. Zapytań do SQL: 15