mistux
Site Admin
Joined: 25 Jun 2004
Posts: 1042
Location: South Bend, Indiana USA
|
 Posted: Thu Jul 01, 2004 5:54 pm Post subject: Here is a G-Code Macro for Serializing Numbers |
 |
|
THE FOLLOWING PROGRAMS AND VARIBLES WILL BE USED ON YOUR MACHINE THE VARIBLES ARE FOUND UNDER "SETTING PAGE" "ARROW LEFT"
YOU WILL NEED TO CHANGE THE VARIBLES AS FOLLOWS TO START YOUR PROGRAMS WITH THE CORRECT SERIAL NUMBER. IF YOU CHANGE, THE NUMBERS DO NOT RETURN TO WHERE THEY LEFT OFF. THEY CONTINUE TO COUNT FROM THAT NUMBER.
YOU WILL HAVE TO CHANGE THE MONTH & YEAR. THERE IS NO WAY NO "AUTOLOAD" THAT VARIBLE.
TO LOAD/READ PROGRAMS INTO MACHINE, MAKE SURE THAT PARAMETER #3202 BIT 4 IS A "0". AFTER LOADING PROGRAMS, MAKE SURE THAT THIS PARAMETER IS SET TO "1".
PRORAMS USED
| Code: |
O9509 MAIN SUB
O9510 NUMBER 0 ENGRAVING PROGRAM
O9511 NUMBER 1 ENGRAVING PROGRAM
O9512 NUMBER 2 ENGRAVING PROGRAM
O9513 NUMBER 3 ENGRAVING PROGRAM
O9514 NUMBER 4 ENGRAVING PROGRAM
O9515 NUMBER 5 ENGRAVING PROGRAM
O9516 NUMBER 6 ENGRAVING PROGRAM
O9517 NUMBER 7 ENGRAVING PROGRAM
O9518 NUMBER 8 ENGRAVING PROGRAM
O9519 NUMBER 9 ENGRAVING PROGRAM
VARIBLES USED
#528=3. PLUNGE FEEDRATE
#529=5. MILLING/SCRIBING FEEDRATE
SERIAL NUMBERS
(READING LEFT TO RIGHT)
#530=0 1 DIGIT SERIAL NUMBER MOST LEFT
#531=1 2 DIGIT SERIAL NUMBER
#532=0 3 DIGIT SERIAL NUMBER
#533=1 4 DIGIT SERIAL NUMBER
#534=0 5 DIGIT SERIAL NUMBER
#535=5 6 DIGIT SERIAL NUMBER MOST RIGHT
#536=0 1 DIGIT MONTH
#537=1 2 DIGIT MONTH
#538=0 1 DIGIT YEAR
#539=3 2 DIGIT YEAR
***************end of instructions*************************
%
O0001( DRILL RIFLE PROGRAM )
( 1 PM 12/30/2002 )
( G54 X0= CENTER OF ENGRAVING )
( G54 Y0= CENTER OF ENGRAVING )
( G54 Z0= TOP OF ENGRAVING SURFACE )
( G54 B0= FLAT ENGRAVING SURFACE )
T1
M6
N100( T1 = WHAT EVER )
G0
M6
N200( T2 = WHAT EVER )
G0
M6
N300( T3 = WHAT EVER )
G0
M6
N400( T4 = ENGRAVING TOOL )
G54
G65P9509
G0G90
M6
N500( T5 = WHAT EVER )
G0
M6
M30
%%%%%%%%%%%%%%%%%%%%%
O9509( DAISY ENGRAVING PROGRAM )
N100( T1 = ENGRAVING TOOL )
G0G40G90X.3754Y.4463B0S1200M3
G43H1Z.1M8
M10
#528=3.( PLUNGE FEEDRATE )
#529=5.( PLUNGE FEEDRATE )
G1Z-.005F#528
Y.2478F#529
G2X.1754I-.1
G1Y.4463
G2X.1842Y.455I.0088
X.1928Y.4478J-.0088
G1X.1949Y.4358
G3X.2045Y.4278I.0096J.0017
*********
N154X-.2707Y-.2211
G1Z-.005F3.
X-.375Y-.1909F5.
G0Z.1
( MACRO )
( SERIAL NUMBER )
G0G90X-.2128Y.315
G65P[910+#520]
G65P[910+#521]
G65P[910+#522]
G65P[910+#523]
G65P[910+#524]
G65P[910+#525]
( LOT NUMBERS )
G0G90X-.3734Y.0154
G65P[910+#526]
G65P[910+#527]
G65P[910+#528]
G65P[910+#529]
N1#525=#525+1
IF[#525 GE 10]THEN #524=#524+1
IF[#525 GE 10]THEN #525=0
IF[#524 GE 10]THEN #523=#523+1
IF[#524 GE 10]THEN #524=0
IF[#523 GE 10]THEN #522=#522+1
IF[#523 GE 10]THEN #523=0
IF[#522 GE 10]THEN #521=#521+1
IF[#522 GE 10]THEN #522=0
IF[#521 GE 10]THEN #520=#520+1
IF[#521 GE 10]THEN #521=0
IF[#520 GE 10]THEN #3000=1( SERIAL NUMBER TO HIGH )
M99
O910( NUMBER 0 )
G91X.0081Y-.0656
G1G90Z-.005F3.
G2G91X-.0004Y.0258I.0292J.0134F5.
X.0245Y.0164I.026J-.0124
X.0523Y.0001I.0266J-.1564
X.0256Y-.0157I-.0028J-.0333
X-.0002Y-.0266I-.0276J-.013
X-.025Y-.0159I-.0291J.0182
X-.0517Y-.0002I-.0266J.1507
X-.0251Y.0161I.0029J.0321
G0G90Z.1
G91X-.0081Y-.0394G90
M99
O911( NUMBER 1 )
G91X.0864Y-.0388
G1G90Z-.005F3.
G3G91X.0211Y-.0276I.0989J.0536F5.
G1X.0045
X-.1040
G0G90Z.1
G91X-.008Y-.0386G90
M99
O912( NUMBER 2 )
G91X.0939Y-.0243
G1G90Z-.005F3.
G91X.0038Y-.0014F5.
X.0075Y-.0057
X.0059Y-.0119
X.001Y-.0098
X-.0017Y-.0111
X-.0003Y-.0011
X-.0078Y-.0111
X-.0083Y-.0045
X-.0071Y-.0011
X-.0116Y.0025
X-.0111Y.0069
X-.0012Y.0009
X-.02Y.0203
X-.0146Y.0163
X-.0065Y.0057
X-.0126Y.0070
X-.0015Y.0007
Y-.0621
G0G90Z.1
G91X-.0078Y-.0212G90
M99
O913( NUMBER 3 )
G91X.0956Y-.0245
G1G90Z-.005F3.
G2G91X.0107Y-.0063I-.01J-.0291F5.
X-.0021Y-.0411I-.0204J-.0195
X-.0225Y-.0042I-.0156J.0206
X-.0159Y.0167I.0121J.0274
G1X-.0007Y.0080
X.0007Y-.0080
G2X-.0076Y-.0155I-.0302J.0052
X-.0289Y-.0085I-.0221J.0219
X-.0247Y.0372I.0065J.0312
X.0198Y.0236I.0289J-.0042
G0G90Z.1
G91X-.0244Y-.0824G90
M99
O914( NUMBER 4 )
G91X.0357Y-.0864
G1G90Z-.005F3.
G91Y.0678F5.
X.0055
X.0698Y-.0539
X-.1031
G0G90Z.1
G91X-.0079Y-.0325G90
M99
O915( NUMBER 5 )
G91X.1104Y-.0768
G1G90Z-.005F3.
G91Y.0431F5.
X-.0461Y.0092
X-.0008Y-.0071
G2X.0106Y-.0188I-.018J-.0225
X-.0165Y-.03I-.0311J-.0024
X-.0431Y.0047I-.0172J.0422
X-.0103Y.0242I.0202J.0229
X.0202Y.0291I.0284J.0018
G0G90Z.1
G91X-.0244Y-.0826G90
M99
O916( NUMBER 6 )
G91X.0955Y-.0808
G1G90Z-.005F3.
G3G91X.0101Y.0065I-.0124J.0302F5.
X.0085Y.0203I-.017J.019
X-.0117Y.0219I-.0264J-.0001
X-.0226Y.01I-.0394J-.0585
X-.0371Y.0019I-.0231J-.0891
X-.0196Y-.0054I.0107J-.0783
X-.015Y-.0409I.0158J-.029
X.0507Y-.0123I.0311J.0172
X.0121Y.03I-.0173J.0244
X-.0368Y.0269I-.0376J-.0128
G0G90Z.1
G91X-.0341Y-.0831G90
M99
O917( NUMBER 7 )
G91X.1104Y-.0221
G1G90Z-.005F3.
G91Y-.0608F5.
X-.0050
G3X-.049Y.03I-.2037J-.2781
X-.0485Y.013I-.06J-.1266
G0G90Z.1
G91X-.0079Y-.0651G90
M99
O918( NUMBER 8 )
G91X.0667Y-.0548
G1G90Z-.005F3.
G3G91X.0081Y-.0173I.0274J.0024F5.
X.0316Y.0016I.0151J.0137
X.0001Y.0371I-.0245J.0187
X-.0304Y.0018I-.0161J-.0136
X-.0096Y-.0206I.018J-.0208
G2X-.0002Y-.0075I-.0327J-.0026
X-.0344Y-.0231I-.0317J.0101
X-.0277Y.0306I.0032J.0308
X.0309Y.0302I.0308J-.0006
X.0314Y-.0302I-.0013J-.0328
G0G90Z.1
G91X-.0665Y-.0528G90
M99
O919( NUMBER 9 )
G91X.0813Y-.0831
G1G90Z-.005F3.
G2G91X-.0319Y.0214I.0028J.0386F5.
X.0044Y.0303I.0287J.0114
X.0251Y.0097I.0224J-.0207
X.0304Y-.016I.0001J-.0366
X.0006Y-.0274I-.0256J-.0143
X-.0222Y-.0171I-.0304J.0166
X-.0527Y.0005I-.025J.1514
X-.03Y.0319I.0043J.0341
X.0177Y.0254I.0262J.0007
G0G90Z.1
G91X-.0227Y-.0806G90
M99
%
|
Hope you all find this usefull.  However:
PLEASE NOTE: That I have not fully tested this and make no claims or warrenties about its correctness. Use it at your own risk. 
Legal stuff: I provide this "As Is" and make no express guarantees that it will work and/or will work on your machine. It is intended as a guide and as with all programs should be fully tested before it is ran. |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
