Alphacam Disc Cutting Post Processor

Dear Alphacam Professionals,

I am using Alphacam for Disc Cutting, with a 4 axis machine with disc.

I do the CAD in the positive X&Y region, and after do the cutting with disc, I postprocess the NC, and the problem is noticed:

The output gcode, includes minus X measurements, while the work is all in the positive X side.

I tried to select a milling tool and see the output gcode, there were no problem for the normal tool, only the problem appears when using a DISC tool.


I attach here photos for the problem, please help me, how to get the good output values of the GCODE.

Best Regards,

Need look post.

Here Is the PostProcessor :



Database Name: Alpha Standard 5 ax Mill or Router
Control : CNC 787 L
Machine : MAKA LPF
Units : MM
Axes Used : XYZAB
Coord.System : Absolute
X Axis : Normal
Y Axis : Normal
Z-Axis : Normal
Customer :
Contact :
Tel :
Fax :
Dealer Name :
Post Author : D.WILLIAMS
Ver 1 Date : 29/10/96
Notes : Example Post only, for use in training sessions.
Edit History :

$----------------------------------------------------------------------------

Notes and remarks that are to appear in the NC code (but NOT be sent to the machine)
should be preceded by ' (a single apostrophe)
Notes and remarks that are local to the Post for your information only should be
preceded by '' (TWO single apostrophes)

