Mitsubishi Meldas 60
Polygim Lathe 20CSB
24.08.2018
cepera@sprut.ru
txt
0.01
True
False
Incremental
DoNotBreak
10000
10000
10000
10000
False
False
Point
N
1
1
0
ONum
No
Absent
4
True
0
False
1
BlockN
No
Absent
4
False
0
False
1
M1
Minus
Present
3
False
2
False
1
M
Minus
Present
3
False
2
False
1
LCS
No
Absent
2
False
0
False
1
GFunc
No
Absent
2
False
0
False
1
Descom_R_Hta
No
Absent
2
False
0
False
1
Cancel_Can_Cyc
No
Absent
2
False
0
False
1
Interp_
No
Absent
2
True
0
False
1
Plane
No
Absent
2
False
0
False
1
GFeed
No
Absent
2
False
0
False
1
CSS_RPM
No
Absent
2
False
0
False
1
DMaxRPM
No
Present
5
False
5
False
1
Cycle
No
Present
2
False
1
False
1
Diametro
Minus
Present
3
False
2
False
1
KorEcv
No
Absent
2
False
0
False
1
X
Minus
Anyway
5
False
4
False
1
Y
Minus
Anyway
5
False
4
False
1
Z
Minus
Anyway
5
False
4
False
1
C
Minus
Anyway
5
False
4
False
1
Radius
Minus
Anyway
5
False
4
False
1
Feed_
No
Anyway
3
False
3
False
1
KThreadStep
No
Present
4
False
5
False
1
P
No
Absent
5
True
0
False
1
Q
Minus
Anyway
5
False
4
False
1
rpm_limit
No
Absent
2
False
0
False
1
Gsp
Minus
Present
3
False
2
False
1
S
No
Absent
4
False
0
False
1
S_1
No
Absent
4
False
0
False
1
S_2
No
Absent
4
False
0
False
1
S_3
No
Absent
4
False
0
False
1
S12
Minus
Present
3
False
2
False
1
Tool
No
Absent
2
True
0
False
1
ToolCor
No
Absent
2
True
0
False
1
MSp
No
Absent
2
True
0
False
1
MCoolant
No
Absent
2
True
0
False
1
U
Minus
Present
3
False
2
False
1
V
Minus
Present
3
False
2
False
1
AbsMov
True
0) and (Interp_<>1) and (Interp_<>33) then
Interp_=1
X = 2*CLD.X ! X,Y,Z in absolutes
Y = CLD.Y !; Y@ = Y
Z = CLD.Z
if (X<>X@) or (Z<>Z@) or(Y<>Y@) then
OutBlock
XT_=X
YT_=Y
ZT_=Z
end
]]>
AxesBrake
True
Circle
True
0 then INTERP_ = 3 else INTERP_ = 2 ! G3/G2
Radius = abs(CLD.R); Radius@ = MaxReal
X = CLD.Xe*2
Y = CLD.Ye !; Y@ = Y
Z = CLD.Ze
OutBlock
XT_ = X ! save current coordinates
YT_ = Y
ZT_ = Z
end
]]>
Comment
True
1) and ! if it is not NC-program name
(Pos("@", CLData$)<=0) then ! if it is not tool comment
Output "N" + valor2$ +"(" + CLData$ + ")"
end
]]>
Common
True
Coolnt
True
CutCom
True
Delay
False
True
False
True
True
ExtCycle
True
0 then begin
call RealToStr(Ee$, cld[14]) ! Length of exit from thread
Ee$ = " E" + Ee$
Ll$ = " L2" ! Exit at the end
end
FormBlock
Output OutStr$ + " P" + Pp$ + " I" + Ii$ + " J" + Jj$ + " R" + Rr$ + " K" + Kk$ + " Q" + Qq$ + " H" + Hh$ + Ee$ + Ll$
end
163, 81: begin ! Lathe drill G81
OutBlock
if cld[8]=0 then GFeed = 95 ! mm/rev
else GFeed = 94 ! mm/min
Cycle = 81; Cycle@ = MaxReal
FormBlock
call RealToStr(Zz$, cld[3]-cld[4]) ! Bottom level
call RealToStr(Rr$, cld[5]) ! Return level
if cld[7]<>0 then begin
call RealToStr(Pp$, cld[7]) ! Dwell time
Pp$ = " P" + Pp$;
end
call RealToStr(Feed$, cld[9]); Feed$ = " F" + Feed$
Output OutStr$ + " Z" + Zz$ + " R" + Rr$ + Pp$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end
153, 288: begin ! Lathe deep drilling G73, G83
OutBlock
if cld[8]=0 then GFeed = 95 ! mm/rev
else GFeed = 94 ! mm/min
if cld[2]=288 then ! Chip breaking
Cycle = 73
else ! Chip removing
Cycle = 83
Cycle@ = MaxReal
FormBlock
call RealToStr(Zz$, cld[3]-cld[4]) ! Bottom level
call RealToStr(Qq$, cld[11]) ! Depth step
call RealToStr(Rr$, cld[5]) ! Return level
call RealToStr(Feed$, cld[9]); Feed$ = " F" + Feed$
Output OutStr$ + " Z" + Zz$ + " Q" + Qq$ + " R" + Rr$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end
168: begin ! Lathe Tapping G84, G33.1
OutBlock
! ! Floating tapping
! Cycle = 84; Cycle@ = MaxReal
! if cld[8]=0 then GFeed = 95 ! mm/rev
! else GFeed = 94 ! mm/min
! call RealToStr(Zz$, cld[3]-cld[4])
! call RealToStr(Rr$, cld[5])
! call RealToStr(Feed$, cld[9]); Feed$ = " F" + Feed$
! FormBlock
! Output OutStr$ + " Z" + Zz$ + " R" + Rr$ + Feed$
! Rigid tapping
Cycle = 33.1; Cycle@ = MaxReal
call RealToStr(Zz$, cld[3]-cld[4])
call RealToStr(Feed$, cld[9]); Feed$ = " K" + Feed$
FormBlock
Output OutStr$ + " Z" + Zz$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end
481,482,485,486,487,488,489: begin ! Driving tool drilling G81-G89
OutBlock
Cycle = cld[2]-400; Cycle@ = MaxReal
call RealToStr(Zz$, Z-cld[8]); Zz$ = " Z" + Zz$
call RealToStr(Rr$, Z-cld[6]); Rr$ = " R" + Rr$
if cld[15]>0 then begin
call RealToStr(Pp$, cld[15]); Pp$ = " P" + Pp$
end;
if cld[9]=0 then GFeed = 95 ! mm/rev
else GFeed = 94 ! mm/min
call RealToStr(Feed$, cld[10]); Feed$ = " F" + Feed$
FormBlock
Output OutStr$ + Zz$ + Rr$ + Pp$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end;
473,483: begin ! Driving tool deep drilling G73/G83
OutBlock
Cycle = cld[2]-400; Cycle@ = MaxReal
call RealToStr(Zz$, Z-cld[8]); Zz$ = " Z" + Zz$
call RealToStr(Rr$, Z-cld[6]); Rr$ = " R" + Rr$
if cld[15]>0 then begin
call RealToStr(Pp$, cld[15]); Pp$ = " P" + Pp$
end;
call RealToStr(Qq$, cld[17]); Qq$ = " Q" + Qq$
if cld[9]=0 then GFeed = 95 ! mm/rev
else GFeed = 94 ! mm/min
call RealToStr(Feed$, cld[10]); Feed$ = " F" + Feed$
FormBlock
Output OutStr$ + Zz$ + Rr$ + Pp$ + Qq$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end;
484: begin ! Driving tool tapping G84/G33.1
OutBlock
! ! Floating tapping
! Cycle = 84; Cycle@ = MaxReal
! call RealToStr(Rr$, Z-cld[6]); Rr$ = " R" + Rr$
! if cld[15]>0 then begin
! call RealToStr(Pp$, cld[15])
! Pp$ = " P" + Pp$
! end
! GFeed = 95 ! mm/rev
! call RealToStr(Feed$, cld[17]); Feed$ = " F" + Feed$
! Rigid tapping
Cycle = 33.1; Cycle@ = MaxReal
call RealToStr(Zz$, Z-cld[8]); Zz$ = " Z" + Zz$
call RealToStr(Feed$, cld[17]); Feed$ = " K" + Feed$
FormBlock
Output OutStr$ + Zz$ + Rr$ + Pp$ + Feed$
Interp_ = MaxReal; Interp_@ = Interp_
end;
490: begin ! ThreadMill
Input "Thread milling cycle not supported, use long hand format instead!"
Output "(Cycle not supported)"
Output "M0"
end;
491: begin ! Pocketing
Input "Hole pocketing cycle not supported, use long hand format instead!"
Output "(Cycle not supported)"
Output "M0"
end;
end
end
end
]]>
Fedrat
True
9999 then begin
Interp_ = 0
end else begin
if cld[1]>0 then
Feed_ = cld[1]
!if cld[3]=315 then GFeed = 94 ! MMPM
!else GFeed = 95 ! MMPR
Interp_ = 1
end
end
]]>
Fini
False
False
False
True
True
From
True
GoHome
True
0 then begin ! Lathe
end else begin
M= 92 !; M@= maxreal
Outblock
M1= 105 ; M1@= maxreal
end
Outblock
OutStr$ = ""
if Cmd.Ptr["Axes(AxisXPos)"]<>0 then
U@ = MaxReal
if Cmd.Ptr["Axes(AxisZPos)"]<>0 then
V@ = MaxReal
if (U<>U@) or (V<>V@) then begin
GFunc = 28; GFunc@ = MaxReal
OutBlock
end
end
]]>
Insert
True
Interpolation
False
Loadtl
True
MultiGOTO
True
0) and (Interp_<>1) then begin
Interp_ = 1; Interp_@=Interp_
end
if GMA["AxisXPos"].OutFlag>0 then begin
X = 2*GMA["AxisXPos"].Vn
XT_ = X
end
if GMA["AxisYPos"].OutFlag>0 then begin
Y = GMA["AxisYPos"].Vn; Y@ = Y
YT_ = Y
end
if GMA["AxisZPos"].OutFlag>0 then begin
Z = GMA["AxisZPos"].Vn
ZT_ = Z
end
! if OperationIsLathe>0 then
! Rgs[ncY[chi]]@ = Rgs[ncY[chi]]
if (GMA["AxisC1Pos"].OutFlag>0) then begin
C = GMA["AxisC1Pos"].Vn
while C >= 360 do
C = C-360
while C < 0 do
C = C+360
Changed = Changed + 1
end
if Changed>0 then
OutBlock
Changed = 0
if (X<>X@) or (Z<>Z@) then
OutBlock
end
]]>
OpSkip
False
OpStop
True
Origin
True
PartNo
True
PhysicGOTO
True
0 then begin
X = 2*GMA["AxisXPos"].Vn; X@ = MaxReal
GFunc = 53; GFunc@ = MaxReal
end
if GMA["AxisZPos"].OutFlag>0 then begin
Z = GMA["AxisZPos"].Vn; Z@ = MaxReal
GFunc = 53; GFunc@ = MaxReal
end
if (GFunc=53) and (GFunc@<>GFunc) then
OutBlock
end
]]>
Plane
True
0 then begin ! Lathe
Plane = 18 ; Plane@= maxreal!XY
end !else begin
!Plane= 17!; Plane@= maxreal
!end
Outblock
end
37: begin
Plane = 19!; Plane@=maxreal!YZ
Outblock
end
41: begin
Plane = 17! ; Plane@=maxreal!ZX
Outblock
end
133: begin
Plane= 17 ; Plane@= maxreal
Outblock
end
end
Plane@ = Plane
end
]]>
PPFun
True
0 then
begin
BlockN = BlockN + 100
NCSub.StartLabel(cld[2]) = str(BlockN)
X=MaxReal; X@=X
Z=MaxReal; Z@=Z
Interp_ = MaxReal; Interp_@ = Interp_
end
else
begin
OutBlock
ONum = MainONum + cld[2]; ONum@ = MaxReal
NCSub.Name(cld[2]) = str(ONum)
while Len(NCSub.Name(cld[2]))<5 do
NCSub.Name(cld[2]) = "0" + NCSub.Name(cld[2])
NCSub.Name(cld[2]) = "O" + NCSub.Name(cld[2]) + ".nc"
!ChangeNCFile NCSub.Name(cld[2])
Output ""
Output "%"
OutBlock
Interp_ = 0; Interp_@ = MaxReal
end
end
else if cld[1]=51 then
begin ! EndSub
if IsCycleGeometry>0 then
begin
BlockN = BlockN + 100
NCSub.EndLabel(cld[2]) = str(BlockN)
OutBlock
Interp_ = MaxReal; Interp_@ = Interp_
end
else
begin
OutBlock
Output "M99"
Output "%"
Output ""
!ChangeNCFile MainNCFile
!Interp_ = 0; Interp_@ = MaxReal
end
end
else if cld[1]=52 then
begin ! CallSub
OutBlock
Output "M98 P" + Str(MainONum + cld[2])
Interp_ = 0; Interp_@ = MaxReal
end
else if cld[1]=58 then
begin ! TechInfo
OperationIsLathe = CLD[60] - 1 ! 0 - Milling, 1 - Lathe, 2 - Auxiliary
end
else if cld[1]=59 then
begin ! EndTechInfo
! Spaces between operations
if Cmd.Int["PPFun(EndTechInfo).Enabled"]>0 then
Output ""
end
end
]]>
PPrint
True
Rapid
True
SingleThread
True
0 then KThreadStep = 1/CLD.Value
else KThreadStep = CLD.Value
KThreadStep@ = MaxReal
Q = CLD.StartAngle; Q@ = 0
end
]]>
Spindl
True
0 then begin ! Lathe
GSp = 99; GSp@ = MaxReal
end else begin ! Milling
GSp = 98; GSp@ = MaxReal
end
OutBlock
case cld[4] of
0: begin ! RPM
M = 05; M@= maxreal !Apagar husillo
Outblock
M= 90; M@= maxreal
Outblock
M= 105; M@= maxreal
Outblock
GSp = 50; GSp@ = maxreal ! MaxRPM
S_3 = (cld[2]+500); S_3@ = MaxReal
OutBlock
CSS_RPM=97 ; CSS_RPM@=MaxReal
S_3 = cld[2]; S_3@=MaxReal ! Spindle speed
Msp=103 ; Msp@= MaxReal ! Milling
OutBlock
end
2: begin ! CSS
GSp = 50; GSp@ = maxreal ! MaxRPM
S_1 = cld[2]; S_1@ = MaxReal
OutBlock
CSS_RPM=96 ; CSS_RPM@=MaxReal
S_1 = cld[5]; S_1@=MaxReal ! Spindle speed
Msp=3 ; Msp@= MaxReal ! Milling
OutBlock
end
end
end
end
end
]]>
Stop
True
Structure
True
Filter
GetProgramID
0 do begin
c$ = Copy(NCName$, i, 1)
case Ord(c$) of
48, 49, 50, 51, 52, 53, 54, 55, 56, 57: begin
j = j + 1
s$ = c$ + s$
if (j>=5) then
i = 1
end
else begin
if j>0 then
i = 1
end
end
i = i - 1
end
if j>0 then begin
PrgID = Num(s$)
end
subend
]]>
RealToStr
RealToStr2
AxisXPos
X
Linear
Absolute
Unbounded
False
0
False
0
0
AxisZPos
Z
Linear
Absolute
Unbounded
False
0
False
0
0
AxisYPos
Y
Linear
Absolute
Unbounded
False
0
False
0
0
AxisCPos
C
Rotary
Absolute
Unbounded
False
0
False
0
0
Russian
1
а
а
35
)
36
(
2
b
б
3
v
в
4
g
г
5
d
д
6
e
е
7
yo
ё
8
zh
ж
9
z
з
10
i
и
11
j
й
12
k
к
13
l
л
14
m
м
15
n
н
16
о
о
17
p
п
18
r
р
19
s
с
20
t
т
21
u
у
22
f
ф
23
x
х
24
cz
ц
25
ch
ч
26
sh
ш
27
shh
щ
28
ъ
29
y
ы
30
ь
31
e
э
32
yu
ю
33
ya
я
G00
G01
G02
G03
G33
G60
G17
G18
G19
G20
G21
G22
G23
G27
G28
G29
G30
G31
G40
G41
G42
G43
G44
G49
G45
G46
G47
G48
G50
G51
G54
G55
G56
G57
G58
G59
G61
G62
G63
G64
G65
G66
G67
G73
G74
G76
G80
G81
G82
G83
G84
G85
G86
G87
G88
G89
G90
G91
G98
G99
G96
G97
G98
G99
G04
G05
G07
G09
G10
G92
M03
M04
M05
M08
M09
M00
M01
M02
M06
M30
M98
M99
X
Y
Z
I
J
K
R
A
L
D
N
X
F
S
T
P
"(","[","(*","!","%"
")","]","*)","",""
" ","_",";"