Siemens 840D Powermill opt dosyasını varsa atarmısınız!!!!!!

[mustafa_74]

Merhaba Siemens 840D Powermill opt dosyasını varsa atarmısınız!!!!!!       mustafa_ozdeniz@hotmail.com

[ercu35]

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.