Hogyan készüljünk Corel elrendezés 350 nomerkov kérdésekre CorelDRAW - világ cnc - ventilátorok fórum
Van több lehetőség.
A legegyszerűbb (nyomtatók, de nem marógép) - Az Print Merge. De ha jól emlékszem, merzh változó adatok nem csak a nyomtatási sorba, hanem tárolja az elrendezés (egy oldal) - 15 változat, 13 fog futni fonák. Így a 15 verzió könnyen rendezni a minta minden 350 nomerkov együtt logó és más szükséges sorokat - ami a legfontosabb a jogot, hogy hozzon létre egy sablont.
De a tapasztalat, kézi vbivka szoba nem olyan hosszú foglalkozás, és a kézi üzemmód általában az erősítést, rendszámtáblák egyesített méretű darabokra (például a munkadarab 30x40 cm, 25 db.), Ami ad előnyt időben, mint a számozott makró nomerkov újra minden alkalommal, hogy összegyűjti a helyét a munkadarabon.
Miután megoldotta a következő probléma - lézergravírozó nem 1000 nomerkov. A helyen volt képes futtatni 100 nomerkov ciklusban. Lemezből készült sablont a numratsiey típus „ZH01”. "ZH99", "000". Ezután Mentés sablonként a sablon funkció „keresés és csere” felváltja az összes „F” az első „1” és „2”, stb Kaptunk 10 elrendezések a 100 szoba percben.
De minden esetben, 350 szoba folyamatautomatizálási kérdéseket nem lehet nyerő időpontjában az adatok kézi vbivkoy.
Alkalmas az illetékes. És ez a „különleges jog” -
De minden esetben, 350 szoba folyamatautomatizálási kérdéseket nem lehet nyerő időpontjában az adatok kézi vbivkoy.
350 nomerkov számok, képek - ez 939 objektumokat. Még a sablon terjeszteni őket, ez időt vesz igénybe. Ezen túlmenően, a hossza az egyes szoba különböző. Röviden, nem értem az előnyeit kézi munkát. Itt írt makrók, tekintettel a hazai otvlekany 15-20 perc (bár az algoritmus előtt kitalálták, amíg főtt kása gyermek). Hibakeresés - akár 10 perc alatt azt kell manuálisan 350 szoba ebben az időben nem kell határozni. És tyagomotnoe ezt a munkát.
9 van definiálva kézzel paraméterek - szélessége és magassága a munkadarab közötti időszakban oszlopok és sorok száma egy sorban és egy oszlopban a jobb oldalon a területen, és a felső és egymástól való távolsága karakter számokat.
A hibakeresés volt 10 számjegy 0-9, átkonvertálni görbék és átrendezve őket abban a sorrendben a lap (1 = 0 2 = 1, stb). Tuskó én nem, így csak mintha éppen sorakoznak. Úgy tűnik, minden rendben van.
Option Base 0
Option Explicit
Dim arr ()
Dim i As Long, i1 As Long, iNumber As Long, iPages As Long, iC As Long, iR As Long
Dim iCmax As Long, Irmax As Long
Dim s az alak, d alakjuk
Dim x As Double, y As Double, ő As Double, wi As Double, otstup As Double, xinterval As Double, yinterval As Double, Shi As Double
Dim x0 As Double, y0 As Double, Xab As Double, wi1 As Double, xpole As Double, ypole As Double
Dim Stri As String
ActiveDocument.ReferencePoint = cdrCenter
ActiveDocument.Unit = cdrMillimeter
ő = 120
wi = 120
iCmax = 5
Irmax = 10
xinterval = 15
yinterval = 20
xpole = 14
ypole = 14
otstup = 5
fagy
ReDim arr (9)
I = 0-tól 9
Set arr (i) = ActivePage.ActiveLayer.Shapes (i + 1)
Következő i
iR = 1
iPages = 1
A iNumber = 1 és 350
Shi = 0
Stri = iNumber
I = 1 Len (Stri)
I1 = Mid (Stri, i, 1)
Shi = Shi + arr (I1) .SizeWidth + otstup
Következő i
Shi = shi - otstup
Set d = ActiveDocument.Pages (iPages) .Layers (1) .Paste
d.SetPosition x, y0
Xab = Xab + s.SizeWidth / 2 + otstup
Következő i
Következő iNumber
End Sub
Freeze - ezt a sort el kell távolítani, mert ez az én döntésem, hogy egy másik eljárás (feldolgozás gyorsulás)
y0 = iR * (He + yinterval) + ypole
Meg kell lennie: y0 = (iR - 1) * (He + yinterval) + ypole + HE / 2
x0 = iC * (Wi + xinterval) + xpole
kell lennie: x0 = (Ic - 1) * (Wi + xinterval) + xpole + Wi / 2
Xab = X0 + Shi / 2
szükséges: Xab = x0 - Shi / 2
Xab = Xab + s.SizeWidth / 2 + otstup
szükséges: Xab = x + s.SizeWidth / 2 + otstup