Corel FORUM

[jarekpiotrowicz]

Nie, jest super.

[OutsiderEg]

Podepnę się pod pościk co prawda czerstwy już od jakiegoś czasu, ale dotyczy on makra które tu się znajduje.

Czy jest możliwość, a domniemam że pewnie jest dopisania tego i owego aby dane makro w miejscu czarnych kropek tworzyło ich kopię lecz z konturem M 100.
Nie używam makr w sposób który uświadomił mnie co do ich edycji oraz tworzenia.

Jedyne co zmieniłem to kolor z RGB na CMYK (w takiej palecie pracuję)
Jednym słowem podwójne kropkowanie (dublowanie) o innych kolorach.

Private Function fill_ellipse(p_ellipse As Shape)
p_ellipse.Outline.Color.CMYKAssign 0, 100, 0, 0
p_ellipse.Outline.Width = 0.05
p_ellipse.Fill.UniformColor.CMYKAssign 0, 0, 0, 0

Załączam PDf-a w celu zwizualizowania o co się rozchodzi.

---

macro pasery oczka.txt

Pobierz Plik ściągnięto 323 raz(y) 2.63 KB

oczkowanie.pdf

Pobierz Plik ściągnięto 336 raz(y) 1.31 MB

[TheMan258]

Witaj,
myślę, że to zadziała:

Kod:

Dim i As Integer, s As Shape, p_ellipse As Shape, m_ellipse As Shape, _

Kod:

For i = 0 To il_w_oczek     shift = i * w_odl     Set m_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_up, x2 + shift, y2_up)     fill_ellipse1 m_ellipse     Set m_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_down, x2 + shift, y2_down)     fill_ellipse1 m_ellipse     Set p_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_up, x2 + shift, y2_up)     fill_ellipse p_ellipse     Set p_ellipse = ActiveLayer.CreateEllipse(x1 + shift, y1_down, x2 + shift, y2_down)     fill_ellipse p_ellipse

Kod:

Private Function fill_ellipse1(m_ellipse As Shape) m_ellipse.Outline.Color.CMYKAssign 0, 100, 0, 0 m_ellipse.Outline.Width = 0.05 m_ellipse.Fill.UniformColor.CMYKAssign 0, 0, 0, 0 End Function

lub ręcznie jako osobne makro

Kod:

Dim OS As ShapeRange, s As Shape Set OS = ActiveSelectionRange Dim s1 As Shape For Each s In OS Set s1 = ActiveLayer.CreateEllipse(s.LeftX + 0, s.TopY - 0, s.RightX - 0, s.BottomY + 0) s1.Outline.SetProperties Color:=CreateCMYKColor(0, 100, 0, 0) Next s

[OutsiderEg]

Super robota. Ja na to nie wpadłem a siedziały przy tym głowy dwie,
Zmieniliśmy trochę sam kod - same pierdoły.

Wielkie dzięki za uzyskaną pomoc.TheMan258
Niech żyje Kraków.

Cały kod po naszych zmianach w załączniku.

---

Macro oczka plus kontur-new.txt załącznik powstał przy pomocy z TheMan258 - Kraków

Pobierz Plik ściągnięto 430 raz(y) 3.06 KB

[labzap]

A czy w tym makro jest opcja żeby zamiast podpispodpis wpisywał nazwę banneru pobraną z warstwy czyli tak jak nazywa się na warstwie żeby taka sama nazwa była wyświetlana?

[OutsiderEg]

Pewnie makro takie istnieje. Lecz to nie to czego szukasz. Te makro dodajetylko kolka w skrajnych rogach ( do maszyny tnącej)