Esprit post for Citizen C-32

[crocnc]

Does anybody have citizen c-32 post for Esprit?

[kesparate]

i've got one marked for an e-32 which might be adaptable.

[kesparate]

not sure the attachment worked so text below this line. copy and paste to .asc





Citizen E32 Lathe w/ Fanuc Controller
Saved as citizene32.asc
04-01-97 by M. Smesik
M. Smesik

***************************** SYSTEM VARIABLES ****************************

POSTNAME : Citizen

PROGRAMNUMBERDEFAULT: 1
NCODEINCREMENT : 10
NCODEDEFAULT : 0

MACHINETOLERANCE : 0.0001
STEPTOLERANCE : 0.0001

MAXCIRCLERADIUS : 9999

INCHCONVFACTOR : 1
METRICCONVFACTOR : 1

XYRAPIDRATE : 100

ZSTART : 0
XSTART : 0

ZHOME : 0
XHOME : 0

ZPRESENT : 0
XPRESENT : 0

***************************** MACHINE MODES ********************************

COORDINATEMODE : ABSOLUTE
MEASUREMENTMODE : INCH
CIRCLEMODE : FULLCIRCLE
CENTERMODE : INCREMENTFROMSTART
RADIALVALUEMODE : DIAMETRAL

***************************** FORMATABLE DIMENSIONS *************************

PROGRAMNUMBER : O Y 4 N N 0 Y 4 N N 0 0 - - - -
SEQUENCENUMBER : N N 4 N N 0 Y 4 N N 0 0 - - - -
STARTSEQUENCENUMBER : P Y 4 N N 0 Y 4 N N 0 0 - - - -
ENDSEQUENCENUMBER : Q_ Y 4 N N 0 Y 4 N N 0 0 - - - -
XABSOLUTE : X N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
ZABSOLUTE : Z N 3 Y N 4 N 5 Y N 3 12 1 N 0 0
YABSOLUTE : Y N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
ZPLANE : Z_ N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
CLEARANCE : R_ N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
XCENTERABSOLUTE : I N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
ZCENTERABSOLUTE : K N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
PECK : Q N 3 N Y 4 N 5 Y N 3 1 1 N 0 0
CIRCLERADIUS : R N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
TOOLNUMBER : T Y 4 N N 0 Y 4 N N 0 0 1 N 0 0
SPINDLESPEED : S N 4 N N 0 N 4 N N 0 0 1 N 0 0
MAXIMUMRPMVALUE : S_ N 4 N N 0 N 4 N N 0 0 1 N 0 0
SFPMSPINDLESPEED : S__ N 4 N N 0 N 4 N N 0 0 - - - -
XSTOCKPARAMETER : W N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
YSTOCKPARAMETER : U N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
LEADVALUE : F_ N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
TOOLANGLE : A N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
XYFEEDRATE : F N 3 Y N 2 N 4 Y N 3 0 1 N 0 0
XYCHIPFEEDRATE : F__ N 3 Y N 4 N 1 Y N 3 0 1 N 0 0
STEP : D_ N 3 N Y 4 N 5 Y N 3 1 1 N 0 0
RADIALDIFFERENCE : I_ N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
POLARANGLE : C N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
TAPER : H N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
POWER : K_ N 3 Y Y 4 N 5 Y N 3 1 1 N 0 0
MISCFORMAT1 : N_ N 4 N N 0 Y 4 N N 0 0 - - - -
MISCFORMAT2 : G04_U N 3 Y N 4 N 5 Y N 3 1 1 N 0 0
MISCFORMAT5 : Y_ N 3 Y N 4 1 5 Y 1 3 1 1 N 0 0
***************************** SYMBOLIC CODES *******************************

MOTIONRAPID : G00
MOTIONLINEAR : G01
MOTIONCW : G02
MOTIONCCW : G03
DWELL : G04
XYPLANE : G17
ZXPLANE : G18
YZPLANE : G19
INCH : G20
METRIC : G21
IRETURN : G28
CONSTANTTHREAD : G32
VARIABLETHREAD : G34
COMPENSATIONOFF : G40
COMPENSATIONLEFT : G41
COMPENSATIONRIGHT : G42
ZERORETURN : G50
FINISH : G70
STOCKREMOVALTURNING : G71
STOCKREMOVALFACING : G72
GROOVEALONGZ : G74
GROOVEALONGX : G75
CANNEDTHREAD : G76
ABSOLUTE : G90
INCREMENTAL : G91
SETORIGIN : G53
FEEDPERMINUTE : G98
FEEDPERREVOLUTION : G99
CONSTANTSURFACE : G96
REVOLUTIONPERMINUTE : G97
CANCEL : G80
DRILL1 : G81
PECK1 : G83
TAP1 : G84
BORE1 : G85
PECK2 : G87
TAP2 : G88
BORE2 : G89



