Există mai multe opțiuni.
Cel mai simplu (pentru imprimante, dar nu pentru mașini de frezat) este utilizarea combinării Imprimare. Dar dacă îmi amintesc corect, merzh date variabile nu numai în coada de imprimare, dar, de asemenea, pentru a stoca în aspectul (o pagină) - 15 versiune, 13 va rula într-o parte. Deci, în versiunea 15 puteți aranja cu ușurință un model de toate lor de 350 nomerkov, împreună cu logo-ul și alte linii necesare - cel mai important, dreptul de a crea un șablon.
Dar, din experiență, camere manual vbivka nu o astfel de ocupație lungă, și modul manual, de obicei, este câștigul pe care plăcile de înmatriculare sunt combinate bucăți de mărime (de exemplu, pe cm piesei 30x40, 25 buc.), Care va da un avantaj în timp decât al numerotat nomerkov macro din nou de fiecare dată pentru a colecta locația de pe piesa de prelucrat.
Odată ce au rezolvat următoarea problemă: pe gravorul cu laser s-au făcut 1000 de numere. În funcție de locație, a fost posibil să se execute 100 de numere pe ciclu. Ați făcut un șablon de aspect pe foaie, împreună cu numirea formularului "Ж01". "Ж99", "000". Apoi salvat ca șablon, din șablon prin funcția "căutați și înlocuiți" înlocuiește tot "F" mai întâi cu "1", apoi cu "2" etc. au primit 10 machete pentru 100 de numere în câteva minute.
Dar, în orice caz, la 350 de probleme, automatizarea procesului ar putea să nu aibă o plată în timp cu introducerea manuală a datelor.
Abordarea este literară. Și că "în special dreptate" -
Dar, în orice caz, la 350 de probleme, automatizarea procesului ar putea să nu aibă o plată în timp cu introducerea manuală a datelor.
350 de numere din cifre sunt 939 de obiecte. Chiar și pentru a le distribui pe șablon, aveți nevoie de timp. În plus, lungimea fiecărui număr este diferită. Pe scurt, nu am înțeles beneficiile muncii manuale. Iată o macrocomandă, înregistrată luând în considerare distragerile la domiciliu timp de 15-20 minute (deși algoritmul a fost inventat mai devreme, în timp ce terciul a fost gătit pentru copil). Debugging - încă 10 minute, mi-aș fi dat manual 350 de numere în această perioadă. Da, și această lucrare este dureroasă.
9 se definește manual parametrii - lățimea și înălțimea piesei, intervalele dintre coloane și rânduri, numărul de un rând și o coloană din dreapta câmpului și de sus și distanța dintre numere de caractere.
Pentru depanare, am luat 10 cifre de la 0 la 9, transformându-le în curbe și alinându-le pe foaie în ordine (1 = 0, 2 = 1 etc.). Nu aveam goluri, așa că m-am uitat cum s-au aliniat. Se pare bine.
Opțiunea Base 0
Opțiune explicită
Dim arr ()
Dimpotrivă, atâta timp, cât mai mult, iNumber la fel de mult, iPags cât mai mult, iC la fel de mult, iR la fel de mult
Dim iCmax la fel de lung, iRmax ca lung
Dimensiunea ca formă, d ca formă
Dim x Ca dublu, Ca dublu, Ca dublu, Ca dublu, Plecare dubla, xinterval Ca dubla, Interioara dubla, Shi As Double
Dim x0 Ca dublu, y0 Ca dublu, xAb Ca dublu, wi1 Ca dublu, xpole Ca dublu, ypole Ca dublu
Dim Stri ca șir
ActiveDocument.ReferencePoint = cdrCenter
ActiveDocument.Unit = cdrMillimeter
el = 120
wi = 120
iCmax = 5
iRmax = 10
xinterval = 15
yinterval = 20
xpole = 14
ypole = 14
otstup = 5
îngheța
ReDim arr (9)
Pentru i = 0 până la 9
Setați arr (i) = ActivePage.ActiveLayer.Shapes (i + 1)
Înainte i
iR = 1
iPages = 1
Pentru iNumber = 1 la 350
Shi = 0
Stri = iNumber
Pentru i = 1 Pentru Len (Stri)
i1 = Mid (Stri, i, 1)
Shi = Shi + arr (i1) .SizeWidth + out
Înainte i
Shi = Shi - out
Setați d = ActiveDocument.Pages (iPages) .Layers (1) .Paste
d.SetPosition x, y0
xAb = xAb + s.SizeWidth / 2 + out
Înainte i
Următorul număr
End Sub
Freeze - această linie trebuie eliminată, deoarece aceasta este chemarea mea la o altă procedură (procesare rapidă)
y0 = iR * (he + yinterval) + ypol
este necesar: y0 = (iR-1) * (he + yinterval) + ypol + he / 2
x0 = iC * (wi + xinterval) + xpol
este necesar: x0 = (iC - 1) * (wi + xinterval) + xpole + wi / 2
xAb = x0 + Shi / 2
Este necesar: xAb = x0 - Shi / 2
xAb = xAb + s.SizeWidth / 2 + out
aveți nevoie de: xAb = x + s.SizeWidth / 2 + outstup