Serial Numbering

[tss]

Does anyone have a good C-hook or something to create serial numbers (txt)without having to create Letters for each number every time.

Apparently Edgecam keeps the original Note, which can be updated and reprojected as geometry for the next toolpath regen.

Any advice will be welcome.

Regards

Bob Hill TSS

[Goldorak]

i will ask the same question

 

i also had to engrave SN frequently

[Allan Brown]

There some macro-based Fanuc programs being shared on the main forum. Final code, vs. something in Mastercam.

[Matthew Hajicek - Singularity]

Here ya go:

 

code:

---

 %

O1234(SERIAL#S,FOR,TEKNA-SEAL,10618)

(10-5-06)(MDH)

 

(#524=0) (REMOVE,PARENTHESESE)

(#525=1) (AND,SET,DIGITS,HERE)

(#526=2) (PUT,PARENTHESESE,BACK)

(#527=2) (FOR,AUTO,INCREMENT)

 

N13(ENGRAVING,POINT,OR,1/32,E/M)

T13M6

M1

 

N900 G0G90G54X-0.075Y0.55S6500M3 (<----POSITION HERE FOR 1ST NUMBER)

(FIND FIRST DIGIT)

IF[#524EQ0]GOTO 10

IF[#524EQ1.]GOTO 11

IF[#524EQ2.]GOTO 12

IF[#524EQ3.]GOTO 13

IF[#524EQ4.]GOTO 14

IF[#524EQ5.]GOTO 15

IF[#524EQ6.]GOTO 16

IF[#524EQ7.]GOTO 17

IF[#524EQ8.]GOTO 18

IF[#524EQ9.]GOTO 19

#3000=99(SETTING ERROR)

M00

N10M98P4000

GOTO 925

N11M98P4001

GOTO 925

N12M98P4002

GOTO 925

N13M98P4003

GOTO 925

N14M98P4004

GOTO 925

N15M98P4005

GOTO 925

N16M98P4006

GOTO 925

N17M98P4007

GOTO 925

N18M98P4008

GOTO 925

N19M98P4009

GOTO 925

 

N925 G0G90G54X-.025Y0.55 (<----POSITION HERE FOR 2ND NUMBER)

(FIND 2ND DIGIT)

IF[#525EQ0]GOTO 20

IF[#525EQ1.]GOTO 21

IF[#525EQ2.]GOTO 22

IF[#525EQ3.]GOTO 23

IF[#525EQ4.]GOTO 24

IF[#525EQ5.]GOTO 25

IF[#525EQ6.]GOTO 26

IF[#525EQ7.]GOTO 27

IF[#525EQ8.]GOTO 28

IF[#525EQ9.]GOTO 29

#3000=99(SETTING ERROR)

M00

N20M98P4000

GOTO 950

N21M98P4001

GOTO 950

N22M98P4002

GOTO 950

N23M98P4003

GOTO 950

N24M98P4004

GOTO 950

N25M98P4005

GOTO 950

N26M98P4006

GOTO 950

N27M98P4007

GOTO 950

N28M98P4008

GOTO 950

N29M98P4009

GOTO 950

 

N950 G0G90G54X.025Y0.55 (<----POSITION HERE FOR 3RD NUMBER)

(FIND 3RD DIGIT)

IF[#526EQ0]GOTO 30

IF[#526EQ1.]GOTO 31

IF[#526EQ2.]GOTO 32

IF[#526EQ3.]GOTO 33

IF[#526EQ4.]GOTO 34

IF[#526EQ5.]GOTO 35

IF[#526EQ6.]GOTO 36

IF[#526EQ7.]GOTO 37

IF[#526EQ8.]GOTO 38

IF[#526EQ9.]GOTO 39

#3000=99(SETTING ERROR)

M00 N30M98P4000

GOTO 975

N31M98P4001

GOTO 975

N32M98P4002

GOTO 975

N33M98P4003

GOTO 975

N34M98P4004

GOTO 975

N35M98P4005

GOTO 975

N36M98P4006

GOTO 975

N37M98P4007

GOTO 975

N38M98P4008

GOTO 975

N39M98P4009

 

N975 G0G90G54X0.075Y0.55 (<----POSITION HERE FOR 4TH NUMBER)

(FIND FIRST DIGIT)

IF[#527EQ0]GOTO 40

IF[#527EQ1.]GOTO 41

IF[#527EQ2.]GOTO 42

IF[#527EQ3.]GOTO 43

IF[#527EQ4.]GOTO 44

IF[#527EQ5.]GOTO 45

IF[#527EQ6.]GOTO 46

IF[#527EQ7.]GOTO 47

IF[#527EQ8.]GOTO 48

IF[#527EQ9.]GOTO 49

#3000=99(SETTING ERROR)

M00

N40M98P4000

GOTO 980

N41M98P4001

GOTO 980

N42M98P4002

GOTO 980

N43M98P4003

GOTO 980

N44M98P4004

GOTO 980

N45M98P4005

GOTO 980

N46M98P4006

GOTO 980

N47M98P4007

GOTO 980

N48M98P4008

GOTO 980

N49M98P4009

GOTO 980

 

(UPDATE AND TEST COUNTERS)

N980

#527=#527+1

IF [#527 LT 10.] GOTO 985

#527=0 #526=#526+1

IF [#526 LT 10.] GOTO 985

#526=0 #525=#525+1

IF [#525 LT 10.]GOTO 985

#525=0 #524=#524+1

IF [#524 LT 10.] GOTO 985

#524=0

N985M9G91G28Z0M19

M30

 

 

O4000

(ZERO)

G91G0X.014Y-.0202

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

G3Y.0404I-.0556J.0202

X-.028I-.014J-.005

Y-.0404I.0556J-.0202

X.028I.014J.005

G1Z.035F100.

G0Z.07

M99

 

O4001

(ONE)

G91G0X-.0086Y-.03

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

X.0172

Z.035F100.

G0Z.07

X-.0086

Z-.07

G1Z-.035F5.

Y.06

X-.0086Y-.0086

Z.035F100.

G0Z.07

M99

 

O4002

(TWO)

G91G0X-.0166Y.0214

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

G2X.0148Y.0086I.0148J-.0085

G1X.0013

G2X.0172Y-.0164I0.J-.0171

X-.0045Y-.0107I-.0172J.0008

X-.0154Y-.0115I-.0926J.108

G3X-.0147Y-.0214I.0139J-.0254

G1X.0358

Z.035F100.

G0Z.07

M99

 

O4003

(THREE)

G91G0X-.0171Y.0214

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

G2X.0149Y.0086I.0149J-.0087

G1X.0022

G2X.0125Y-.0047I0.J-.0189

X.0046Y-.0103I-.0091J-.0103

X-.0127Y-.0149I-.0151J0.

G1X-.0043

X.0043

G2X.0136Y-.0151I-.0015J-.0151

X-.0047Y-.0103I-.0137J0.

X-.0124Y-.0047I-.0124J.0142

G1X-.004

G2X-.0149Y.0086I0.J.0173

G1Z.035F100.

G0Z.07

M99

 

O4004

(FOUR)

G91G0X.0111Y-.03

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

Y.06

X-.031Y-.0459

X.0398

Z.035F100.

G0Z.07

M99

 

O4005

(FIVE)

G91G0X-.0188Y-.0215

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

G3X.0034Y-.0038I.016J.0106

X.0126Y-.0047I.0126J.0144

G1X.0027

G3X.0163Y.0095I0.J.0188

X-.0007Y.0205I-.017J.0097

X-.007Y.0062I-.0151J-.0101

X-.0101Y.0024I-.0101J-.0203

X-.0172Y-.0051I-.0011J-.0277

G1Y.0265

X.0363

Z.035F100.

G0Z.07

M99

 

O4006

(SIX)

G91G0X-.0164Y-.0165

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

G2X.0343Y-.0012I.0173J.0042

X-.0343Y.0012I-.017J.0055

X.0012Y.0342I.0512J.0153

X.0325Y.0033I.0169J-.0055

G1Z.035F100.

G0Z.07

M99

 

O4007

(SEVEN)

G91G0X-.018Y.03

G90G43H1Z.1

G91Z-.07

G1Z-.035F5.

X.036

G3X-.018Y-.06I.091J-.06

G1Z.035F100.

G0Z.07

M99

 

O4008

(EIGHT)

G91G0X-.0019Y.0021

G43H1Z.1

G91Z-.07

G1Z-.035F5.

G2X-.0065Y.0263I0.J.014

X.0065Y.0016I.0065J-.0123

G1X.0038

G2X.0139Y-.0139I0.J-.0139

X-.0139Y-.014I-.0139J0.

G1X-.0038

G3X-.0133Y-.0252I0.J-.016

X.0133Y-.0069I.0133J.0092

G1X.0038

G3X.0161Y.0161I0.J.0161

X-.0161Y.016I-.0161J0.

G1Z.035F100.

G0Z.07

M99

 

O4009

(NINE)

G91G0X-.0173Y-.021

G43H1Z.1

G91Z-.07

G1Z-.035F5.

G3X.0325Y.0033I.0156J.0088

X.0012Y.0342I-.05J.0189

X-.0343Y.0012I-.0173J-.0043

X.0343Y-.0012I.017J-.0054

G1Z.035F100.

G0Z.07

M99

%

---

[Goldorak]

Matt i do the same thing as you but for okuma

 

i only want to know if thers is a way to do it easily in MC

[Matthew Hajicek - Singularity]

I would say not. Mastercam doesn't do Macro B programming.

[tss]

Hi Guys,

Many thanks for your help.

Unfortunately, we have to project the letters etc onto a multisurface, before toolpathing.

Hoping to keep the original txt as a note that can be edited quickly and re projected onto the surfaces.

regards

bob

[Matt Sumner]

One technique is to store the programs for engraving the numbers(0-9) individually on the control as subs of a main G-code program(a library) and use the sequential numbering macro to call the appropriate sub. If the style, size or orientation of the numbers has to change all you have to do is replace the library program by quickly toolpathing the new numbers in Mastercam and saving them as subs in the new library program.

 

Hope this helps.

[Chad 73]

I have made toolpaths in the my library which have the geometry stored with them. Now when i need to put a number on something i bring in the toolpath from library and reposition the numbers in the order i need them where i need them. I typically only have a single or double digit cavity ID though so that makes it pretty simple for me to do this. For long part numbers i still make letters and give it a tool path.

[KRESIMIR]

I have program for engraving serial number, number, and letters (for FANUC). LINEAR ENGRAVING, ROTATION (CW AND CCW) ENGRAVING.

My e-mail [email protected]