Merhaba Siemens 840D Powermill opt dosyasını varsa atarmısınız!!!!!! mustafa_ozdeniz@hotmail.com
machine fanuc15m
use partid = true
define format ( N )
permanent
end define
define format all
tape position = 1
end define
define word TPN
address letter = " ( NCKOD :"
address width = 10
field width = 20
leading zeros = false
end define
define word ID
address letter = "O"
end define
block start = 1
block increment = 1
maximum block number = 99999
##
define word DD
address letter = ";(KALEM Ø"
address width = 8
scale factor = 2
end define
define word RR
address letter = ", KOSE R"
address width = 8
end define
define word LL
address letter = ", MINIMUM BOY "
address width = 14
end define
#
define format ( DD RR LL U V W )
field width = 8
metric formats
leading zeros = false
trailing zeros = true
decimal point = true
decimal places = 2
imperial formats = metric formats
end define
#
define word CB
address letter = ")"
address width = 1
field width = 0
end define
#149
define word NT
address letter = "N"
address width = 1
field width = 2
end define
#155
define word M3
address letter = "M"
address width = 1
field width = 3
tape position = 1
end define
#162
define word DW
address letter = "P"
address width = 1
metric formats
scale factor = 100
decimal places = 0
decimal point = false
trailing zeros = true
tape position = 1
end define
#173
define format ( G4 H )
leading zeros = true
end define
#177
define format ( P )
field width = 4
leading zeros = true
end define
#
word order = ( + NT M3 P DW CB )
word order = (+ DD RR LL )
word order = ( + H M1 M2 MS TPN EM Q msg )
#
define keys
drill peck depth = Q1
drill hole depth = Z2
clearplane = R2
cycle dwell = DW
end define
#
define codes
cycle retract = G6 98
drill = G4 82
break chip = G4 73
deep drill = G4 83
tap = G4 84
bore 1 = G4 85
bore 2 = G4 87
coolant on mist = M2 51
end define
#
circle output = (1 1 1 1)
message output = false
block order = true
tool reset coordinates = 3
counter start = 1
counter increment = 1
integer 69 = 2
#
define block tape start
";TASARIM ERCÜMENT"
"CYCLE832(0.01,1,1)"
"G291"
# ID PartID ; TPN ToolPathName ; EM =C
N ; compensation off ; G6 49 ; xy plane ; G4 80 ; absolute data
N ; G2 91 ; G6 28 ; Z 0
end define
#
define block tool change first
set swb
N ; DD ToolRadius[ToolNum] ; RR Tipradius[ToolNum] ; LL ToolLength[ToolNum] ; EM =C
N ; OP ; T ToolNum ; change tool
N ; G3 54 ; G5 90 ; T NextTool ; G3 =C ; G5 =C ;
end define
#
define block tool change
set swb
N ; G5 91 ; G6 28 ; Z 0 ; Z =C
N ; G6 49
N ; G6 28 ; X 0 ; Y 0 ; X =C ; Y =C
N ; DD ToolRadius[ToolNum] ; RR Tipradius[ToolNum] ; LL ToolLength[ToolNum] ; EM =C
N ; OP ; T ToolNum ; change tool
N ; G5 90 ; G3 54 ; G5 =C ; G3 =C ;
end define
#
define block move rapid
N ; G1 ; G2 ; G3 ; G5 ; G6 ; X ; Y ; Z ; H ; S ;
M1 ; M2 ; M1 ; M2
if (swb)
unset swb
end if
end define
#
define block cycle start
if ( swa )
N ; TPN ToolPathName ; " )"
unset swa
end if
# N ; rapid ; z coord Clearplane
if ( Cycle == 1 )
# G82 DRILL
N ; G4 ; G6 ; x coord =C ; y coord =C ; drill hole depth ; clearplane ; feedrate ;
else if ( Cycle == 2 or Cycle == 3 or Cycle == 13 or Cycle == 5 )
# G82 G83 G73 DRILL
N ; G4 ; G6 ; x coord =C ; y coord =C ; drill hole depth ; clearplane ;
drill peck depth ; cycle dwell ; feedrate ;
else if ( Cycle == 6 )
# G86 Bore
N ; G4 ; G6 ; x coord =C ; y coord =C ; drill hole depth ; clearplane ;
drill peck depth ; cycle dwell ; feedrate ;
else if ( Cycle == 4 or Cycle == 10 )
# G84 TAP
N ; M1 29 ; S ToolSpeed =C ; spindle on cw =C
N ; G4 ; G6 ; x coord =C ; y coord =C ; drill hole depth ; clearplane ; feedrate ;
end if
end define
#
define block move cycle
N ; G4 ; G6 ; x coord =C ; y coord =C ; z coord ; Z2 ; R2 ; Q1 ; P ; feedrate
end define
#
define block move tap
N ; G4 ; G6 ; x coord =C ; y coord =C ; z coord ; Z2 ; R2 ; Q1 ; feedrate
end define
#
define block cycle end
N ; end of drill ; z coord
end define
#
define block tape end
N ; G6 28 ; G5 91 ; Z 0 ; Z =C
# N ; G6 28 ; Y 0 ; Y =C
N ; " M30"
"%"
end define
end
bunları al word dosyasına kaydet
dosya adınıda SIEMENS 828D.opt yap.