$------------------------- PROGRAM LEADING/TRAILING LINES -------------------
$10 File LEADING lines
$LET FIRST_FEED = 1
%
$LET FIRST_TOOL = 1
$12 Main Program LEADING lines
P[PROGNUM]
N[N] ([FNM])
N[N] G0 G47 G53 F3000 S1300 T1 M6 P948:163.5;P949:0;Z-10
N[N] M81 M11 X200. Y1300. A0. B0.
N[N] M0 M81 M5
N[N] M81 M10
$15 Program TRAILING lines
N[N] M29
$17 File TRAILING Lines
#
$----------------------- RAPID MOVES ----------------------------------------
$20 Rapid Move in XY (MILL/ROUTER/FLAME/LASER) or XZ (LATHE) only
$IF ABS(TAX) + ABS(TAY) = 0
$LET ANGLE_A = 0
$LET ANGLE_B = 0
$ELSE
$LET ANGLE_A = (ATAN2(TAY,TAX)) + 90
$LET ANGLE_B = ATAN2(SQR(TAX**2+TAY**2),TAZ)
$ENDIF
$IF ANGLE_A > 270
$LET ANGLE_A = ANGLE_A - 360
$ENDIF
N[N] G0 X[AX] Y[AY] Z[AZ] A[ANGLE_A] B[ANGLE_B]
$LET FIRST_FEED = 1
$----------------------------------------------------------------------------
$21 3D Rapid Move in XYZ (MILL/ROUTER ONLY)
$IF ABS(TAX) + ABS(TAY) = 0
$LET ANGLE_A = 0
$LET ANGLE_B = 0
$ELSE
$LET ANGLE_A = (ATAN2(TAY,TAX)) + 90
$LET ANGLE_B = ATAN2(SQR(TAX**2+TAY**2),TAZ)
$ENDIF
$IF ANGLE_A > 270
$LET ANGLE_A = ANGLE_A - 360
$ENDIF
N[N] G0 X[AX] Y[AY] A[ANGLE_A] B[ANGLE_B]
N[N] Z[AZ]
$LET FIRST_FEED = 1
$----------------------------------------------------------------------------
$25 Rapid Move in Z only (MILL etc)
$IF FIRST_RAPID = 1
$LET FIRST_RAPID = 0
$ELSE
N[N] G0 Z[AZ]
$ENDIF
$LET FIRST_FEED = 1
$----------------------------------------------------------------------------
$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 ABS(TAX) + ABS(TAY) = 0
$LET ANGLE_A = 0
$LET ANGLE_B = 0
$ELSE
$LET ANGLE_A = (ATAN2(TAY,TAX)) + 90
'' ****** ANGLE A = [ANGLE_A] [(ATAN2(-TAX,TAY))+180]
$LET ANGLE_B = ATAN2(SQR(TAX**2+TAY**2),TAZ)
$ENDIF
$IF ANGLE_A > 270
$LET ANGLE_A = ANGLE_A - 360
$ENDIF
$IF FIRST_FEED = 1 GOTO 10
$IF ABS(ANGLE_A) < 45 GOTO 10
$IF ANGLE_A < 0
$LET NEW_SIGN = -1
$ELSE
$LET NEW_SIGN = 1
$ENDIF
$IF NEW_SIGN > OLD_SIGN
$LET ANGLE_A = ANGLE_A - 360
$ELSEIF NEW_SIGN < OLD_SIGN
N[N] M00
N[N] (WARNING A AXIS NEEDS TO UNWIND)
N[N] (DRIVE CUTTER CLEAR OF JOB)
N[N] G91 X0. Y0. Z150.(EDIT THIS LINE)
N[N] G90 A[ANGLE_A] B[ANGLE_B] F[F]
N[N] G91 X0. Y0. Z-150.M81 [ROT]
N[N] G90 G1 X[AX] Y[AY] Z[AZ] A[ANGLE_A] B[ANGLE_B] F[F]
$GOTO 20
$ENDIF
''
$LL10
''
N[N] G1 X[AX] Y[AY] Z[AZ] A[ANGLE_A] B[ANGLE_B] F[F]
$LL 20
$IF ANGLE_A < 0
$LET OLD_SIGN = -1
$ELSE
$LET OLD_SIGN = 1
$ENDIF
$LET FIRST_FEED = 0
$----------------------------------------------------------------------------
$50 Feed CW arc (APS will automatically limit arcs to 180 degrees maximum)
N[N] G2 X[AX] Y[AY] R[R] F[F]
$----------------------------------------------------------------------------
$60 Feed CCW arc
N[N] G3 X[AX] Y[AY] R[R] F[F]
$------------------------ TOOL CHANGES --------------------------------------
$70 Cancel current tool. Use [T] for current tool number if required.
$MODAL OFF
$75 Code for CLOCKWISE spindle rotation - entered into variable RT
M3
$76 Code for COUNTER-CLOCKWISE spindle rotation - entered into variable RT
M4
$80 Select new tool. Use [T] for new tool number, [S] for spindle speed.
$IF FIRST_TOOL = 1
$LET FIRST_TOOL = 0
N[N] G49 S[T][S] M81[ROT]
N[N] G54 T[T] M6 P1313;P1314;P1315;P1316;P1317;P685:1;
$ELSE
N[N] G49 S[T][S] M81[ROT]
N[N] T[T] M6
$ENDIF
$LET FIRST_RAPID = 1
$----------------------------------------------------------------------------
$88
''WORK PLANE
$----------------------------------------------------------------------------
$89 Used when Tool and Work Plane are changed at the same time (and $582=2)
' Change Tool and Work Plane at same time
$-------------------------- 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.
:[SN] 'BEGIN SUB [SN]
$----------------------------------------------------------------------------
$110 END subroutine
N[N] M99 'END 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
' Codes above will be assigned to TC for each path.
$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)
1
$147 Comp can be applied on Rapid Approach (1 = Yes 0 = No)
0
' $147=1 is only a flag to indicate that the code in $20 and $25 is correct if comp
' is asked for on the rapid approach. It does NOT force this to happen. For
' comp to be applied on rapid approach, the Apply Comp on Rapid Approach check
' box must be set to YES for each operation. If set, MC=1 in $20 & $25 and
' MC = 0 in $40, 50 and 60, so code for $40, 50 and 60 does not have to be changed.
'
$148 G41/42 is possible in 5-axis machining along spline or polyline (1=Yes 0=No).
0
' Note that the Post has to have the correct code in $40. Post variable TCF = 1
' if G41/42 is selected when AlphaCAM is used, TCX, TCY, TCZ give the tool displacement
' vector. CPX, CPY, CPZ give the contact point on the polyline. See Help File.
$----------------------- COOLANT OFF/MIST/FLOOD/TOOL CODES ------------------