PROGRAMSTOP : M00
OPTIONALSTOP : M01
ENDPROGRAM : M02

SPINDLECW : M04
SPINDLECCW : M03
SPINDLEOFF : M05
AUXSPINDLECW : M58
AUXSPINDLECCW : M59
AUXSPINDLEOFF :
LIVESPINDLECW : M17
LIVESPINDLECCW : M18
LIVESPINDLEOFF :
LIVEAUXSPINDLECW :
LIVEAUXSPINDLECCW :
LIVEAUXSPINDLEOFF :

CHUTECLOSED :
CHUTEOPEN :

CHUTETOMAIN :
CHUTETOAUX :
CHUTETOMID :

CHUCKOPEN : M07
CHUCKCLOSED : M06





COOLANTON : M52
COOLANTOFF : M53
REWINDSTOP : M30
TAILSTOCKIN : M31
TAILSTOCKOUT : M32
LOWRANGE : M37
MIDRANGE : M38
HIGHRANGE : M39
SPRANGE4 : M44
COMMENTSTART : (
COMMENTEND : )
PERCENTSIGN : %

CGEARENGAGE : M200
CGEARDISENGAGE : M202

MISCSYMBOLICCODE1 :
MISCSYMBOLICCODE2 :
MISCSYMBOLICCODE3 :
MISCSYMBOLICCODE4 :

MACROSTART :
MACROEND : M99
CALLMACRO :

SIDEINTERPOLATEON : G16
SIDEINTERPOLATEOFF :

FACEINTERPOLATEON : G17
FACEINTERPOLATEOFF :

********************************** EXAMPLES ********************************

*** NEXTCLFILE(497)= 0 --> Main Spindle
*** 1 --> Aux Spindle
***
*** NEXTCLFILE(262)= 1 --> Face Work
*** 2 --> Diameter
***
*** NEXTCLFILE(672)= 0 --> Polar Interpolation Off
*** 1 --> Polar Interpolation On
***

VARIABLE : test Ypickflag StockDiam Ypick
VARIABLE : cutoffflag ### Flag for cutoff
variable : Swapaxis ## Swap Axis Z ---> Y
variable : LiveTool

define Aux1 NextClfile(631)
define StockDi NextClfile(381)

DEFINE Ypick IF ($Aux1 = 1) Z*(1.23) Ypickflag=(1) \\
ELSE Z*(.23) Ypickflag=(0) ENDIF

DEFINE Mzhome IF ($Aux1 = 1 ) Z*(1.23) ELSE Z*(.23) ENDIF

define OutputZ IF (Swapaxis = 0) Z ELSE \\
Y_(nextdim(3)) NCOUTPUTOFF Z NCOUTPUTON ENDIF


define PartEject
: N "T2300 G99 M52"
: N "M34"
: N "T0100"
: N "G96 S175 M03"
: N "X1.28 W1.470 Y0.0"
: N "G01 X-.150 F.002"
: N M05*
: N "M07"
: N "G00 Z1.220"
ENDDEFINE

DEFINE CutoffToolOffset0
: N "T2300 G99 M52"
: N "G50 W-.16 S2200"
: N "G96 S200 M03 F.001"
: N "G00 X.475 Z1.91 T0101"
: N "M32"
: N "G01 X-.150"
: N "M00"
: N "M33"
: N "G50 W-.16"
: N M05*
: N "M07"
: N "G00 Z-0.02"
ENDDEFINE


DEFINE CutoffYPickup

: N "G50 W-1.410 S1950"
: N "G00 X1.225 Z0.662 Y1.5 T0101"
: N "T2100"
: N "Y0.0"
: N "G98 G01 Y0.0 F50.0"
: N "M15 "
: N "G97 S150 M03"
: N "G96 S200 M03"
: N "G99 G01 X-.15 F.002"
: N "G97 M05"
: N "S01 M23"
: N "M50"
: N "G00 X3.5 W-1.450 Y3.0 T0100"
: N "G50 W1.410"
: N "M01"
ENDDEFINE


DEFINE Cutoff
: N "T2300 G99 M52"
: IF (Ypickflag=(1)) ### Part Eject
: N "M34"
: N "T0100"
: N "G96 S175 M03"
: N "X1.28 W1.470 Y0.0"
: N "G01 X-.150 F.002"
: N M05*
: N "M07"
: N "G00 Z1.220"
: ELSE ### Cutoff Tool Offset = 0
: N "G50 W-.16 S2200"
: N "G96 S200 M03 F.001"
: N "G00 X.475 Z1.91 T0101"
: N "M32"
: N "G01 X-.150"
: N "M00"
: N "M33"
: N "G50 W-.16"
: N M05*
: N "M07"
: N "G00 Z-0.02"
: ENDIF
: cutoffflag=(1)
ENDDEFINE





