Przesunięty przez: roland 26 Maj 2011, 07:32 |
Jak przekształcić wszystko na krzywe? |
Autor |
Wiadomość |
F-Głowy
Ekspert "Postać F-Głowego"
Wersja CorelDRAW: X4 i X5
Dołączył: 27 Kwi 2011 Posty: 875 Skąd: Z łona matki
|
Wysłany: 27 Kwiecień 2011, 19:16 Jak przekształcić wszystko na krzywe?
|
|
|
Witam!
Wiele drukarni prosi by w materiale jaki im dostarcza grafik, wszystkie czcionki były zamienione na krzywe. Wiem że Corel ma taką opcję. Ale nie wiem jak HURTOWO to zrobić.
Mam np. szablon strony, którą chcę dać gdzieś do druku i jak z niej zrobić wszystko w krzywych za jednym kliknięciem myszki? A może jest do tego jakiś zewnętrzny soft? Jakiś konwerter czy coś? Prosze o odpowiedź.
PS
Wybaczcie mój pseudonim. Nie jest to żadna prowokacja czy coś w tym stylu. Po prostu chciałem zadać pytanie, a że wymagana jest rejestracja to wpisałem dwie nazwy użytkowników, które okazały się zajęte więc wklepałem taki nick i poszło! |
|
|
|
|
takietam
Fachowiec
Wersja CorelDRAW: 9, x5
Pomógł: 36 razy Dołączył: 11 Cze 2008 Posty: 286 Skąd: z gór...
|
Wysłany: 27 Kwiecień 2011, 19:19
|
|
|
Najprościej: zaznacz wszystko (Ctrl+A), potem: zamień w krzywe (ctrl+Q).
Tylko musisz odznaczyć bitmapy, bo inaczej nie uda Ci się hurtem zamienić wszystkiego w krzywe. |
|
|
|
|
Cysorz
Pomógł: 205 razy Dołączył: 01 Sty 2011 Posty: 3137 Skąd: Kraków
|
Wysłany: 27 Kwiecień 2011, 20:26
|
|
|
1. Rozgrupuj wszystko, zaznacz "Edycja -> Zaznacz wszystko -> Tekst" po czym Ctrl+Q.
2. Do druku wysyłaj jako pdf "Styl PDF -> PDF z ustawieniami drukarskimi lub PDF/X-1a lub PDF/X-3", zaznaczając w "Ustawieniach -> Obiekty -> Eksportuj wszystkie teksty jako krzywe".
Pierwszy sposób działa na bieżącą stronę, drugi na cały dokument (można jeszcze zrobić to przez wyszukiwarkę, ale podany przez Ciebie przykład jest prosty, więc to wystarczy).
Do druku NIGDY nie wysyłaj plików corelowskich, najwygodniej i najbezpieczniej jest zrobić pdf'a. |
|
|
|
|
F-Głowy
Ekspert "Postać F-Głowego"
Wersja CorelDRAW: X4 i X5
Dołączył: 27 Kwi 2011 Posty: 875 Skąd: Z łona matki
|
Wysłany: 27 Kwiecień 2011, 20:40
|
|
|
Malutki napisał/a: | 1. Rozgrupuj wszystko, zaznacz "Edycja -> Zaznacz wszystko -> Tekst" po czym Ctrl+Q.
2. Do druku wysyłaj jako pdf "Styl PDF -> PDF z ustawieniami drukarskimi lub PDF/X-1a lub PDF/X-3", zaznaczając w "Ustawieniach -> Obiekty -> Eksportuj wszystkie teksty jako krzywe".
Pierwszy sposób działa na bieżącą stronę, drugi na cały dokument (można jeszcze zrobić to przez wyszukiwarkę, ale podany przez Ciebie przykład jest prosty, więc to wystarczy).
Do druku NIGDY nie wysyłaj plików corelowskich, najwygodniej i najbezpieczniej jest zrobić pdf'a. |
Cześć, dzięki Wam obu. A powiedz mi malutki...
Jeśli zrobię to co pisałeś w PUNKCIE 2, to już nie muszę wcześniej robić tego co punkt pierwszy, prawda? |
|
|
|
|
chezare
Pomógł: 402 razy Dołączył: 24 Gru 2010 Posty: 4551 Skąd: Grodzisk Mazowiecki
|
Wysłany: 27 Kwiecień 2011, 20:48
|
|
|
Dodam tylko, że jak już "skrzywisz" teksty w Corelu, to przy eksporcie do pdfa nie ma sensu zaznaczać żeby były znowu na krzywe zamieniane, odznacz też opcję, która każe czcionki dołączać do dokumentu, zawsze parę bajtów mniej
Po uruchomieniu makra, które zamieszczam niżej, nie pozostanie ślad po tekstach, na żadnej stronie i w żadnej grupie.
Sub text_to_curve()
Dim s As Shape
Dim how As Integer
Dim page As Integer
page = ActiveDocument.Pages.Count
For how = 1 To page
For Each s In ActiveDocument.Pages(how).FindShapes(cdrShape)
s.CreateSelection
ActiveSelection.ConvertToCurves
Next s
Next how
End Sub
Aha, cdry zapisuj z nieskrzywionymi tekstami, bo później w razie potrzeby zmian, będziesz musiał pisać wszystko od nowa |
|
|
|
|
maroQ
Doradca
Pomógł: 16 razy Wiek: 40 Dołączył: 08 Lut 2011 Posty: 117 Skąd: Kalisz
|
Wysłany: 20 Lipiec 2011, 13:29 ech... :D
|
|
|
Twoja funkcja działa tylko dla nienazwanych krzywych...
Jak rozwiniesz Activedocument.pages(how).findshapes( to zobaczysz:
komentarz VBA napisał/a: | FindShapes([Name as String], [Type As cdrShapeType=cdrNoShape], [Recusive as Boolean=True])As ShapeRange |
Ponieważ cdrShape nie został nigdzie zadeklarowany więc zostaje zadeklarowany automatycznie jako Variant (zmienna która nie ma swojego odpowiednika w innych językach). Gdybyś na początku Modułu miał wpisaną komendę "Option Explicit" to VBA zgłosił by błąd. Nie ma takiej stałej jak cdrShape jest natomiast cdrShapeType, ale to też nie jest stała tylko klasa która zawiera różne stałe np. Kod: | cdrShapeType.cdrTextShape | Nazwa kształtu w tej metodzie jest obowiązkowa, natomiast typ kształtu jest opcjonalny. Dlatego jeśli np. chcesz ograniczyć wyszukiwanie tylko do krzywych to trzeba by to było napisać zupełnie inaczej.
Można prościej i taka funkcja działa praktycznie zawsze, niezależnie od tego czy kształt istnieje czy nie:
Kod: | Sub ToCurves()
Dim p As Page
For Each p In ActiveDocument.Pages
p.Shapes.All.ConvertToCurves
Next p
End Sub |
Co działa tak: Na każdej stronie zamień wszystko na krzywe. |
|
|
|
|
chezare
Pomógł: 402 razy Dołączył: 24 Gru 2010 Posty: 4551 Skąd: Grodzisk Mazowiecki
|
Wysłany: 20 Lipiec 2011, 16:21
|
|
|
MaroQ, napisałem o "krzywieniu" napisów, a zmienna pod którą możesz wstawić dowolny typ danych jest np. w pascalu.
var
s:variant;
begin
s:='sdjfkls';
showmessage(s);
s:=23.5;
showmessage(inttostr(s));
Zapewniam Cię, że taki kod nie zwróci żadnego błędu.
Pozdrawiam
Czarek |
|
|
|
|
chezare
Pomógł: 402 razy Dołączył: 24 Gru 2010 Posty: 4551 Skąd: Grodzisk Mazowiecki
|
Wysłany: 20 Lipiec 2011, 21:43
|
|
|
Nie wiem po co się męczyłeś próbując mnie przekonać, że kod który zamieściłem jest do bani? Może on i jest do niczego ale robi to co miał zrobić, zamienia napisy na krzywe. Napisy a nie inne obiekty, taki był temat pierwszego postu, którego widać nie przeczytałeś.
Te parę linijek nie jest mojego autorstwa, ale rozumiem ja go zamieściłem to mnie lejesz.
Nigdy nigdzie nie napisałem, że znam się na pisaniu makr dla Corela za to parę razy napisałem, że nie mam o tym pojęcia. Twoja lekcja raczej do niczego mi się nie przyda, może ktoś inny skorzysta. Wkurza mnie twoja filozofia, że wszystko kosztuje i wszystko trzeba sprzedać. Na mnie nie zarobisz, bo mnie jak będzie potrzebne makro, to sobie go sam napiszę. Pewnie będę musiał kupić jakąś książkę, trochę połazić po sieci, trochę popytać no i zajmie mi to trochę czasu, ale dam sobie radę, bo ratunku krzyczę dopiero wtedy gdy zawiodą wszystkie inne metody.
Póki co mam na koncie kolejny post. Muszę cię zmartwić nikt nie płaci tutaj za to ani grosza, nie ma też z tego powodu żadnych przywilejów. To co napisałem o krzywieniu napisów, napisałem 3 miesiące temu i nikt się tym tematem od tamtego czasu nie interesował, to kto jest tutaj upierdliwy? |
|
|
|
|
nooxes
Początkujący
Dołączył: 04 Lis 2011 Posty: 1 Skąd: Toruń
|
Wysłany: 4 Listopad 2011, 15:52
|
|
|
Witam, kolegów. Do tego forum przyciągnął mnie właśnie problem zamiany wszystkiego na krzywe. Dotychczas zamieniałem wszystko metodą zaznacz teksty i ctrl-q. Nie można wszystkiego zaznaczyć oprócz bitmap gdyż niekiedy przy zamianie na krzywe sypią się cienie. No i chciałem to jakoś zautomatyzować. Powyższe skrypty działają znakomicie, pod warunkiem, że teksty nie są w powerclipach. W środku są ignorowane, a jak się ma kilkanaście powerclipów w projekcie i tam teksty, to już znowu ręczna robota. Jakieś wskazówki jak usprawnić te skrypty aby działały również wewnątrz powerclipów?
Pozdrawiam |
|
|
|
|
beerseeker
Bywalec mgr sztuki
Wersja CorelDRAW: X5
Pomógł: 1 raz Dołączył: 19 Cze 2007 Posty: 31 Skąd: Rzeszów
|
Wysłany: 10 Styczeń 2012, 08:34
|
|
|
nooxes napisał/a: | /ciach/
Powyższe skrypty działają znakomicie, pod warunkiem, że teksty nie są w powerclipach. W środku są ignorowane, a jak się ma kilkanaście powerclipów w projekcie i tam teksty, to już znowu ręczna robota. Jakieś wskazówki jak usprawnić te skrypty aby działały również wewnątrz powerclipów?
Pozdrawiam |
Ja korzystam z VB wxtools.exe - kupiłem to na macromonster za 10$ i jest to zestaw kilku makr ułatwiających życie, m.in. właśnie zamiana wszystkich tekstów w pliku na krzywe, działa też na powerclipy/kadry (to konkretne makro nazywa się wx.TextToCurves).
http://macromonster.com/i...&id_desc=2&id=9
Pozdro. |
|
|
|
|
JCone
Początkujący
Dołączył: 06 Lut 2012 Posty: 1 Skąd: Bydgoszcz
|
Wysłany: 6 Luty 2012, 09:34
|
|
|
Witam podpinam się do wątku.
Moje pytanie brzmi: jak plik pdf, lub jakikolwiek inny np jpeg przekształcić w krzywe kiedy ta opcja jest niedostępna (czyli odznaczona)??
Proszę o szybką odpowiedz
Pozdrawiam |
|
|
|
|
Cysorz
Pomógł: 205 razy Dołączył: 01 Sty 2011 Posty: 3137 Skąd: Kraków
|
Wysłany: 6 Luty 2012, 11:31
|
|
|
Pdf-a to chcesz przy IMPORCIE krzywić? A właściwie to czcionki?
Można, ale dokument może się "posypać". Najbezpieczniej jest taki plik zapisać w Acrobacie (pełnej wersji) do formatu *.eps i tak importować. Są jeszcze inne możliwości (np. PDFCreator), ale ta jest najbezpieczniejsza.
Jpg nie można "przekształcić" w krzywe, bo to inna filozofia w ogóle. Można użyć trasowania lub zrobić to ręcznie, ale w większości postów na tym forum o tym pisze, więc nie będę się powtarzał ;) |
|
|
|
|
Vegass
Początkujący Grafik
Wersja CorelDRAW: X3
Dołączył: 29 Mar 2012 Posty: 14 Skąd: Radom
|
Wysłany: 6 Kwiecień 2012, 10:16
|
|
|
Ja mam jeszcze taki myk (to taka drobnostka, ale może sie przyda komuś), po zamianie na krzywe podglądam sobie z menu TEKST opcję STATYSTYKA TEKSTU. Widać czarno na białym, czy zostało jakieś liternictwo czy nie.
Jeśli wartości pokazują "0" można spokojnie puszczać do druku. |
|
|
|
|
chezare
Pomógł: 402 razy Dołączył: 24 Gru 2010 Posty: 4551 Skąd: Grodzisk Mazowiecki
|
Wysłany: 7 Kwiecień 2012, 10:17
|
|
|
A z nieskrzywionymi fontami nie można? |
|
|
|
|
Migot
Początkujący
Dołączył: 10 Kwi 2014 Posty: 2 Skąd: Warszawa
|
Wysłany: 1 Czerwiec 2014, 11:17
|
|
|
Witam!
Potrzebuje szybką odpowiedź.
Przygotowałem w photoshopie wzor chustki do nadruku ale oni chcą to w krzywych, tak żeby każda warstwa była osobno. Wrzucam w Corela chuste i teraz co najlepiej zrobić i najszybciej aby zamienić to w krzywe i zapisać w pdfa i mieć świety spokój?
Będę bardzo szczęśliwy za uzyskanie pomocy... |
|
|
|
|
bidon184 [Usunięty]
|
Wysłany: 1 Czerwiec 2014, 12:24
|
|
|
bzdura,osobne warstwy to wogle kosmos jakiś coś źle zrozumiałeś ,a jesli chodzi o krzywe to musisz to wypluć z szopa jako ścieżki do AI lub bezpośrednio jako maske wektorową do pdf |
|
|
|
|
|