Codes given in $150 to $153 are assigned to CLT by APS at start of each path.
$150 Code for Coolant OFF

$151 Code for MIST Coolant
M8
$152 Code for FLOOD Coolant
M8
$153 Code for Coolant THROUGH TOOL
M8
$------------------------ 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.

For LINEAR code use $210/211, $214/215 etc. For SUBROUTINES use $205/206 for
X/Y values and $212/216 etc to set Z levels etc before calling the subroutine.

$200 CANCEL drill/tapping cycle
N[N] M09 ''Turn coolant OFF
N[N] G80
$----------------------------------------------------------------------------
$205 First Hole in SUBROUTINE. NOTE $205/206 apply to ALL drill/peck etc cycles
N[N] X[AX] Y[AY]
$206 Next holes in Subroutine
N[N] X[AX] Y[AY]
$----------------------------------------------------------------------------
DRILL cycle - traverse to next hole at SAFE RAPID level [ZS]
$210 First Hole
N[N] G98 G81 X[AX] Y[AY] Z[ZB] R[ZR] F[F] [CLT] ''CLT = Coolant Code
$211 Next holes
N[N] X[AX] Y[AY]
$212 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G98 G81 Z[ZB] R[ZR] F[F] [CLT]
$----------------------------------------------------------------------------
DRILL cycle - traverse to next hole at RETRACT level [ZR]
$214 First Hole
N[N] G99 G81 X[AX] Y[AY] Z[ZB] R[ZR] F[F] [CLT] ''CLT = Coolant Code
$215 Next holes
N[N] X[AX] Y[AY]
$216 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G99 G81 Z[ZB] R[ZR] F[F] [CLT]
$----------------------------------------------------------------------------
PECKING cycle - traverse to next hole at SAFE RAPID level [ZS]
$220 First hole
N[N] G98 G83 X[AX] Y[AY] Z[ZB] R[ZR] Q[ZP] F[F] [CLT] ''CLT = Coolant Code
$221 Next holes
N[N] X[AX] Y[AY]
$222 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G98 G83 Z[ZB] R[ZR] Q[ZP] F[F] [CLT]
$----------------------------------------------------------------------------
PECKING cycle - traverse to next hole at RETRACT level [ZR]
$224 First hole
N[N] G99 G83 X[AX] Y[AY] Z[ZB] R[ZR] Q[ZP] F[F] [CLT] ''CLT = Coolant Code
$225 Next holes
N[N] X[AX] Y[AY]
$226 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G99 G83 Z[ZB] R[ZR] Q[ZP] F[F] [CLT]
$----------------------------------------------------------------------------
TAPPING cycle - traverse to next hole at SAFE RAPID level [ZS]
$230 First hole
N[N] G98 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F] [CLT] ''CLT = Coolant Code
$231 Next holes
N[N] X[AX] Y[AY]
$232 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G98 G84 Z[ZB] R[ZR] F[F] [CLT]
$----------------------------------------------------------------------------
TAPPING cycle - traverse to next hole at RETRACT level [ZR]
$234 First hole
N[N] G99 G84 X[AX] Y[AY] Z[ZB] R[ZR] F[F] [CLT] ''CLT = Coolant Code
$235 Next holes
N[N] X[AX] Y[AY]
$236 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G99 G84 Z[ZB] R[ZR] F[F] [CLT]
$----------------------------------------------------------------------------
BORING/REAMING/SPOT FACE etc - traverse to next hole at SAFE RAPID level [ZS]
$240 First Hole
N[N] G98 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F] [CLT] ''CLT = Coolant Code
$241 Next holes
N[N] X[AX] Y[AY]
$242 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G98 G82 Z[ZB] R[ZR] P[DW] F[F] [CLT]
$----------------------------------------------------------------------------
BORING/REAMING/SPOT FACE etc - traverse to next hole at RETRACT level [ZS]
$244 First Hole
N[N] G99 G82 X[AX] Y[AY] Z[ZB] R[ZR] P[DW] F[F] [CLT] ''CLT = Coolant Code
$245 Next holes
N[N] X[AX] Y[AY]
$246 Set PARAMETERS before Subroutine call (APS will insert Subroutine call)
N[N] G99 G82 Z[ZB] R[ZR] P[DW] F[F] [CLT]
$-------------------------- 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
$502 Modal ABSOLUTE Values (Will not be repeated if the VALUE is the same)
X Y Z A C 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
$526 Output arcs as one move (1 = Yes, 0 = No - split arcs >= 180)
0
$527 Output HELICAL (XYZ) arcs as straight line segments (1 = Yes, 0 = No)
0
' 530 Determines which PLANAR arcs are output as straight line segments.
$530 0=None, 1=All, 2=All Except Horizontal (XY), 3=Except Horizontal and Vertical (YZ or XZ)
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)
0
'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
100
$570 4/5 axis Max angle (degrees). Set to 0 to indicate 3 - axis machine.
90
$580 Use Multi-Planes or Multi-Datums (1 = Yes, 0 = No)
1
$582 Multi-Plane or Datums: Select Work Plane BEFORE/AFTER Tool Change
0
'582 is for when Work Plane and Tool are changed AT SAME TIME
' 0 = Select Tool before Work Plane (Use $80 then $88)
' 1 = Select Work Plane before Tool Change (Use $88 then $80)
' 2 = Change both at same time (Use $89 only)
$584 Orientation of Local X or Y axis. 0=Don't care, 1=X Horizontal, 2=Y Horizontal
0
$-------------------------- NUMBER FORMATS ----------------------------------
$700 SUBROUTINE Number format
6
$701 Leading figures
0
$702 Figures after point
0
$705 Subroutine start number
1
$----------------------------------------------------------------------------
$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
999
$----------------------------------------------------------------------------
$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)
1000 mm/min
$755 Round Feed Up/Down to Nearest: (.1 or 1 or 10 ... 0 = don't round)
10
$----------------------------------------------------------------------------
$760 TOOL NUMBER format
6
$761 Leading figures
1
$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
15000 mm/min
$901 Z Rapid Speed
6000 mm/min
$902 Time to change tool (seconds)
15
$--------------------------- 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.
PROGNUM (7,6,0) "Enter Program Number <1>" ''Integer with up to 4 lead zeros
X_START ( ) "Enter X (G92/G54) Start Value <-600>"
YV_START ( ) "Enter Y/V (G92/G54) Start Value <600>"
TABLE ( ) "Table Combination : 1=M10 / 2=M20 / 3=M40 <2>"
FIRST_RAPID ( )
FIRST_TOOL ( )
LAST_TOOL (6,0,0)
ANGLE_A ( )
ANGLE_B ( )
FIRST_FEED ( )
OLD_SIGN ( )
NEW_SIGN( )
$-------------------------- 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
$ ---------------------- End of Post

This is a standard AlphaCam post.
And if in 3 axial machining it’s still possible to work somehow,
then for 4-5 axes of course it will be wrong.
It is necessary to make a post for your kinematics.

Can you do that?

My machine is 4 axis only,
X,Y,Z, and C

Stone cutting with vertical disc tool

Or do you have a post-processor for that?
Regards

Hi
I am wondering if u have resolve your problem I am facing the same problem I have a 5 axis cnc machine & I just edit the post of the 5 axes but I need a 5 axis post for disc cutting. if I have any post i can edit the post
regards

hi
did u get your post for 4 axis disc cutting?

Quote:

---

Originally Posted by saddysad

Can you do that?

My machine is 4 axis only,
X,Y,Z, and C

Stone cutting with vertical disc tool

Or do you have a post-processor for that?
Regards

---

did u fix ur post? i am working on the same issue