DEFINE Reset_feed
: NCOUTPUTOFF
: F*(0) F__*(0) S*(0) S__*(0)
: NCOUTPUTON
ENDDEFINE

DEFINE Drill_Dwell IF ((cyclecode = 2053) && (dwellt <> 0)) \\
N G04_U*(dwellt) ENDIF
define TestforSwap
: IF (nextclfile(497)= 1)
: Swapaxis=(1)
: N "G50 U2.0 V0.0 ( Y-TOUCH )"
: ENDIF
enddefine

define TestforLiveTool
: IF ((nextcyclecode = 1033) || \\ ###3x Lathe Drill
(nextcyclecode = 1034) || \\ ###3x Lathe Contour
(nextcyclecode = 1035) || \\ ###3x Lathe CPocket
(nextcyclecode = 2054) || \\ ###3x M Lathe Drill
(nextcyclecode = 2055) || \\ ###3x M Lathe Contour
(nextcyclecode = 2056)) \\ ###3x M Lathe CPocket
LiveTool=(1) \\
ELSE \\
LiveTool=(0) \\
ENDIF
enddefine

EX_FIRSTRAPID : N G00 X $OutputZ C
: $Drill_Dwell

EX_RAPID : N G00 X $OutputZ C
: $Drill_Dwell

EX_LINEAR : N G01 X $OutputZ C F F__ COOLANTCODE
EX_CIRCLEZX : N CIRCLEDIRECTION X $OutputZ C R* F F__ COOLANTCODE

EX_STOCKREMOVALTURN : COMMENT
: N G00* X*(xnext) Z*(znext)
: N STOCKREMOVALCODE* P*(snc - (1 * ncodeincrement)) Q_*(enc - (3 * ncodeincrement)) U* W* D_* F F__*

EX_STOCKREMOVALFACE : COMMENT
: N G00* X*(xnext) Z*(znext)
: N STOCKREMOVALCODE* P*(snc - (1 * ncodeincrement)) Q_*(enc - (3 * ncodeincrement)) U* W* D_* F F__*

EX_REMOVALCANCEL :

EX_GROOVE : COMMENT
: N GROOVECYCLECODE* X Z I K(peckincrement) F F__*

EX_CANNEDTHREAD : COMMENT
: N G76* X* Z* I_* K*(depth) D_*(initialdepth) F_*(lead) A*

EX_CONSTANTTHREAD : COMMENT
: N G32* X Z F

EX_VARIABLETHREAD : COMMENT
: N G34* X Z F

EX_FINISH : COMMENT
: N G70* P*(snc - (1 * ncodeincrement)) Q_*(enc - (3 * ncodeincrement))

EX_TECHNOLOGYCHANGE : COMMENT
: N PROGRAMMODE

EX_DRILLSTART : COMMENT
: N G00 X Z
EX_DRILLBODY : N G01* Z_* F*
: N G00* Z*



EX_TAPSTART : COMMENT
: N G84* X*(0) Z* F F__
EX_TAPBODY : N G84 X(0) Z* F F__
EX_TAPCANCEL : N G00*

## Peck Drill on Face,
EX_PECKSTART : COMMENT
: N G74* X*(0) Z* K_*(peckincrement) F F__
EX_PECKBODY : N G74 X (0) Z K_(peckincrement) F F__
EX_PECKCANCEL : N G00*



EX_PECK2START : COMMENT
: N G83* X Z C R_* Q* F F__
EX_PECK2BODY : N G83 X Z C R_ Q F F__
EX_PECK2CANCEL : N G80*


EX_TAPSTART : COMMENT
: N G84* X*(0) Z* F F__
EX_TAPBODY : N G84 X(0) Z* F F__
EX_TAPCANCEL : N G00*

EX_BORESTART : COMMENT
: N G85* X*(0) Z* F F__
EX_BOREBODY : N G85 X(0) Z* F F__
EX_BORECANCEL : N G00*


EX_TAP2START : COMMENT
: N G88* X*(0) Z* F F__
EX_TAP2BODY : N G88 X(0) Z* F F__
EX_TAP2CANCEL : N G00*


EX_BORE2START : COMMENT
: N G00 X Z
EX_BORE2BODY : N G89* R_*
: N G89* W*(depth) Q* F*



EX_STARTCODE :

EX_MAINSTART :

EX_SETORIGIN : O
: SETORIGINCOMMENT
: StockDiam=(($StockDi + .05)/2)

