Bevezetés CorelDRAW munka szkriptek
Bevezetés a CorelDraw dolgozni szkriptek
A makrók lehetnek:
- automatikusan létrejön,
- írja: „a semmiből”
- és az átlagos között az első és a második.
Automatikusan létrejön.
Ehhez CorelDraw különlegessége:
1) A parancs „Record” (Eszközök -> Vizuális Baisic -> Record) (rizs), hogy hozzon létre egy makrót nevét és azt jelzi, hogy további lépésekre van felvétel (nem az összes), hogy a felvenni kívánt az automatikus reprodukció.
2) parancs "Stop" (Eszközök -> Vizuális Baisic -> Stop) azt jelzi, hogy a felvétel befejeződött.
3) Lejátszás végre intézkedéseket - Komad érezte "elveszett" (Eszközök -> Vizuális Baisic -> lejátszás).
Mentse el a dokumentumot olyan formátumban a CorelDraw * .cdr, akkor automatikusan elmenti a makro és szerkezete az ülés, az igazság meg kell adni, amikor betölti a fájlt (a rendszer kérni fogja)
"Enamle makrók". Példák az automatikus szervezet makrók megadott 1. lecke.
Írja „a semmiből”.
Itt kell tudni az alapokat a programozási nyelv
Visual Basic for Applications (lásd. Például itt), CorelDraw parancsokat VBA, tanulás stb CorelSCRIPT ami elég unalmas, és a hatalom a tapasztalt programozók
(Például a szöveg a makró a „Jegyzettömb” vagyWordPad menteni egy fájlt a kiterjesztés * .csc (nézd óvatosan), majd futtatni a makrót ( „Eszközök -> Futtatás a script”) megkapta írt makrók a semmiből, azonban anélkül. CorelDraw kódokat.
Makrók - között létrehozni őket automatikusan, és írni „a semmiből”
Gyakran kell megismételni a műveletet. Egy akció egyidejűleg automatikusan létrehozható, majd egy trükk (vagy inkább néhány technikát, hogy hozzon létre egy Visual Baisic ciklus). Ezért fontos, hogy frissíteni makrók automatikusan létrejön. A szerkezet a (tervezet), ahol azok automatikusan rögzítésre kerül.
1. példa létrehozása Macro szegmens körüli forgás kezdeti helyzetébe.
Itt a szöveg
Sub Macro1 ()
Dim i As Integer
x1 = 4
y1 = 5
R = 4
ug0 = 0
num = 41
UGI = 6,28 / NUM
I = 1 NUM
ug = ug0 + i * Ugi
x2 = x1 + R * sin (UG)
y2 = y1 + r * Cos (UG)
Dim S104 alakjuk
Dim crvs104 Ahogy Curve
Set crvs104 = CreateCurve (ActiveDocument)
A crvs104.CreateSubPath (x1, y1)
.AppendLineSegment x2, y2
végződésű
Set S104 = ActiveLayer.CreateCurve (crvs104)
k = k + 1
Következő i
End Sub
Látható, hogy a létrehozása a szegmens kódot (vett automatikus makrórögzítést a szegmens) áll 6 vonalak:
Dim crvs104 Ahogy Curve
Set crvs104 = CreateCurve (ActiveDocument)
A crvs104.CreateSubPath (x1, y1)
.AppendLineSegment x2, y2
végződésű
Set S104 = ActiveLayer.CreateCurve (crvs104)
ahol x1, y1 és x2, y2 - koordinátáit az elején és végén a szegmens.
A ciklus felépítése a következő:
I = 1 NUM
2. példa rendezése bust pontot egy egyenes vonal.
Sub Macro2 ()
Dim i As Integer
num = 25
r1 = -0.1
r2 = -0.1
r3 = 0,1
r4 = 0,1
x1 = 1
y1 = 1
x2 = 10
y2 = 7
TB = 1 / num
I = 0 A num
t = i * tb
X = (1 - T) * X1 + t * x2
y = (1 - T) * y1 + t * y2
Dim S45 alakjuk
Set S45 = ActiveLayer.CreateEllipse ((x + R1), (y + R2), (x + r3), (y + R4), 90 #, 90 #, False)
s45.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
Következő i
Dim S104 alakjuk
Dim crvs104 Ahogy Curve
Set crvs104 = CreateCurve (ActiveDocument)
A crvs104.CreateSubPath (x1, y1)
.AppendLineSegment x2, y2
végződésű
Set S104 = ActiveLayer.CreateCurve (crvs104)
End Sub
Mert a lényeg a kép és annak kitöltési színt használja a kódot:
Dim S45 alakjuk
Set S45 = ActiveLayer.CreateEllipse ((x + R1), (y + R2), (x + r3), (y + R4), 90 #, 90 #, False)
s45.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
3. példa Annak meghatározására, a minimális távolság a pont a szegmens. Itt található az FIT távolság a pont a szegmensben.
Itt ciklus (a teljes szöveg a makró 3 cm. Itt) (itt CorelDraw 10)
I = 0 A num
t = i * tb
X = (1 - T) * X1 + t * x2
y = (1 - T) * y1 + t * y2
Set S45 = ActiveLayer.CreateEllipse ((x + R1), (y + R2), (x + r3), (y + R4), 90 #, 90 #, False)
s45.Fill.UniformColor.CMYKAssign 0, 100, 100, 0
Set crvs104 = CreateCurve (ActiveDocument)
A crvs104.CreateSubPath (x, y)
.AppendLineSegment x3, y3
végződésű
Set S104 = ActiveLayer.CreateCurve (crvs104)
s = térnél ((x - x3) * (x - x3) + (y - y3) * (y - y3))
Set S46 = ActiveLayer.CreateEllipse ((x - R5), (s - R5 + 1), (x + R 5), (s + R5 + 1), 90 #, 90 #, False)
s46.Fill.UniformColor.CMYKAssign 0, 100, 100, 100
Ha s
Set S47 = ActiveLayer.CreateEllipse ((x - R5), (s - R5 + 2), (x + R 5), (s + R5 + 2), 90 #, 90 #, False)
s47.Fill.UniformColor.CMYKAssign 0, 100, 100, 100
End If
Következő i
A ciklus fordul elő:
- bust szegmensek attól a ponttól, hogy a vonal,
- válogatás pont a vonalon,
- mellszobor pontokat a CP az egész tartomány a létezés CP
- válogatás pont a FIT egy minimális távolságot egy pont a vonalon.
5. példa Moire a téren (Makro1)
6. példa Moire a háromszög (Makro2)
7. példa szóródott egy A4 kerülete véletlenszerűen véletlenszerű töltet.
8. példa: egy A4 létre három formák: kör, négyzet és háromszög véletlen kitölteni őket.
Hogyan lehet letölteni Macro Lásd CorelDraw. Fent.
Megjegyzés. Amikor a másolás rekdaktor CorelSCRIPT szövegek húrok lehet másolni a transzfer, ami hibát okozhat (ezeket a sorokat is sor kerül), így próbálja mozgatni a bal.
Beépített párbeszédpanelek: bemeneti és kimeneti ablakban
9. példa A beviteli ablakban írja be a nevét a kimeneti ablakban megjelenik a neve a két helyen meg egy grafikus kódot a működési területen.
Sub Macro1 ()
Dim ZF As String, zI As String
ZF = InputBox ( "Your Name", "belépési ablak")
Dim s alakjuk
S = ActiveLayer.CreateArtisticText (0, 0, zf)
a s.Text.FontProperties
.Name = "Arial" " "Arial Black" "TimesET"
.Méret = 40
végződésű
zI = "Boris"
Dim S1 Alak
MsgBox „Az Ön neve, barátom lenne:” zI
Set S1 = ActiveLayer.CreateArtisticText (2, 0, zI)
a s1.Text.FontProperties
.Name = "Arial"
.Méret = 40
végződésű
End Sub
Ha a grafikus munkára van szükség ahhoz, hogy GOST, különösen rajzok kell címpecsét. Minden alkalommal vonásai meglehetősen időigényes munka. Tárolhatja a rajz címe blokk .cdr méret és használni, de ez sokkal kényelmesebb, hogy egy makró, amely felhasználható a párbeszédben gyorsan regisztrálni
10. példa: Írjon egy makrót, amely automatikusan szolgálja alapján feliratos bevezetését a párbeszéd állandó és a változó adatok: név, a feladat számát, oldal, oldalak száma, a csoport nevét. Kezdve koordimnat bevezetett rendszer a jobb alsó sarokban.
Megoldás.
1. Kövesse a keretet, és töltse meg a lap, miközben script.
2. szervezi a bejegyzést, és kitölti a változtatható adatbeviteli párbeszédablak.
Jegyzőkönyv szövegbevitel a színpad nem rögzíti. Tehát először felhívni téglalapok (a bal alsó sarokban az elejére), majd vegye ezeket a koordinátákat, és azokkal helyettesíti a kódokat kimenet kívánt szöveget. Az alján a makró illusztrálja ezt a technikát.
Sub Macro2 ()
Dim S980 alakjuk
Set S980 = ActiveLayer.CreateRectangle (2,786543, 2,676874, 5,645953, 3,549236, 0, 0, 0, 0)
S3 = ActiveLayer.CreateArtisticText (2,786543, 2,676874, A "minta")
a s3.Text.FontProperties
.Name = "Arial"
.Méret = 24
végződésű
End Sub
Macro (CorelDraw11) épület a „nagy lemezkiadók” bevezetésével vezetéknevű a párbeszéd: aki végzett, aki ellenőrizte, a feladat számát, a csoport neve, verziószáma itt.
Osnovnuyunadpis makro adja meg az adatokat olyan formában .cdr letölthető innen.
Összefoglaló. Makrók segítségével automatizálható néhány ismétlődő jellegű szerkezetek grafikai munkák. Ez a készlet tartalmazza az alapvető elemei a makró: egy szakaszt, kör, téglalap, sokszög, stb
Egy másik, előre meghatározott tengely axonometrikus 5 szabvány axonometrikus nyúlványok (izometrikus, átmérők, és a frontális ferde izometrikus átmérőjű, vízszintes ferde izometrikus - légvédelmi vetítés) használt ábrázoló geometria és a szerkesztési.