Continue to Site

Welcome to MCAD Central

Join our MCAD Central community forums, the largest resource for MCAD (Mechanical Computer-Aided Design) professionals, including files, forums, jobs, articles, calendar, and more.

Serialization Macro for Siemens

paul_w

New member
Does anyone have a serialization macro for a Siemens controller? or know how to successfully convert the one below that run in a Fanuc control?
I need to serialize 4 numbers and have it incrementally go higher each time the Macro runs.
please see Fanuc example below:
Thanks in advance
paul

G65 P8999 B.15 D.06 E.1 F15.0

O8999(SERIALIZING MACRO)
G91
#3=[#2/2]
#104=1
#100=#2191(COPY,OFFSET,191)
#101=#2192(COPY,OFFSET,192)
#102=#2193(COPY,OFFSET,193)
#103=#2194(COPY,OFFSET,194)

N10GOTO#104

N1GOTO#100
N2GOTO#101
N3GOTO#102
N4GOTO#103

N30(ZER0)
G0G91Y[#2/4]
G1Z-#8F10.0(SINK,BY,E)
Y[#2/2]F#9
G2X#3I[#3/2]J0
G1Y-[#2/2]
G2X-#3I-[#3/2]
G1Y[#2/2]
G2X#3I[#3/2]
G1Y-[#2/2]
G2X-#3I-[#3/2]
G0Z#8(LIFT,OUT,BY,E)
X[#7+#3]Y-[#2/4]
GOTO50


N31(ONE)
G1Z-#8F10.0
X#3F#9
X-[#3/2]
Y#2
X-[#3/2]Y[-#2/4]
X[#3/2]Y[#2/4]
Y-#2
X-[#3/2]
G0Z#8
X[#7+#3]
GOTO50

N32(TWO)
Y[#2*0.75]
G1Z-#8F10.0
G2X[#3/2]Y-[#2/4]I[#3/2]J0F#9
G3X-[#3/2]Y-[#2/4]I0J-[#2/4]
G1Y-[#2/4]
X#3
X-#3
Y[#2/4]
G2X[#3/2]Y[#2/4]I[#3/2]J0
G3X-[#3/2]Y[#2/4]I0J[#2/4]
G0Z#8
X[#7+#3]Y-[#2*0.75]
GOTO50

N33(THREE)
Y#2
G1Z-#8F10.0
X#3F#9
X-[[#3/5]*3]Y-[[#2/5]*2]
G2X-[[#3/5]*2]Y-[[#2/10]*5.236]I0J-[[#2/10]*3]
G3X[[#3/5]*2]Y[[#2/10]*5.236]I[[#3/5]*2]J[[#2/10]*2.236]
G1X[[#3/5]*3]Y[[#2/5]*2]
X-#3
G0Z#8
X[#7+#3]Y-#2
GOTO50

N34(FOUR)
X[[#3/5]*4]
G1Z-#8F10.0
Y#2F#9
X-[[#3/5]*4]Y-[[#2/10]*7]
X#3
X-#3
X[[#3/5]*4]Y[[#2/10]*7]
Y-#2
G0Z#8
X[[#3/5]+#7]
GOTO50

N35(FIVE)
X#3Y#2
G1Z-#8F10.0
X-#3F#9
Y-[[#2/5]*2]
X[[#3/5]*2]
G2X-[[#3/5]*2]Y-[[#2/10]*5.236]I0J-[[#2/10]*3]
G3X[[#3/5]*2]Y[[#2/10]*5.236]I[[#3/5]*2]J[[#2/10]*2.236]
G1X-[[#3/5]*2]
Y[[#2/5]*2]
X#3
G0Z#8
X#7Y-#2
GOTO50

N36(SIX)
X#3Y#2
G1Z-#8F10.0
G3X-#3Y-[#2*0.75]I[#3*0.625]J-[#2*0.75]F#9
I[#3/2]J0
G2I[#3/2]
X#3Y[#2*0.75]I[#3*1.625]
G0Z#8
X#7Y-#2
GOTO50

N37(SEVEN)
G1Z-#8F10.0
X#3Y#2F#9
X-#3
X#3
X-#3Y-#2
G0Z#8
X[#7+#3]
GOTO50

N38(EIGHT)
X[#3/2]Y[#2/2]
G1Z-#8F10.0
G2I0J[#2/4]F#9
G3J-[#2/4]
G2J[#2/4]
G3J-[#2/4]
G0Z#8
X[[#3/2]+#7]Y-[#2/2]
GOTO50

N39(NINE)
G1Z-#8F10.0
G3X#3Y[#2*0.75]I-[#3*0.625]J[#2*0.75]F#9
I-[#3/2]J0
G2I-[#3/2]
X-#3Y-[#2*0.75]I-[#3*1.625]
G0Z#8
X[#3+#7]
GOTO50

N50#104=#104+1
IF[#104LE4]GOTO10
#103=#103+1
IF[#103LT40]GOTO99
#102=#102+1
#103=30
IF[#102LT40]GOTO99
#101=#101+1
#102=30
IF[#101LT40]GOTO99
#100=#100+1
#101=30
IF[#100LT40]GOTO99
#100=30
#101=30
#102=30
#103=31
N99
#2191=#100
#2192=#101
#2193=#102
#2194=#103
G90
M99
M30
 

Sponsor

Articles From 3DCAD World

Back
Top