Corel FORUM
Forum użytkowników programów firmy Corel. Grafika wektorowa, rastrowa i obróbka zdjęć cyfrowych

CorelDRAW - grafika wektorowa - Jak usunąć wypełnienie siatkowe?

F-Głowy - 1 Luty 2012, 01:55
Temat postu: Jak usunąć wypełnienie siatkowe?
Jak usunąć wypełnienie siatkowe?

Jak raz zastosuje wypełnienie siatkowe, nie mogę później go usunąć.
Nie mogę po nim nadać wypełnienia tonalnego, bo wyświetla się albo taki komunikat:

Dla zaznaczonego obiektu nie można zastosować wypełnienia tonalnego.


... albo po jego nałożeniu (czasem się udaje), nic się nie dzieje z obiektem.
Już nie mogę tego obiektu dalej wypełniać tak jakbym chciał. A w menedżerze obiektó ten obiekt z wypełnieniem siatkowym dostaje nową ikonkę.

chezare - 1 Luty 2012, 08:13

Jak się pokombinuje, to wszystko można :-)
Trochę to droga naokoło ale nic lepszego nie przychodzi mi do głowy. W każdym razie działa.
W palecie narzędzi jest jeszcze inny rodzaj wypełnienia, inteligentne wypełnienie, które rzeczywiście okazuje się inteligentniejsze od siatkowego :-) , wystarczy go zastosować. Niestety efektem ubocznym jest powstanie identycznej figury, dokładnie w tym samym miejscu. Zostają też niestety węzły siatki na krawędziach.

Oczywiście można skasować figurę z wypełnieniem siatkowym nie ruszając niczego z miejsca. Wystarczy przesunąć nowo powstałą figurę niżej albo posłużyć się menedżerem obiektów.
I znowu siatkowe…


Odpowiedź na następne pytanie brzmi, szybkie kadrowanie :-)

F-Głowy - 1 Luty 2012, 19:39

No dzięki Chezarre. Takim sposobem kombinowania można to jakoś rozwiązać.
Ale nie uważasz, że powinna być opcja normalnego wypełnienia tego samego obiektu na któym wcześniej użyliśmy wypełnienia siatkowego?

chezare - 1 Luty 2012, 19:47

Myślę, że trzy linijki kodu w VBA potrafią załatwić ten problem.
F-Głowy - 2 Luty 2012, 02:41

No dobrze. Ale:

1) Trzeba najpierw umieć pisać kody
2) TAKA OPCJA POWINNA BYĆ W TYM PROGRAMIE OBECNA!

chezare - 2 Luty 2012, 02:56

Nie trzeba, wystarczy umieć nagrać makro :-)
W X3 wygląda to tak:
Kod:
Sub KasujSiatke()
Dim s1 As Shape
    Set s1 = ActivePage.CustomCommand("Boundary", "SmartFill", 3.971173, 7.581764, CreateCMYKColor(0, 0, 0, 0), 0.003, CreateCMYKColor(0, 0, 0, 100))
    s1.OrderToBack
    ActiveLayer.Shapes(1).Delete
End Sub


Wyciągasz skrót do tego na pasek i od tej pory zaznaczasz siatkę, klik i masz figurę bez wypełnienia z czarnym konturem.
Gorzej jak by tych siatek było więcej, wtedy trzeba by trochę zmodyfikować.


Powered by phpBB modified by Przemo © 2003 phpBB Group