Corel FORUM

[N0carz]

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 341 raz(y) 1.18 MB

kroki.jpg

Pobierz Plik ściągnięto 345 raz(y) 1.18 MB

[tegraf]

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]

[tegraf]

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]

[tegraf]

[N0carz]

[N0carz]