man, i have spent a couple hours trying all kinds of different info in there and cant get that little arc to reverse with no luck
tricky little bastard
dolphin CAM post help processor needed
Moderators: TomKerekes, dynomotion
Re: dolphin CAM post help processor needed
does kmotioncnc accept something in I K code
N11G03X0.5514Z-5.5909I0.1198K0.129
N12G02X0.56Z-5.5952I-0.0112K-0.0153
or in this radius code???????????????????????????????????????????????????????
????????????? lol
N130 G02 X0.262 Z-0.519 R0.019
N140 G01 X0.262 Z-0.6114
N150 G02 X0.2598 Z-0.6204 R0.019
N11G03X0.5514Z-5.5909I0.1198K0.129
N12G02X0.56Z-5.5952I-0.0112K-0.0153
or in this radius code???????????????????????????????????????????????????????
????????????? lolN130 G02 X0.262 Z-0.519 R0.019
N140 G01 X0.262 Z-0.6114
N150 G02 X0.2598 Z-0.6204 R0.019
Re: dolphin CAM post help processor needed
jeez the more i read on this i may be doomed.
Re: dolphin CAM post help processor needed
is there a sample code for the lathe function that i can dabble with?
Re: dolphin CAM post help processor needed
ok i found out the issue.
the post processor for some reason gets G02 and G03 switched!
how in the code can this be adjusted to switch the G02 and G03 output?
the post processor for some reason gets G02 and G03 switched!
how in the code can this be adjusted to switch the G02 and G03 output?
Code: Select all
TITLE:
:T1 = {
CNC Lathe
Mach3 Radius Mode Post
G32 type threading
Modified by Steve Blackmore 06/04/05
}
:T2 = {
Added Mach3 Constant surface speed support 30/01/05
Added G83 peck drilling 02/03/05
New tool format support added 27/07/05
Altered M6 to follow tool select 24/12/05
Modified by Steve Blackmore
}
END:
VERSION:
FILEVERSION 11.0 TURNING
END:
WORDS:
:TMP = {DDDDDD.dd}
:BLOCK = {"N"DDDD" "}
:XAXIS = {"Z"DDDDD.ddd" "} {"Z"DDD.dddd" "}
:YAXIS = {"X"DDDDD.ddd" "} {"X"DDD.dddd" "}
:XARC = {"K"DDDDD.ddd" "} {"K"DDD.dddd" "}
:YARC = {"I"DDDDD.ddd" "} {"I"DDD.dddd" "}
:ARAD = {"R"DDDDD.ddd" "} {"R"DDD.dddd" "}
:DELAY = {"G04 P"DDD" "}
:DWELL = {"P"DDDD.dddd" "}
:PECK = {"Q"DDDDD.ddd" "} {"Q"DDD.dddd" "}
:NDEEP = {"Q"DDDDD.ddd" "} {"Q"DDD.dddd" "}
:RPLANE = {"R"DDDDD.ddd" "} {"R"DDD.DDDD" "}
:FEED = {"F"DDDDD.dddI" "} {"F"DDD.dddd" "}
:SPIN = {"S"DDDD" "}
:TOOL = {"T"ZDD}
:SUBPR = {"P"DDDD" "}
:REPEAT = {"L"DDDD" "}
:CRC = {"D"DD" "}
:TLC = {""ZDD" "}
:SURF = {"S"DDDD" "}
:SRAD = {"R"DDDD.ddI} {"R"DD.ddddI}
:INDEX = {"INDEX"DDD.ddd" "}
:PROGNO = {"O"DDDDD" "}
:NUM1 = {" "DDDD.dddd" "}
:ROT = {" "DD" "}
:TOOLD = {DDDDD.ddd} {DDD.dddd}
END:
AXES:
YSCALE 1
XSCALE 1
TURRET
END:
GROUPS:
:G1 = {G00_ G01_ G02_ G03_ G80_ G81_ G82_ G83_ G83.1_ G84_ G85_ G86_ G87_ G88_ G89_}
:G2 = {G17_ G18_ G19_}
:G3 = {G90_ G91_ G90.1_ G91.1_}
:G5 = {G48_ G93_ G94_ G95_ G96_ G97_}
:G6 = {G20_ G21_}
:G7 = {G40_ G41_ G42_}
:G8 = {G43_ G49_}
:G10 = {G98_ G99_}
:G12 = {G50_ G51_ G54_ G55_ G56_ G57_ G58_ G59_ G59.1_ G59.2_ G59.3_}
:G13 = {G61_ G61.1_ G64_}
:G4 = {M00_ M01_ M02_}
:G7 = {M03_ M04_ M05_}
:G8 = {M07_ M08_ M09_}
:G9 = {M48_ M49_}
END:
CYCLES:
NPECK CANNED
NDEEP CANNED
TURN EXPAND
FACE EXPAND
THREAD EXPAND
END:
MACROS:
#N = {
$BLOCK:BLOCK
; If the block number reaches the max (according to RD274) start over
; Note: 'N' has no meaning in processing and is there for readability ONLY
IF ($BLOCK EQ 99990) THEN
SET $BLOCK = 5
ENDIF
}
#L = { [RAPID ? (G01_) / (G00_)] }
#FTYPE = { [FEEDTYPE ? (G94_) / (G95_) ] }
#X = { $X:XAXIS }
#Y = { $Y:YAXIS }
#I = { $XCEN:XARC }
#K = { $YCEN:YARC }
#AR = { $ARCRAD:ARAD }
#R = { ($CCLDIST:RPLANE) }
#P = { IF ($CDELAY NE 0) THEN ($CDELAY:DWELL) ENDIF }
#F = { [RAPID ? [FEEDTYPE ? ($FPM:FEED) / ($FPR:FEED)] ] }
#DWELL = { IF ($CDELAY NE 0) THEN (G82_) ELSE (G81_) ENDIF }
#RAPID = { SET [RAPID] = 2 }
#FEED = { SET [RAPID] = 1 }
#SPIN = { ($SPINDLE:SPIN) [SPIN ? (M05_) / (M03_) / (M04_) ] }
#SURF = { IF ( $SURF GT 1) THEN
$SURF:SURF
ELSE "S525"
ENDIF
}
#GCLW = {
IF ($USR11 EQ 0) THEN
(G02_)
ELSE
(G03_)
ENDIF
}
#GACLW = {
IF ($USR11 EQ 0) THEN
(G03_)
ELSE
(G02_)
ENDIF
}
#IPLANE = {
IF ([CRETRACT] EQ 2) THEN
(G99_)
ELSE
(G98_)
ENDIF
}
#CRC = {
; Only output G41/G42 if part surface is requested (PSPROG=2) which means the CNC
; has to offset the tool
IF ([PSPROG] EQ 2) THEN
[CUTCOM ? (G40_) / (G41_) / (G42_) ]
ENDIF
}
#CRCNO = {
IF ([PSPROG] EQ 2) THEN
($CRCNO:CRC)
ENDIF
}
#Q = { ABS($CDEPTH/$CNDEPTH):NDEEP }
#Q = { ABS($CDEPTH/$CNDEPTH):NPECK }
#UNSET = {
IF ((ABS($DELTAX) LT $USR8) AND (ABS($DELTAY) LT $USR8)) THEN
UNSETALL
ENDIF
}
END:
RULES:
:INIT = {
set $RAPIDFEED = 100 ; rapid feedrate
SET $USR11 = 0 ; Set to 1 if Proturn Arcs to be negated (dependant on tool)
SET $USR12 = 0 ; set for Arc direction fix for FRONT turret and TURN cycles.
SET $USR13 = 1.0 ; SCALE FACTOR TO COMPENSATE FOR ANGLES BEING WRONGLY SCALED IN INCH.
SET $USR14 = 0.0
}
:START = {
; start with N10, increment in 1s
SET $BLOCK = 1
set $INCR = 1
}
:ORIGIN = {
;#N (G92_) $ORIGINY:YAXIS $ORIGINX:XAXIS EOB
;unset :XAXIS
;unset :YAXIS
}
:RETRACT = { #N #L #Y #X EOB }
:UNITS = {
; G20/G21 = Inch/MM units
; G18 = XZ Plane
; G64 = Constant velocity mode (G61 = exact stop)
; G80 = Cancel modal motion (deactivates all move modalities)
; G90 = Absolute mode (G91 = Incremental mode)
; M49 = Disable speed/feed overrides
#N [UNITS ? (G21_) / (G20_)] (G18_) (G64_) (G80_) (G90_) (M49_) "G90.1 "
; KAA - changed order to default IN so that the set is not needed 2x for each IN
; Sets MIN change in move for a program block to be written
SET $USR8 = 0.00005 ; default IN scale
set $usr13 = 25.4
IF ([UNITS] EQ 1) THEN
SET $USR8 = 0.0005 ; set MM scale
SET $USR13 = 1.0
ENDIF
(G40_) (G49_) (G80_) EOB
#N #FTYPE #F EOB
}
:CUTCOM = {
IF (0 NE 0) THEN
; Only output G41/G42 if part surface is requested (PSPROG=2) which means the CNC
; has to offset the tool
IF ([PSPROG] EQ 2) THEN
[CUTCOM ? (G40_) / (G41_) / (G42_) ]
ELSE
(G40_)
ENDIF
#CRCNO EOB
ENDIF
}
:GOTO =
{
NULL ; "DISTANCE : " $DISTANCE:NUM1 EOB
IF ($DISTANCE GE $USR8) THEN
#N #CRC #CRCNO EOB
#N #L #Y #X #FTYPE #F EOB
ENDIF
}
:GOCLW = {
#UNSET
IF (([PSPROG] NE 2) OR ([CUTCOM] LT 2)) THEN
#N #CRC EOB
#N #GCLW #Y #X #AR #F EOB
ELSE
#N #CRC #CRCNO EOB
#N #GCLW #Y #X #AR #F EOB
ENDIF
}
:GOACLW = {
#UNSET
IF (([PSPROG] NE 2) OR ([CUTCOM] LT 2)) THEN
#N #CRC EOB
#N #GACLW #Y #X #AR #F EOB
ELSE
#N #CRC #CRCNO EOB
#N #GACLW #Y #X #AR #F EOB
ENDIF
}
:DELAY = { #N $DELAY:DELAY EOB }
:NDEEP = { #N (G83) #Y #X #R #Q #IPLANE #F EOB }
:NPECK = { #N (G83.1) #Y #X #R #Q #IPLANE #F EOB }
:SCREWING = { #N "G32 " #Y #X #F EOB
UNSET (G5)
UNSET :FEED
}
:SCRCUT = {
UNSET :FEED
#N #FTYPE #F EOB
#N (G0_) #X #Y EOB
#N (G1_) $CXSTART:XAXIS $CYSTART:YAXIS EOB
#N (G76_) ($CYEND-$CDEPTH):YAXIS $XEND:XAXIS ""$FEEDANGLE:PA " "$PITCH:FS " "$ROUGHCUTS:DS " "$FINISHCUTS:PF " T0 " $SPINDLE:SPIN ""$CLDIST:PO eob
#N (G94_)eob
UNSET :FEED
}
:SPINDLE = {UNSET (G5)
IF ( [SPIN] eq 1) then
#N (M05) eob
ENDIF
IF ([SPINTYPE] EQ 2 ) THEN
#N [SPIN ? NULL / (M03_) / (M04_) ] #FTYPE #F EOB
#N (G48_) $MAXSPIN:SPIN " " EOB
#N (G96_) $SURF:SURF EOB
ELSE
#N [SPIN ? NULL / (M03_) / (M04_) ] #FTYPE #F EOB
#N (G97_) $SPINDLE:SPIN " " EOB
ENDIF }
:FINISH = { #N (M05_) (M09_) EOB
#N (M30_) EOB " " EOB }
:SELCTL = {
SET $USR11 = 0
IF ([TURRET] EQ 2) THEN
SET $USR12 = 1 ; Front Turret, set $USR12 for TURN cycles arc direction
else
SET $USR12 = 0
ENDIF
set $CYCLETIME = $CYCLETIME + 0.5 ; 30 seconds for a tool change
#N (M09_) EOB
#N "G00"" " $YSAFPOS:YAXIS $XSAFPOS:XAXIS (M05_) EOB
IF ($X NE $XTLOAD ) THEN
#N (G28_) $XTLOAD:XAXIS EOB
#N (G49_) EOB
ELSE
IF ($Y NE $YTLOAD ) THEN
#N (G28_) $YTLOAD:YAXIS EOB
#N (G49_) EOB
ENDIF
ENDIF
EOB
#N (G49_) EOB
}
:CYCLEOFF = {
#N (G80_) EOB
unset :G1
UNSET(M08_)
UNSET:RPLANE
UNSET(M09_)
UNSET :FEED
UNSET:YAXIS
UNSET:XAXIS
UNSET (G5)
UNSET :SPIN
UNSET :PECK
UNSET :DWELL
}
:GOHOME = {
UNSET (G5)
UNSET :FEED
UNSET :SPIN
#N "G00" " " $YSAFPOS:YAXIS $XSAFPOS:XAXIS #FTYPE #F EOB
}
END:Re: dolphin CAM post help processor needed
jeez!
i swapped these go2 and go3's
seems to work fine now but i will try it out more in the morning
i swapped these go2 and go3's
Code: Select all
#GCLW = {
IF ($USR11 EQ 0) THEN
(G02_)
ELSE
(G03_)
ENDIF
}
#GACLW = {
IF ($USR11 EQ 0) THEN
(G03_)
ELSE
(G02_)
ENDIF
}