Új hozzászólás Aktív témák

• #4320 forestia tag SirTom #4295

  Új Válasz 2012-05-29 18:17:43 #4320

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  forestia

  tag

  válasz SirTom #4295 üzenetére

  0 BEGIN PGM INVERZ_KUP_S_ZKORR MM
  1 ;**********************************
  2 ;Program:____INVERZ_KUP_SIMIT_ZKORR
  3 ;Verzio:_______________________v3.0
  4 ;Vezerlo tipus:________csak_iTNC530
  5 ;Utolso programfutas:____2012.05.22
  6 ;**********************************
  7 ;Megjegyzes:A program a szerszam 2. sugarat(R2) korrigalja a "Z" tengelyen~
  negativ iranyban, az ellepest elotte megmunkalja (elosimitas/Q10-es~
  parameter).
  8 ;**********************************
  9 BLK FORM 0.1 Z X-50 Y-50 Z-50
  10 BLK FORM 0.2 X+50 Y+50 Z+0
  11 CYCL DEF 247 BAZISPONT KIJELOLESE ~
  Q339=+0 ;BAZISPONT SORSZAMA
  12 TOOL CALL 30 Z S5100 DL+0 DR+0 ;D10R1.5
  13 ;**********************************
  14 FN 0: Q1 =+30 ;kezdo sugar
  15 FN 0: Q2 =-25 ;melyseg
  16 FN 0: Q3 =+15 ;felkupszog
  17 FN 0: Q4 =+1.5 ;szerszam 2. sugara (R2)
  18 FN 0: Q5 =+1 ;biztonsagi tavolsag
  19 FN 0: Q6 =+0 ;X tengely kozepe
  20 FN 0: Q7 =+0 ;Y tengely kozepe
  21 FN 0: Q8 =+0 ;felszin koordinata
  22 FN 0: Q9 =+50 ;2. bizt. tavolsag
  23 FN 0: Q10 =-0.5 ;max. fogasvetel elosimitaskor
  24 FN 0: Q11 =-0.5 ;max. fogasvetel kup simitaskor
  25 FN 0: Q12 =+1600 ;elotolas maraskor
  26 ;**********************************
  / 27 M8
  28 M79
  / 29 M110
  30 ;**********************************
  31 FN 12: IF +Q2 LT +0 GOTO LBL "Q2"
  32 FN 14: ERROR= 1077 ;--------->Q2
  33 LBL "Q2"
  34 FN 11: IF +Q4 GT +0 GOTO LBL "Q4"
  35 FN 14: ERROR= 1011 ;--------->Q4
  36 LBL "Q4"
  37 FN 11: IF +Q5 GT +0 GOTO LBL "Q5"
  38 FN 14: ERROR= 1082 ;--------->Q5
  39 LBL "Q5"
  40 FN 11: IF +Q9 GT +0 GOTO LBL "Q9"
  41 FN 14: ERROR= 1082 ;--------->Q9
  42 LBL "Q9"
  43 FN 12: IF +Q10 LT +0 GOTO LBL "Q10"
  44 FN 14: ERROR= 1077 ;--------->Q10
  45 LBL "Q10"
  46 FN 12: IF +Q11 LT +0 GOTO LBL "Q11"
  47 FN 14: ERROR= 1077 ;--------->Q11
  48 LBL "Q11"
  49 CYCL DEF 7.0 NULLAPONTELTOLAS
  50 CYCL DEF 7.1 X+Q6
  51 CYCL DEF 7.2 Y+Q7
  52 CYCL DEF 7.3 Z+Q8
  53 Q13 = ( SQRT 2 * ABS Q4 * COS ( 45 - ABS Q3 ) - ABS Q4 ) / SIN ABS Q3
  54 Q14 = ABS Q13 / ABS Q10
  55 Q15 = INT Q14
  56 FN 9: IF +Q14 EQU +Q15 GOTO LBL 1
  57 Q15 = Q15 + 1
  58 LBL 1
  59 Q16 = ABS Q2 - ABS Q13
  60 Q17 = ABS Q16 / ABS Q11
  61 Q18 = INT Q17
  62 FN 9: IF +Q17 EQU +Q18 GOTO LBL 2
  63 Q18 = Q18 + 1
  64 LBL 2
  65 Q10 = ( ABS Q13 / Q15 ) * 0.5
  66 Q11 = ( ABS Q16 / Q18 ) * 0.5
  67 Q19 = ( ABS Q11 * TAN ABS Q3 ) * 0.5
  68 L X+0 Y+0 R0 FMAX M3
  69 CC
  70 L Z+Q5 R0 FMAX
  71 L Z+0 R0 FQ12
  72 APPR LCT X+0 Y-Q1 R2 RL FQ12
  73 C X+Q1 Y+0 DR+
  74 LBL 3
  75 CP IPA+180 IZ-Q10 DR+
  76 CP IPA+180 IZ-Q10 DR+
  77 Q15 = Q15 - 1
  78 FN 11: IF +Q15 GT +0 GOTO LBL 3
  79 CP IPA+360 DR+
  80 LBL 4
  81 CC X+Q19 Y+0
  82 CP IPA+180 IZ-Q11 DR+
  83 CC X-Q19 Y+0
  84 CP IPA+180 IZ-Q11 DR+
  85 Q18 = Q18 - 1
  86 FN 11: IF +Q18 GT +0 GOTO LBL 4
  87 CC X+0 Y+0
  88 CP IPA+360 DR+
  89 DEP LCT X+0 Y+0 R0.5
  90 L Z+Q9 R0 FMAX
  91 CYCL DEF 7.0 NULLAPONTELTOLAS
  92 CYCL DEF 7.1 X+0
  93 CYCL DEF 7.2 Y+0
  94 CYCL DEF 7.3 Z+0
  95 M111
  96 M78
  97 M9
  98 L X+400 Y+0 Z-200 R0 FMAX M91 M30
  99 END PGM INVERZ_KUP_S_ZKORR MM

  [link]

  Nálam működik. Csak saját felelősségre...

  [ Szerkesztve ]

Új hozzászólás Aktív témák