Rekd
thanks that works great, will work on some logic can you give me any advice ,were how, but I can not figure out how to remove op comment see below
here is what i have so far
% pheader
O0100 pheader
(PROGRAM NAME - LONGHORN2 ) pheader
(DATE=DD-MM-YY - 23-12-04 TIME=HH:MM - 16:55 ) pheader
N100 ; TOOL - 01 DIA. - .2500 pwrtt
N102 ; TOOL - 02 DIA. - .0625 pwrtt
( rough profile ) pcomment
want to remove comment
N104 G17 G40 ; Setup for XY plane, no cutter comp, psof
N106 G20 ; inch measurements psof
N108 G80 ; cancel canned cycles, psof
N110 G90 ; absolute positioning, psof
N112 M25 G49 ; Goto Z home, cancel tool length offset psof
N114 G91 G28 X0. Y0. psof
N116 T1 (CHANGE TOOL) psof
N118 S3000 psof
N120 M00 (High Gear) psof
N122 ( 1/4 FLAT ENDMILL TOOL - 01 ) psof ptoolcomment
N124 ( ) psof pcomment
N126 S3000 M3 psof
N128 G00 G90 G54 X-.2955 Y1.5862 psof
N130 G43 H1 Z.25 psof
N132 M07 ;Mist on psof
N134 Z.1 pzrapid
source________________________________________
psof0 # Start of file for tool zero
psof
psof # Start of file for non-zero tool number
pinit
!opcode
n, "G17 G40 ; Setup for XY plane, no cutter comp,"
n, "G20 ; inch measurements"
n, "G80 ; cancel canned cycles,"
n, "G90 ; absolute positioning,"
n, "M25 G49 ; Goto Z home, cancel tool length offset"
n, pinc , *sg28ref, "X0.", "Y0.", e
n, *t, "(CHANGE TOOL)"
n, speed
if speed <= 2000, n, "M00 (Low Gear)", E
if speed >= 2001, n, "M00 (High Gear)", E
n, ptoolcomment
n, pcomment
n, *speed, *spdlon
pcan
pcan1, n, "G00", pabs, pwcs, *xr, *yr, strcantext
pcan2
n, ptllncomp, *zr
pcoolon