Corel FORUM

[TheMan258]

Witam,
Dawno się nie odzywałem, ponieważ dotychczas radziłem sobie ze wszystkim samodzielnie. Jednak teraz napotkałem problem, z którym nie potrafię sobie poradzić. Kiedyś otrzymałem od klienta plik z topperem, i moje zdziwienie było ogromne, gdy próbowałem go wypełnić kolorem – wypełniał się całościowo zamiast tylko liter. Z ciekawości próbowałem zamykać ścieżki później zacząłem korzystać z różnych narzędzi, takich jak CurveWorks czy Cadintools, ale niestety, bezskutecznie . Szukałem rozwiązania w Internecie, lecz bez rezultatu (albo może źle szukałem 😉). Pojawia się także problem z plikami DXF. Wszystkie importowane z CADA kształty są praktycznie pootwierane. Z topperem, podobnym do tego załączonego, można poradzić sobie np. trasowaniem, ale gdy pojawi się potrzeba otwarcia pliku z CADA, sytuacja staje się mniej radosna. Czy istnieje jakiś sposób, na przykład przy użyciu makra który pozamyka otwarte ścieżki. Spotkaliście się z czymś takim kiedykolwiek W załączniku przesyłam wspomniany plik.

---

Podgląd.png

Pobierz Plik ściągnięto 309 raz(y) 157.03 KB

Plik próbny.cdr Dla chętnych przesyłam plik z wspomnianym topperem którego nie mogę wypełnić.

Pobierz Plik ściągnięto 194 raz(y) 32.22 KB

[Oganesson]

Użyj narzędzia "smart fill tool" (inteligentne wypełnienie) do wypełniena a będziesz miał linie wypełnione tak jak po prawej.

[TheMan258]

[Martin Nez]

To nie problem z rozłączonymi węzłami - rozłączone są małe elementy: nad "n" w "Komunia" oraz w środku "a" w "Święta". To częsty błąd Corela, ja mam takie makro do radzenia sobie z nim:

Kod:

Sub zalej()     ' sprawdzenie czy coś zostało zaznaczone     If ActiveSelection.Shapes.Count = 0 Then         MsgBox ("Zaznacz obiekt(y).")         Exit Sub     End If         Dim s As Shape     For Each s In ActiveSelectionRange         If s.Type = cdrGroupShape Then             For Each ss In s.Shapes                 If ss.FillMode = cdrFillWinding Then ss.FillMode = cdrFillAlternate             Next         Else             If s.FillMode = cdrFillWinding Then s.FillMode = cdrFillAlternate         End If     Next s End Sub

Należy zaznaczyć obiekt z takim błędem i uruchomić skrypt. Działa z obiektami i jednopoziomowymi grupami (tylko z takich korzystam, więc nie kombinowałem z innymi).

Pozdr,
MN

[TheMan258]

[Sparkman]

W przypadku tego pliku wystarczyło użyć funkcji Reverse Direction do któregoś z węzłów zewnętrznej pętli. Nie wiem czemu ale Coreldraw ma czasem ma problem z poprawnym wypełnieniem takich obiektów.
Oczywiście warto też usunąć kilka małych elementów, o których wspomniano wcześniej.
Ja do takiego czyszczenia używam starego macra WX Tools / selectSmalObjects, ale to w Corel X6.