home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / FAN10S92.M3 < prev    next >
Encoding:
Text File  |  1996-04-01  |  4.3 KB  |  151 lines
  1. name Fanuc 10M Sub Programs 92
  2.  
  3. ^ 00
  4. % 00
  5. / 00
  6. O 4
  7. N >4
  8. G >2
  9. g >2 G
  10. X ->3.>4
  11. Y ->3.>4
  12. Z ->3.>4
  13. A ->3.>4
  14. I ->3.>4
  15. J ->3.>4
  16. K ->3.>4
  17. Q ->3.>4
  18. R ->3.>4
  19. P 4
  20. F >3.1
  21. H >2
  22. D >2
  23. T >2
  24. M >2
  25. L >2
  26. S >4
  27. c 00
  28.  
  29. ModalLetters X Y Z F R                # List of letters that are modal    
  30.  
  31. ModalGs 0 1 2 3 73 74 76 80 81 82 83 84 85  # List of g codes that are modal    
  32.  
  33. Sequence#s N 0 1 1                    # Char, freq, incr & start          
  34. First#? N                             # Y or N  'Output 1st sequence no.  
  35. Last#? N                              # Y or N  'Output last sequence no. 
  36.  
  37. HCode X                               # X or X U  'Horizontal char.       
  38. VCode Y                               # Y or Y V  'Vertical char.         
  39. Dcode Z                               # Depth char.                       
  40. FeedCode F                            # Feed rate char.                   
  41.  
  42. Comment ( )                           # Begin End comment char.           
  43.  
  44. Spindle 3 4 5                         # Cw, ccw & stop m codes            
  45. Coolant 8 9 7                         # On, Off & Mist m codes            
  46. DComp 41 42 40                        # Left, Right & Cancel m codes      
  47. LComp 43 49                           # On & Off codes                    
  48. Feed G1                             # Linear move                       
  49. Rapid G0                            # Rapid positioning word            
  50. Cw G2                               # Circular move clockwise           
  51. Ccw G3                              # Circular move counter clockwise   
  52.  
  53. Inc/Abs G 91 90                       # Inc & Abs char. & values          
  54.  
  55. CtrCode I J                           # I J or R or I J K L               
  56. Helical? Y
  57.  
  58. Spaces? Y                             # Y or N  'Spaces between words     
  59.  
  60. Incremental? N                        # Y or N  'Inc or abs output        
  61. CtrIncremental? Y                     # Y or N  'Inc or abs I & J         
  62. ByQuadrants? N                        # Y or N  'Break arcs at quadrants  
  63.  
  64. Subs1st? N                            # Y or N 'Orders main & sub programs
  65.  
  66. UppercaseComments? Y                  # Y or N 'Require uppercase comments
  67.  
  68.  
  69. Drill                                 # Drilling canned/manual cycle      
  70. G81 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  71. end cancel
  72.  
  73. Peck                                  # Pecking canned/manual cycle       
  74. G83 X[H] Y[V] Z[D] Q[VBite] R[Vclear] F[FRate]
  75. end cancel
  76.  
  77. Tap                                   # Tapping canned/manual cycle       
  78. G84 X[H] Y[V] Z[D] R[Vclear] F[FRate] Q[VBite]
  79. end cancel
  80.  
  81. LTap                                  # Left handed tapping cycle         
  82. G74 X[H] Y[V] Z[D] R[Vclear] F[Frate] Q[VBite]
  83. end cancel
  84.  
  85. Ream                                  # Reaming canned/manual cycle       
  86. G85 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  87. end cancel
  88.  
  89. Bore                                  # Boring canned/manual cycle        
  90. G86 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  91. end cancel
  92.  
  93. Back                                  # Back boring canned/manual cycle   
  94. G87 X[H] Y[V] Z[D] R[Vclear] F[FRate]
  95. end cancel
  96.  
  97. Cancel                                # Cancel a canned/manual cycle      
  98. G80
  99. end
  100.  
  101. StartCode                             # Start of the program              
  102. %0
  103. End
  104.  
  105. 1stToolChange                         # First tool change                 
  106. O[Program#]
  107. G0 G40 G80 G90
  108. T[Tool] M6
  109. M8
  110. G90 X[H] Y[V]
  111. G0 G43 Z[D] S[Speed] M[Direct] H[Lcomp]
  112. End
  113.  
  114. Infeed                                # Enable cutter comp                
  115. G[Side] X[H] Y[V] D[DComp] F[FRate]
  116. end
  117.  
  118. Outfeed                               # Disable cutter comp               
  119. G1 G40 X[H] Y[V]
  120. end
  121.  
  122. ToolChange                            # Secondary tool changes            
  123. T[Tool] M6
  124. M8
  125. G90 X[H] Y[V]
  126. G0 G43 Z[D] S[Speed] M[Direct] H[Lcomp]
  127. End
  128.  
  129. Between                               # Between the main and sub programs 
  130. M9
  131. g91 G80 G30 Y0 Z0
  132. G0 G40 G80 G90
  133. M30
  134. End
  135.  
  136. SubCall                               # Call a sub program                
  137. Ask [val1] " Enter X coordinate for next sub call"
  138. Ask [val2] " Enter Y coordinate for next sub call"
  139. G0 X[val1] Y[val2]
  140. G92 P[Sub] M98
  141. End
  142.  
  143. SubStart                              # Start of the sub program          
  144. O[Sub]
  145. End
  146.  
  147. SubEnd                                # End of the sub program            
  148. M99
  149. End
  150.  
  151.