EX_ENDCODE : IF (Swapaxis = 1) N "G50 U-2.0 V0.0" ENDIF
: N "M25"
: N M00
: IF (cutoffflag = 0)
: N G00 X*(StockDiam) ### Z*(znext)
: IF (Swapaxis = 1) Y*(3) ELSE Z T*(100*presenttool) ENDIF
: N M01*
$Cutoff
: ENDIF
: N M53*
: N M02*
: N M99*


EX_CYCLESTART COMMENT

EX_CYCLEEND : N

EX_FIRSTTOOLCHANGE :
: N G99* M52*
: N G50* X*(-.15 / 2) $Ypick Y*(yhome) S_*
: N M06*
: N G00* X*(3.5 / 2) Z*(.03)
: N M01*
: BLANKLINE
: TOOLCHANGECOMMENT
: BLANKLINE
: IF (nextcyclecode= 1023) EXITEXAMPLE ENDIF ### CUTOFF
: N_*(presenttool) T*(presenttool * 100) FEEDUNIT* \\
COOLANTCODE*
$TestforLiveTool
: IF (LiveTool = 1) N "G50 U2.0 W-.6" ENDIF
: N SPINDLEUNIT* S S__ SPINDLEDIRECTION* F F__
: IF (LiveTool = 1) N "G28 H1.0" ENDIF
: IF (LiveTool = 1) N "G50 C0.0" ENDIF
: N G00* X*(StockDiam) Z*(.03) \\
T*(100*presenttool+lengthcompensation)
$TestforSwap


EX_OTHERTOOLCHANGE :
: BLANKLINE
: TOOLCHANGECOMMENT
: BLANKLINE
: IF (nextcyclecode= 1023) EXITEXAMPLE ENDIF ### CUTOFF
: N_*(presenttool) T*(presenttool * 100) FEEDUNIT* \\
COOLANTCODE*
$TestforLiveTool
: IF (LiveTool = 1) N "G50 U2.0 W-.6" ENDIF
: N SPINDLEUNIT* S S__ SPINDLEDIRECTION* F F__
: IF (LiveTool = 1) N "G28 H1.0" ENDIF
: IF (LiveTool = 1) N "G50 C0.0" ENDIF
: N G00* X*(StockDiam) Z*(znext) \\
T*(100*presenttool+lengthcompensation)
$TestforSwap

EX_LASTTOOLCHANGE :
: BLANKLINE
: TOOLCHANGECOMMENT
: BLANKLINE
: IF (nextcyclecode= 1023) EXITEXAMPLE ENDIF ### CUTOFF
: N_*(presenttool) T*(presenttool * 100) FEEDUNIT* \\
COOLANTCODE*
$TestforLiveTool
: IF (LiveTool = 1) N "G50 U2.0 W-.6" ENDIF
: N SPINDLEUNIT* S S__ SPINDLEDIRECTION* F F__
: IF (LiveTool = 1) N "G28 H1.0" ENDIF
: IF (LiveTool = 1) N "G50 C0.0" ENDIF
: N G00* X*(StockDiam) Z*(znext) \\
T*(100*presenttool+lengthcompensation)
$TestforSwap

EX_TOOLCANCEL : IF (Swapaxis = 1) N "G50 U-2.0 V0.0" ENDIF
: IF (LiveTool = 1) N "G50 U-2.0 W.6" ENDIF
: N X*(3.5 / 2) \\
IF (Swapaxis = 1) Y*(3) ELSE Z*(presdim(3) + .05) ENDIF \\
T*(100*presenttool) \\
IF (LiveTool = 1) "M05" ENDIF
: N M01*
: cutoffflag=(0)
: Swapaxis=(0)

EX_CUTOFFSTART $Cutoff
: NCOUTPUTOFF


EX_CUTOFFEND : NCOUTPUTON




EX_PARTPICKUP :

EX_PARTRELEASE :
: N M05*
: N M07*



EX_INLINENCCODE :

EX_AUXCYCLE :




EX_FACESEG : N G01 X Y F F__ COOLANTCODE

EX_FACESEG : N

EX_FACEARC : N

EX_AUXCYCLE :





EX_FACEON : IF (nextclfile(672) = 1)
: N "G12.1"
: N G17
: ENDIF

EX_FACESEG : N G01 X Y F F__ COOLANTCODE

EX_FACEARC : N

EX_FACEOFF : IF (nextclfile(672) = 1)
: N "G13.1"
: ENDIF





EX_SIDEON : N "G12.1"
: N G18 C*(presmisc(202) / 2)

EX_SIDEARC : N


EX_SIDEOFF : N "G13.1"





***************************** END EXAMPLES ***********************************