Grafika.cz - vše o počítačové grafice

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

Nabídka práce
Poptávka práce
Soutěž

Sponzorem soutěže je:

IDIF

 

Kde se koná výstava fotografií Luďka Vojtěchovského?

V dnešní soutěži hrajeme o:



Zmenseni skupiny ne vsak obsahu skupiny

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

14:05:30 17.06.2011

Mimochodem.. tímhle se dá skvěle vyřešit i můj první dotaz... chci zmenšit skupinu objektů různě od sebe vzdálených aniž by se zmenšily ty objekty... S timhle zmenšim skupinu např na 50% potom první objekt zvětšim na 200% a zbytek projedu makrem takže mam všechny objekty původní velikosti jen sem změnšil rozestupy (tu) (tu) (tu). Akorát jak to budou jiný procenta tak se to bude hůř přepočítávat ale to už je maličkost...
paráda..

nevim jak víc poděkovat.. (tu)

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

13:47:37 17.06.2011

Makro funguje... vsechno slape... :) :) :) absolutne genialni.. (tu)

tisicere diky rap :D

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

22:37:38 16.06.2011

a ty dilky jsou kazdy jiny takze by ty klony asi stejne nesli pouzit pri tvorbe noveho obrazce

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

22:35:44 16.06.2011

cybi Napsal:
-------------------------------------------------------
> premyslet predem... prvni objekt jako ridici..
> ostatnich 149 jako klony... po jakekoli zmene na
> prvnim objektu se tyto promitnou i na ostatnich
> 149


Nu, to je pravda. Akorat tenhle pripad je import obrazce skladajiciho se z drobnych samostatnych dilu

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: cybi

8:17:26 16.06.2011

premyslet predem... prvni objekt jako ridici.. ostatnich 149 jako klony... po jakekoli zmene na prvnim objektu se tyto promitnou i na ostatnich 149

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

0:42:04 16.06.2011

ty brde... diky... mrknu na to tak zitra k veceru.. vypada to zapeklite ;-)
Jo to ALT+F9 je presne ono... parada, diky

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: rap

15:17:43 15.06.2011

> jeste k tomu zvětšení za pomoci ctrl-R. Jde zvětšovat procentualně? Protože když zvetším ctverec a dam CTRL-R na obdelnik tak mam z něho ctverec

Ano, jde zvětšovat procentuálně, ale nedělej to přes horní panel vlastností, ale přes Změnit-Transformace-Měřítko (Alt + F9).


> Diky moc, nejspíš se pustím do té "pakárny" protě jsem škrt a je mi lito peněz za makro ;-)

Když je ti líto peněz, tak tady to máš gratis :-)
Nevím, jak jsi zběhlý v makrech, ale pokud ne, tak tady je to "po lopatě":

1) Vytvoř v nějakém ASCII editoru (třeba Notepadu/Poznámkovém bloku) prázdný soubor ForEach.gms a ulož do složky s makry CorelDraw. U mě pro CorelDrawX3 pod Win7 64bit je to:
C:\Program Files (x86)\Corel\CorelDRAW Graphics Suite 13\Draw\GMS. U tebe by to mělo být něja podobně.

2) Restartuj (zavři a otevři) CorelDraw.

3) Spusť editor VisualBasic (Alt + F11). Otevři Project Explorer (Ctrl + R) a vyber ten GMS soubor, který si vytvořil - GlobalMacros (ForEach.gms). Zvol Insert-Module. Otevře se ti prázdné okno Module1, do kterého zkopíruj následující text mezi hvězdičkami (bez těch hvězdiček) a ulož (Ctrl + S).

**********************
Sub ForEach()
Dim sr As ShapeRange, s As Shape, cnt&, i&, bDraw11%
On Error Resume Next
If ActiveDocument Is Nothing Then Exit Sub
Set sr = ActiveSelectionRange: cnt = sr.Count
EventsEnabled = False
bDraw11 = (VersionMajor = 11)
If Not bDraw11 Then Application.Status.BeginProgress CanAbort:=True
For Each s In sr
i = i + 1
s.CreateSelection
ActiveDocument.Repeat
If Not bDraw11 Then
Application.Status.Progress = i / cnt * 100
Application.Status.SetProgressMessage "Repeating... p.s. there'll be no undo for whole op." & i & " / " & cnt
If Application.Status.Aborted Then MsgBox "Command repeated " & i & " times": Exit For
End If
Next
sr.CreateSelection
EventsEnabled = True
End Sub
**********************

4) Zavři Visual Basic a vrať se do CorelDraw.

5) Nejjednodušší bude spouštět makro klávesovou zkratkou (ideálně třeba Ctrl + Shift + R). Vyber Nástroje-Přizpůsobení-Příkazy. Z rozbalovací nabídky vyber Makra a nalistuj Module1.ForEach. Vpravo se přepni na záložku Klávesové zkratky, dej kurzor do pole Nová klásová zkratka a stiskni Ctrl + Shift + R. Pak dej OK a zavři okno.

A nyní by to mělo fungovat. Vyber jeden objekt, změň jeho velikost. Pak vyber ostatní a stiskni klávesovou zkratku Ctrl + Shift + R. A je to.

Dej vědět, jestli funguje.
Zdar Radek

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

13:36:14 15.06.2011

jeste k tomu zvětšení za pomoci ctrl-R. Jde zvětšovat procentualně? Protože když zvetším ctverec a dam CTRL-R na obdelnik tak mam z něho ctverec

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

13:19:34 15.06.2011

Diky moc, nejspíš se pustím do té "pakárny" protě jsem škrt a je mi lito peněz za makro ;-)
A co takhle.. daji se vymenit objekty za jiné např. mam 150 čtverecku a chci je vymenit za 150 trojuhelniku?
To tez makro? popr. jak na to v mensim meritku rekneme s 20ti kusy?

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: rap

12:21:41 15.06.2011

Změň velikost jednoho objektu a pak postupně vybírej další a použij Úpravy - Opakovat (Ctrl + R). Uznávám, že pro 150 objektů je to "pakárna". Nebo na to použij makro. Existuje sada wOxxOm.TOOLS.package, která obsahuj makro wx.ForEach. To dělá přesně, co potřebuješ - nejdřív zvětšíš jeden objekt, pak vybereš najednou všechny ostatní, spustíš to makro a v dávce se na všechny objekty samostatně aplikuje stejná transformace.
Viz: [url]http://macromonster.com/index.php?mod=descr&id_desc=2&id=9[/url]

Zdar Radek


poin Napsal:
-------------------------------------------------------
> popr. jak změnit hromadně velikosti objektů? např.
> mam 150 objektů a chci je všechny zvětšit na 110%
> aniž by se hly z místa.

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

11:22:29 15.06.2011

popr. jak změnit hromadně velikosti objektů? např. mam 150 objektů a chci je všechny zvětšit na 110% aniž by se hly z místa.

Citovat příspěvek

 

Re: Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

11:08:46 15.06.2011

je to korel X5

Citovat příspěvek

 

Zmenseni skupiny ne vsak obsahu skupiny

Autor: poin

11:07:34 15.06.2011

Ahoj. Mam skupinu objektu ruzne vzdalenych dejme tomu na primce. Chci zmensit skupinu(objekty se pomerove priblizi) ne vsak objekty samotne. Netusite nekdo jak na to?

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: