547,565 active members*
2,529 visitors online*
Register for free
Login
IndustryArena Forum > CAM Software > Alphacam > Alphacam post cosmec CNC
Results 1 to 2 of 2
  1. #1
    Registered
    Join Date
    Dec 2011
    Posts
    9

    Alphacam post cosmec CNC

    hi,
    I need alphacam post for cosmec CNC .Anyone can share it?

  2. #2
    Registered
    Join Date
    May 2008
    Posts
    3

    Re: Alphacam post cosmec CNC

    $----------------------------- HEADER ---------------------------------------
    Customer : COSMEC
    Machine : CONQUEST 515
    Control : OSAI AB
    Database Name:
    Units : MM
    No of Axis : XYZA
    Coord System : ASSOLUTE
    Z-Axis : VERTICALE
    Contact :
    Tel :
    Fax :
    Dealer Name :TONI
    Post Author :
    Ver 1 Date :
    Notes :
    Last Edit :21_11_2005
    $------------------------- PROGRAM LEADING/TRAILING LINES -------------------
    $10 File LEADING lines
    ;DATA E ORA:[DAT]
    $LET DES_PRG = "?"
    ;NOME PROGRAMMA:[DES_PRG]
    ;TEMPO DI LAVORAZIONE:[TIM] secondi
    ;********************************************
    $LET ZSIC=1
    $LET MANDRI=0
    $LET COMPAR=0
    $LET COMPAR1=0
    $LET GRUFORI=0
    $LET MOVIX=0
    $LET MOVIY=0
    $LET MOVIZ=0
    $LET GRUP1=0
    $LET GRUP10=0
    $LET TAVOLA = "?"
    $IF TAVOLA=1
    $LET TAV=0
    $ENDIF
    $IF TAVOLA=2
    $LET TAV=4
    $ENDIF
    $LET SPESS = "?"
    $LL999
    $12 Main Program LEADING lines
    (AXO,-Z)
    E100=[SPESS] ;ALTEZZA PORTAPEZZO
    $15 Main Program TRAILING lines
    $17 File TRAILING Lines
    $IF TPD(1) = 1 GOTO 10 ''PANTOGRAFO
    $LET ZSIC=ZSIC+1
    G79 G0 Z[ZSIC]
    M25 M180
    (AXO,-Z)
    $GOTO 999
    $LL10
    M6T0
    $IF T>8
    M12
    M40
    $ENDIF
    $LL999
    $----------------------- RAPID MOVES ----------------------------------------
    $20 Rapid Move in XY (MILL/ROUTER/FLAME/LASER) or XZ (LATHE) only
    $If Pat(1)=2 goto 999
    $IF PAT(1)=1 GOTO 999
    $IF MC=1
    G0 [TC] X[GAX] Y[GAY]
    M11 M116
    M40
    $ELSE
    G0 X[GAX] Y[GAY]
    M11 M116
    M40
    $LL999
    $----------------------------------------------------------------------------
    $25 Rapid Move in Z only (MILL etc)
    $If Pat(1)=2 goto 999
    $IF PAT(1)=1 GOTO 999
    $IF MC+FRA=2
    G40
    G0 Z[GAZ]
    $ELSE
    G0 Z[AZ]
    $ENDIF
    $LL999
    $----------------------------------------------------------------------------
    $30 Lines BEFORE a rapid move if Z levels are not used eg Laser or Geometry
    $----------------------------------------------------------------------------
    $35 Lines AFTER a rapid move if Z levels are not used eg Laser or Geometry
    $----------------------- MACHINING FEED MOVES -------------------------------
    $40 Machining FEED lines
    $IF MC + IN = 2 ''M/C comp applies, and this is LEAD IN LINE
    G1 [TC] X[GAX] Y[GAY] Z[GAZ] F[F]
    $ELSEIF MC + OUT = 2 '' M/C comp applies, and this is LEAD OUT LINE
    [TC]
    G1 X[GAX] Y[GAY] Z[GAZ] F[F]
    $ELSE
    G1 X[GAX] Y[GAY] Z[GAZ] F[F]
    $ENDIF
    $LL99
    $----------------------------------------------------------------------------
    $50 Feed CW arc (APS will automatically limit arcs to 180 degrees maximum)
    $IF sqr ((IX*IX)+(IY*IY)) <.1 GOTO 3
    $IF sqr ((IX*IX)+(IY*IY)) > (R/50) GOTO 4
    $LL3
    G1 X[AX] Y[AY] F[F]
    $GOTO 99
    $LL4
    G2 X[AX] Y[AY] R[R] F[F]
    $LL99
    $----------------------------------------------------------------------------
    $60 Feed CCW arc
    $IF sqr ((IX*IX)+(IY*IY)) <.1 GOTO 3
    $IF sqr ((IX*IX)+(IY*IY)) > (R/50) GOTO 4
    $LL3
    G1 X[AX] Y[AY] F[F]
    $GOTO 99
    $LL4
    G3 X[AX] Y[AY] R[R] F[F]
    $LL99
    $------------------------ TOOL CHANGES --------------------------------------
    $70 Cancel current tool. Use [T] for current tool number if required.
    $75 Code for CLOCKWISE spindle rotation - entered into variable RT
    M13
    $76 Code for COUNTER-CLOCKWISE spindle rotation - entered into variable RT
    M14
    $80 Select new tool. Use [T] for new tool number, [S] for spindle speed.
    $IF pat(1)=2 goto 999
    $IF pat(1)=1 GOTO 66
    ''SE USO TESTA PANTOGRAFO
    $IF GRUFORI=1
    M180
    M25
    (AXO,-Z)
    $ENDIF
    $LET GRUFORI=0
    $LET MANDRI=MANDRI+1
    ;*** LAVORAZIONE CON ELETTROMANDRINO ***
    ;[TNM]
    (UOT,[TAV+1],X0,Y0,ZE100)
    M6T[T]
    M13 S[S]
    h[OFS]
    $LET GRUP1=1
    $IF T>8
    $LET GRUP10=1
    $ENDIF
    $GOTO 999
    $LL66
    $IF GRUFORI = 1 GOTO 69
    $LET MOVIX=0
    $LET MOVIY=0
    $LET MOVIZ=0
    $IF GRUP1=1
    M15
    M12 M115
    M40
    $ENDIF
    $IF GRUP10=1
    M6T0
    M12 M115
    M40
    $ENDIF
    (UOT,[TAV+2],X0,Y0,ZE100)
    $LET ZSIC=ZSIC+1
    G79 G0 Z[ZSIC]
    M23
    $LL69
    $LET GRUP1=0
    $LET GRUP10=0
    $LET GRUFORI=1
    $LET MANDRI=[MANDRI+PAT(6)+1]
    $LET DRITOL=MANDRI-PAT(6)
    M_STARTDEL
    (UIO,X[-MOVIX],Y[-MOVIY],Z[-MOVIZ]) ;ANNULLA
    M180
    $IF WVF=0
    $LET MOVIX=0
    $LET MOVIY=0
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA SUPERIORE
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,-Z)
    $ELSEIF WVF=1
    $LET MOVIX=0
    $LET MOVIY=-55
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA ANTERIORE
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,-Z,Y)
    $ELSEIF WVF=2
    $LET MOVIX=55
    $LET MOVIY=0
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA LATERALE DX
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,-Z,-X)
    $ELSEIF WVF=3
    $LET MOVIX=0
    $LET MOVIY=55
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA POSTERIORE
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,-Z,-Y)
    $ELSEIF WVF=4
    $LET MOVIX=-55
    $LET MOVIY=0
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA LATERALE SX
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,-Z,X)
    $ELSEIF WVF=5
    $LET MOVIX=0
    $LET MOVIY=0
    $LET MOVIZ=0
    $LET CORRE=[OFS]
    ;FACCIA INFERIORE
    (UIO,X[MOVIX],Y[MOVIY],Z[MOVIZ]) ;ATTIVA
    (AXO,Z)
    $ENDIF
    h[CORRE]
    $MODAL OFF
    G0 Z[HZW+100]
    $MODAL ON
    M_STOPDEL
    M_STARTDEF
    $LL85
    M[T(DRITOL)]
    $LET COMPAR=[T(DRITOL)]
    $LET COMPAR1=[T(DRITOL)]
    $LET DRITOL=DRITOL+1
    $IF DRITOL <= MANDRI GOTO 85
    M_STOPDEF
    $GOTO 999
    $LL998
    $MSG UTENSILE NON ASSEGNATO A NESSUN GRUPPO
    $EXIT
    $LL999
    $-------------------------- SUBROUTINES ------------------------------------
    $90 CALL subroutine. Use [SN] for subroutine number.
    N[N] M98 P[SN] (CALL SUB [SN])
    $----------------------------------------------------------------------------
    $100 BEGIN subroutine. Use [SN] for subroutine number.
    O[SN] (TOOL *T[T]* )
    $----------------------------------------------------------------------------
    $110 END subroutine
    N[N] M99 (END OF SUB [SN] )
    $------------------- REFERENCE ZERO or ORIGIN SHIFT -------------------------
    $120 Origin shift. Use [OX] and [OY] for values to shift by)
    N[N] G52 X[OX] Y[OY] 'ORIGIN SHIFT
    $----------------------------------------------------------------------------
    $130 Cancel Origin shift. [OX] and [OY] are values by which origin was shifted)
    N[N] G52 X0.0 Y0.0 'CANCEL ORIGIN SHIFT
    $----------------------- MACHINE TOOL COMPENSATION --------------------------
    $140 Code to CANCEL Machine Tool Compensation
    G40
    $141 Code for LEFT Machine Tool Compensation
    G41
    $142 Code for RIGHT Machine Tool Compensation
    G42
    $145 Percentage increase in blend radius for sharp internal corners
    0
    $146 Adjust G41/42 code at internal corners for tool radius (1 = yes 0 = no)
    0
    $147 Applica la compensazione sul rapido di approccio. (1=si 0=no)
    1
    $------------------------ DRILLING/TAPPING CYCLES ---------------------------
    [ZR] = Retract level, the Z level to rapid down to before feed down begins.
    [ZB] = Z value of the bottom of the hole, [ZP] = peck DISTANCE.
    [ZS] = Safe Rapid level, [ZM] = Material top. All values are ABSOLUTE.
    $200 CANCEL drill/tapping cycle
    $----------------------------------------------------------------------------
    DRILL cycle - traverse to next hole at SAFE RAPID level [ZS]
    $210 First Hole
    $If Pat(1)=2 goto 99
    $IF WVF = 0
    X[GAX] Y[GAY]
    Z[GAZ]
    G1 Z[GAZ-ZS+ZB] F[F]
    G0 Z[GAZ]
    $ELSEIF WVF = 1
    X[GAX] Y[GAY]
    Z [GAZ]
    Y[GAY]
    G1 Y[GAY+ZS-ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 2
    X[GAX] Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX-ZS+ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 3
    X[GAX] Y[GAY]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY-ZS+ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 4
    X[GAX] Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX+ZS-ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 5
    Z[GAZ]
    X[GAX] Y[GAY]
    G1 Z[GAZ-ZS+ZB] F[F]
    G0 Z[GAZ]
    $ENDIF
    $LL99
    $211 Next holes
    $If Pat(1)=2 goto 99
    $IF WVF = 0
    X[GAX] Y[GAY]
    G1 Z[GAZ-ZS+ZB] F[F]
    G0 Z[GAZ]
    $ELSEIF WVF = 1
    X[GAX]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY+ZS-ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 2
    Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX-ZS+ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 3
    X[GAX]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY-ZS+ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 4
    Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX+ZS-ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 5
    X[GAX] Y[GAY]
    G1 Z[GAZ-ZS+ZB] F[F]
    G0 Z[GAZ]
    $ENDIF
    $LL99
    $----------------------------------------------------------------------------
    DRILL cycle - traverse to next hole at RETRACT level [ZR]
    $214 First Hole
    $If Pat(1)=2 goto 99
    $IF WVF = 0
    X[GAX] Y[GAY]
    Z[GAZ]
    G1 Z[GAZ-ZR+ZB] F[F]
    G0 Z[GAZ]
    $ELSEIF WVF = 1
    X[GAX] Y[GAY]
    Z [GAZ]
    Y[GAY]
    G1 Y[GAY+ZR-ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 2
    X[GAX] Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX-ZR+ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 3
    X[GAX] Y[GAY]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY-ZR+ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 4
    X[GAX] Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX+ZR-ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 5
    X[GAX] Y[GAY]
    Z[GAZ]
    G1 Z[GAZ-ZR+ZB] F[F]
    G0 Z[GAZ]
    $ENDIF
    $LL99
    $215 Next holes
    $If Pat(1)=2 goto 99
    $IF WVF = 0
    X[GAX] Y[GAY]
    G1 Z[GAZ-ZR+ZB] F[F]
    G0 Z[GAZ]
    $ELSEIF WVF = 1
    X[GAX]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY+ZR-ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 2
    Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX-ZR+ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 3
    X[GAX]
    Z[GAZ]
    Y[GAY]
    G1 Y[GAY-ZR+ZB] F[F]
    G0 Y[GAY]
    $ELSEIF WVF = 4
    Y[GAY]
    Z[GAZ]
    X[GAX]
    G1 X[GAX+ZR-ZB] F[F]
    G0 X[GAX]
    $ELSEIF WVF = 5
    X[GAX] Y[GAY]
    G1 Z[GAZ-ZR+ZB] F[F]
    G0 Z[GAZ]
    $ENDIF
    $LL99
    $----------------------------------------------------------------------------
    PECKING cycle - traverse to next hole at SAFE RAPID level [ZS]
    $220 First hole
    G83 Z[ZB] R[ZR] I[ZP] J1 K1 F[F]
    X[AX] Y[AY]
    $221 Next holes
    X[AX] Y[AY]
    $----------------------------------------------------------------------------
    PECKING cycle - traverse to next hole at RETRACT level [ZR]
    $224 First hole
    G83 Z[ZB] R[ZR] I[ZP] J1 K1 F[F]
    X[AX] Y[AY]
    $225 Next holes
    X[AX] Y[AY]
    $----------------------------------------------------------------------------
    TAPPING cycle - traverse to next hole at SAFE RAPID level [ZS]
    $230 First hole
    G98 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F]
    $231 Next holes
    X[AX] Y[AY]
    $----------------------------------------------------------------------------
    TAPPING cycle - traverse to next hole at RETRACT level [ZR]
    $234 First hole
    G99 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F]
    $235 Next holes
    X[AX] Y[AY]
    $----------------------------------------------------------------------------
    BORING/REAMING/SPOT FACE etc - traverse to next hole at SAFE RAPID level [ZS]
    $240 First Hole
    G98 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F]
    $241 Next holes
    X[AX] Y[AY]
    $----------------------------------------------------------------------------
    BORING/REAMING/SPOT FACE etc - traverse to next hole at RETRACT level [ZS]
    $244 First Hole
    G99 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F]
    $245 Next holes
    X[AX] Y[AY]
    $-------------------------- GENERAL FORMATS ---------------------------------
    Separate modal values with spaces. More than one letter is OK eg X VX VY
    $500 Modal Text (Will not be repeated in following lines)
    G0 G1 G2 G3 G90 G55 G43 H
    $502 Modal ABSOLUTE Values (Will not be repeated if the VALUE is the same)
    X Y Z F
    $504 Modal INCREMENTAL Values (Will not be put into NC code if VALUE is ZERO)
    I J
    $510 X Y Z I J K values must have + as well as - signs (1 = yes, 0 = no)
    0
    $515 Use point <.> as decimal separator (1 = yes, 0 = use comma <,>)
    1
    $520 Put sub-routines at end of main program (1 = yes, 0 = put at start)
    1
    $525 Quadrant Limit arcs (1 = yes, 0 = Standard APS 180 degree limit)
    0
    $530 Output arcs as straight line segments (1 = yes, 0 = no)
    0
    $532 If arcs are straight line segments, give chord error (mm or inches)
    .1
    $540 Suppress Operations List, START and Comments in NC code (1 = yes, 0 = No)
    1
    'Set $560 - $580 all to 0 if machine is 3-axis.
    $560 4/5 axis Programming point: (1 = pivot, 0 = tool tip)
    0
    $562 4/5 axis Tool C/L offset from pivot point in X
    0
    $563 4/5 axis Tool C/L offset from pivot point in Y
    0
    $565 4/5 axis Tool holder length
    0
    $570 4/5 axis Max angle (degrees). Set to 0 to indicate 3 - axis machine.
    0
    $580 Is this a horizontal machining centre (1 = yes, 0 = no)
    1
    $-------------------------- NUMBER FORMATS ----------------------------------
    $700 SUBROUTINE Number format
    6
    $701 Leading figures
    0
    $702 Figures after point
    0
    $705 Subroutine start number
    1000
    $----------------------------------------------------------------------------
    $710 LINE NUMBER format
    6
    $711 Leading figures
    0
    $712 Figures after point
    0
    $715 Line start number
    10
    $716 Line number increment
    10
    $----------------------------------------------------------------------------
    $720 X Y Z values format
    2
    $721 Leading figures
    0
    $722 Figures after point
    3
    $----------------------------------------------------------------------------
    $730 ARC centre/radius format
    2
    $731 Leading figures
    0
    $732 Figures after point
    3
    $----------------------------------------------------------------------------
    $740 SPINDLE SPEED format
    6
    $741 Leading figures
    0
    $742 Figures after point
    0
    $743 Maximum Spindle Speed
    18000
    $----------------------------------------------------------------------------
    $750 MACHINING FEED format
    6
    $751 Leading figures
    0
    $752 Figures after point
    0
    $753 Maximum Feed Rate (Use mm/min or in/min as appropriate for this Post)
    40000 mm/min
    $----------------------------------------------------------------------------
    $760 TOOL NUMBER format
    3
    $761 Leading figures
    2
    $762 Figures after point
    0
    $------------------------ RAPIDS and TOOL CHANGE TIMES ----------------------
    Use mm/min or in/min as appropriate for this Post.
    $900 XY Rapid Speed
    40000 mm/min
    $901 Z Rapid Speed
    30000 mm/min
    $902 Time to change tool (seconds)
    10
    $--------------------------- USER VARIABLES ---------------------------------
    ALL user variables must be declared. Variable names can be up to 20 chars.
    Prompts can be up to 50 chars max and can include a default inside < >.
    Put (" ") as format for a text variable. Put ( ) as the format of any numeric
    variable which is to have the same format as X Y (Z) moves. If a different
    format is required, put (Format, Lead figs, Trail figs) eg (6,0,0) = Integer.

    $1000 VARIABLE (format) "Prompt <default>" '' Remark for your info.
    DES_PRG (" ") "NOME PROGRAMMA"
    TAVOLA () "QUALE PARTE DEL PIANO USI? 1=SX 2=DX <1>"
    TAV (6,0,0)
    ZSIC ()
    GRUP1 () ''QUANDO LAVORA CON PANTOGRAFO
    GRUP10 ()
    GRUFORI ()
    MANDRI ()
    DRITOL (6,0,0)
    COMPAR ()
    COMPAR1 ()
    MOVIX ( )
    MOVIY ( )
    MOVIZ ( )
    CORRE (6,0,0) ''CORRETTORE PER MULTIDRILL
    SPESS (3,0,0) "SPESSORE PORTAPEZZO O VENOSA <50>"
    $-------------------------- USER DEFINED CODE -------------------------------
    Prompts up to 50 chars max. Variable names up to 20 chars. Any $number in the
    range $1100 - $1119 can be used for each definition. First line after $number
    appears in the first dialog box. Lines up to first $ line appear in second
    dialog box. Lines up to next $ line will be added/inserted in NC program.

    $1100
    $ ------------------------- NC lines to be entered into program follow
    $3000
    1 = LicomUKDWMultiDrillMasterSlave
    2 = LicomUKDWMultiDrillSlaveNumbers
    3 = OffsetXToolMaster
    4 = OffsetYToolMaster
    5 = OffsetZToolMaster
    6 = NumberOfSlaves
    $ ---------------------- End of Post

Similar Threads

  1. Post for Alphacam (cosmec)
    By vojobozovic in forum Alphacam
    Replies: 2
    Last Post: 05-30-2021, 03:13 PM
  2. Buying first CNC router Cosmec Conquest 510
    By pauldavid86 in forum Southeast Region
    Replies: 5
    Last Post: 04-05-2020, 01:22 AM
  3. Buying first CNC router Cosmec Conquest 510
    By pauldavid86 in forum Commercial CNC Wood Routers
    Replies: 10
    Last Post: 12-09-2018, 08:09 PM
  4. Need to Techno CNC Alphacam post.
    By ramerturk in forum Techno CNC
    Replies: 3
    Last Post: 03-26-2012, 08:00 PM

Tags for this Thread

Posting Permissions

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