584,833 active members*
5,497 visitors online*
Register for free
Login
Results 1 to 4 of 4
  1. #1
    Join Date
    Jan 2007
    Posts
    24

    Esprit post for Citizen C-32

    Does anybody have citizen c-32 post for Esprit?

  2. #2
    Join Date
    Mar 2007
    Posts
    56
    i've got one marked for an e-32 which might be adaptable.

  3. #3
    Join Date
    Mar 2007
    Posts
    56
    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 ***********************************

  4. #4
    Join Date
    Sep 2016
    Posts
    14

    Re: Esprit post for Citizen C-32

    I'm looking as well. Is a Meldas 600 control. The E-32 is not working for me.
    Anyone have some post close to so we can modify ?

Similar Threads

  1. Need a Esprit post processor
    By Xecus in forum Esprit
    Replies: 3
    Last Post: 01-06-2016, 11:57 AM
  2. Replies: 2
    Last Post: 08-06-2013, 03:09 PM
  3. Esprit post help
    By Old toolmaker in forum Esprit
    Replies: 2
    Last Post: 08-10-2012, 08:16 PM
  4. esprit post for hermle c30
    By raraya in forum Esprit
    Replies: 0
    Last Post: 02-22-2010, 08:49 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •