1. Fanuc
  2. MANUAL GUIDE (for Milling)

MANUAL GUIDE (for Milling) Programming manual Page 586

Programming manual
12. USER PROGRAMS FOR GUIDANCE CUTTING
SAMPLE PROGRAM B-63423EN/02
-578-
/* line
N050 G242 X-96 Y160
G01 X[91*COS[45]-96] Y[91*SIN[45]+160]
/* arrow on arc
N060 G242 X[36*COS[45]-80] Y[36*SIN[45]+176]
G01 X[[36+3]*COS[45]-[0-8]*SIN[45]-80] Y[[36+3]*SIN[45]+[0-8]*COS[45]+176]
G01 X[[36-3]*COS[45]-[0-8]*SIN[45]-80] Y[[36-3]*SIN[45]+[0-8]*COS[45]+176]
G01 X[36*COS[45]-80] Y[36*SIN[45]+176]
G206 P4 X[[36]*COS[45]-[0-5]*SIN[45]-80] Y[[36]*SIN[45]+[0-5]*COS[45]+176]
/* arc
N070 G242 X[36-80] Y176
G03 X[36*COS[45]-80] Y[36*SIN[45]+176] I-80 J176 Q0
N080
G240 P0 C11 ; /* color = black
G243 X27 Y1 ('(X2,Y2)') ;
G243 X30 Y5 ('(X1,Y1)') ;
G243 X36 Y3 ('A') ;
N999 M99 P300
%
/*************************************************************
/* Copyright (C) 1999 by FANUC LTD. ALL rights reserved. *
/*************************************************************
/*
/* SYMBOL DEFINE
/*
$INCLUDE GDHSYM.DEF
/*
/*
/*****************************************
/* ARC LINE CUT EXCUTE PROGRAM
/*****************************************
O9805
M98 P9810 /* SET UNIT_F8
/*
X_WRK=#[ARC_OF] /* CENTER X
Y_WRK=#[ARC_OF+1] /* CENTER Y
R_WRK=#[ARC_OF+2] /* RADIUS R
CIRC_PLF=0 /* SELECTED PLANE OF CIRCLE CUTTING
/*
M98 P9812 /* SET TOOL RADIUS OFFSET DATA
/*
/* set actual position
/*
IF [ X_WRK EQ #0 ] THEN /* center i=null ?
X_WRK= #[5041+CIRC_PLF] /* X/Y/Z
ENDIF
/*
IF [ Y_WRK EQ #0 ] THEN /* center i=null ?
IF[CIRC_PLF EQ 2] THEN /* ZX-PLANE
Y_WRK = #5041 /* X actual position
ELSE /* XY-PLANE,YZ-PLANE
Y_WRK = #[5042+CIRC_PLF] /* Y/Z actual position
ENDIF
ENDIF
/*
IF [ R_WRK EQ #0 ] THEN /* radius r=null ?
IF[CIRC_PLF EQ 2] THEN /* ZX-PLANE
R_WRK=[Y_WRK-#5041]*[Y_WRK-#5041]
ELSE /* XY-PLANE,YZ-PLANE
Previous page
Next page

Contents Summary of MANUAL GUIDE (for Milling) Programming manual

  • Page 1GE Fanuc Automation Europe Computer Numerical Controls Manual Guide for Milling Programming Manual B-63423EN/02 TECHNOLOGY AND MORE
  • Page 2
  • Page 3B-63423EN/02 SAFETY PRECAUTIONS SAFETY PRECAUTIONS This manual includes safety precautions for protecting the user and preventing damage to the machine. Precautions are classified into Warnings and Cautions according to their bearing on safety. Also, supplementary information is described as Notes.
  • Page 4SAFETY PRECAUTIONS B-63423EN/02 To ensure safety while using a machine featuring the MANUAL GUIDE function that is made according to this programming manual, observe the following precautions: WARNING On MANUAL GUIDE, after adding a new function onto it, or modifying its standard function by modifyi
  • Page 5B-63423EN/02 TABLE OF CONTENTS TABLE OF CONTENTS SAFETY PRECAUTIONS .......................................................................... s-1 I. USER PROGRAM 1 OUTLINE OF USER PROGRAM............................................................3 1.1 SCOPE OF CUSTOMIZING .........................
  • Page 6TABLE OF CONTENTS B-63423EN/02 6.11 COMMENT OF SOFT-KEYS IN CYCLE MOTIONS MENU ........................39 6.12 COMMENT OF SOFT-KEYS IN TEACH MENU..........................................41 6.13 COMMENT OF SOFT-KEYS IN CNV NC MENU ........................................43 7 COMMENT OF INPUT DATA IT
  • Page 7B-63423EN/02 TABLE OF CONTENTS 14.4 MEMORY STORAGE AND CHANGING TOOLS ........................................93 14.5 CHARACTER COORDINATE SYSTEM AND GRAPHIC COORDINATE SYSTEM ......................................................................................................95 14.6 USER WINDOWS O
  • Page 8TABLE OF CONTENTS B-63423EN/02 5.3 GUIDANCE DRAWING FIGURE ...............................................................214 5.4 INPUTTED DATA CHECKING ..................................................................265 6 USER PROGRAMS FOR HOLE PATTERN MENU ...........................268 6.1 COMM
  • Page 9I. USER PROGRA
  • Page 10
  • Page 11B-63423EN/02 USER PROGRAM 1. OUTLINE OF USER PROGRAM 1 OUTLINE OF USER PROGRAM In MANUAL GUIDE, MTB can modify the FANUC standard specification, and also can make their own features by using Custom Macro Program. In order to carry out this modification, the software package named "User Program for M
  • Page 121. OUTLINE OF USER PROGRAM USER PROGRAM B-63423EN/02 1.2 USABLE SOFTWARE RESOURCE FOR USER PROGRAM Since a part of P-code custom macro program and variables are used for FANUC standard cycle motions already, usable resource of User Programs are limited as follows. 1) P-code Program Numbers • O0001 -
  • Page 13B-63423EN/02 USER PROGRAM 2. RESTRICTIONS FOR CUSTOMIZING 2 RESTRICTIONS FOR CUSTOMIZING The following part of MANUAL GUIDE cannot be modified by MTB. 1) Status Indicator Window • Excepting data name comment, the contents of data displayed in a Status Indicator Window cannot be changed. 2) Graphic D
  • Page 143. CREATING LOADING FILES USER PROGRAM B-63423EN/02 3 CREATING LOADING FILES To enable the use of the MANUAL GUIDE functions, loading files to write to the FROM must be created from the FANUC-provided macro library. The macro library is in source format (text files) or MEM file format (binary files)
  • Page 15B-63423EN/02 USER PROGRAM 3. CREATING LOADING FILES 3.1 MACRO LIBRARY COMPONENTS The macro library comes in three floppy disks as shown below. 1) Disk 1: <1> BJ41.PG1 to BJ41.PG3 Object files used to create a load module file for the MANUAL GUIDE system (the load module file is hereinafter referred
  • Page 163. CREATING LOADING FILES USER PROGRAM B-63423EN/02 <10>RESULT.SRC Source file for a sample macro program for displaying measurement results (required when the measurement cycle option is provided) <11>MBJ41_U1.LNK Sample link control file used to create user module 1 when the measurement cycle opti
  • Page 17B-63423EN/02 USER PROGRAM 3. CREATING LOADING FILES <9> GDH_*.SRC Source file for a macro program for handle machining <10>BJ41_U1.LNK Sample link control file used to create user module 1 <11>BJ41_U2.LNK Sample link control file used to create user module 2 <12>*.DEF Symbol definition file for macr
  • Page 183. CREATING LOADING FILES USER PROGRAM B-63423EN/02 3.2 PROCEDURE FOR CREATING LOAD MODULES As the load module, create a MANUAL GUIDE control module and load it to the NC system. Also create user modules 1 and 2 if necessary. NOTE 5 Without the conclusion of the confidentiality contract, the load mo
  • Page 19B-63423EN/02 USER PROGRAM 3. CREATING LOADING FILES <1> with F16IMP1.MEM, the object file for creation of user module 1. As a result of the linking, ROM file BJ41_U1.LNK is created. This linking is performed by referencing BJ41_U1.LNK. Use the same procedure to create user module 2. When the measure
  • Page 204. START-UP MACRO PROGRAM USER PROGRAM B-63423EN/02 4 START-UP MACRO PROGRAM Start-up Macro Program is the editing macro program which specifies the configuration of Manual Guide Screen (Comments in the screen, Menu, Soft-key, Input dada item, and so on). This program runs only one time at the time
  • Page 21B-63423EN/02 USER PROGRAM 4. START-UP MACRO PROGRAM 4.2 DEFINITION OF EACH DATA The configuration data of Manual Guide Screen starts from the variable number specified at parameter No.9101 (Usually, #6020). The contents of each variable number are the followings. Variable Content Standard Number Set
  • Page 224. START-UP MACRO PROGRAM USER PROGRAM B-63423EN/02 Variable Content Standard Number Setting Values + 20 Macro program number for defining Data attribute of Hole Pattern 8451 Menu + 21 Macro program number for displaying guidance drawing figure of 8651 Hole Pattern Menu + 22 Macro program number for
  • Page 23B-63423EN/02 USER PROGRAM 5. COMMENT ON A MANUAL GUIDE SCREEN 5 COMMENT ON A MANUAL GUIDE SCREEN All of the comment displayed in an All-in-one screen of MANUAL GUIDE can be modified by changing the comment data in User macro program for displaying System Comment, which is specified in Start- up macr
  • Page 245. COMMENT ON A MANUAL GUIDE SCREEN USER PROGRAM B-63423EN/02 5.1 COMMENT IN A TITLE BAR O700n ; N9999 (Alphanumeric letters for Title Bar comment) ; Maximum 50 ch. NOTE 1. This user program number O700n is specified to “Macro program number for displaying System Comment”, which is specified in Star
  • Page 25B-63423EN/02 USER PROGRAM 5. COMMENT ON A MANUAL GUIDE SCREEN 5.2 COMMENT IN A STATUS INDICATOR WINDOW ACTUAL POSITION DIST TO GO SPINDLE G01 X 0.000 O 0001 X 234.567 Y 0.000 S : 200 N 00010 Y -153.728 Z 0.000 T 0001 G 54 NEXT BLOCK D 01 H 01 Z 58.980 G00 X 0.000 FEEDRATE MM/MIN S 1000 M 6 A 0.000 B
  • Page 265. COMMENT ON A MANUAL GUIDE SCREEN USER PROGRAM B-63423EN/02 5.3 COMMENT IN A WORK COORDINATE SYSTEM WINDOW WORK CO. : G54 NO. DATA NO. DATA 00 X 0.000 02 X 0.000 (EXT) Y 0.000 (G55) Y 0.000 (2) Z 0.000 Z 0.000 (1) 01 X 0.000 03 X 0.000 (3) (G54) Y 0.000 (G56) Y 0.000 Z 0.000 Z 0.000 O700n ; N1027
  • Page 27B-63423EN/02 USER PROGRAM 5. COMMENT ON A MANUAL GUIDE SCREEN 5.4 COMMENT IN A TOOL OFFSET WINDOW OFFSET LENGTH RADIUS (1) NO. GEOMETRY WEAR GEOMETRY WEAR 1 0.0 0.0 0.0 0.0 2 0.0 0.0 0.0 0.0 (4) 3 0.0 0.0 0.0 0.0 4 0.0 0.0 0.0 0.0 (3) 5 0.0 0.0 0.0 0.0 6 0.0 0.0 0.0 0.0 (5) (2) (6) O700n ; N1021 ( a
  • Page 285. COMMENT ON A MANUAL GUIDE SCREEN USER PROGRAM B-63423EN/02 5.5 COMMENT IN A PROGRAM LIST WINDOW (1) PROGRAM DIR. PROGRAM NO. USED/FREE 3 / 125 (2) MEMORY AREA USED/FREE 900 / 3000 NO. NAME CREATE DATE SIZE(CHAR) (3) O0010: CIRCLE MACHINING 1998-08-12 10:12 380 O0020: LINE MACHINING 1998-10-10 11:
  • Page 29B-63423EN/02 USER PROGRAM 5. COMMENT ON A MANUAL GUIDE SCREEN 5.6 COMMENT IN A GRAPHIC WINDOW 1) Path Graphic Parameter Window (1) PATH GRAPHIC PARAMETER (2) AXES = ROTATION ANGLE = (3) (4) TITLTING ANGLE = SCALE = (5) (6) MAX.(CENTER) X = Y = (7) (8) Z = MIN. I = (9) (10) J = K = (11) (12) START SE
  • Page 305. COMMENT ON A MANUAL GUIDE SCREEN USER PROGRAM B-63423EN/02 2) Animate Graphic Parameter Window (1) ANIMATE GRAPHIC PARAMETER (2) BLANK FORM = BLANK POSITION X = (3) (4) Y = Z = (5) (6) BLANK DIMENSN I = J = (7) (8) K = TOOL RADIUS = (9) (10) TOOL LENGTH = START SEQ. NO. = END SEQ. NO. = ANIME SPE
  • Page 31B-63423EN/02 USER PROGRAM 5. COMMENT ON A MANUAL GUIDE SCREEN 5.7 COMMENT IN A GUIDANCE CUTTING WINDOW 1) Common Data Window (1) GUIDANCE CUTTING TOOL NO. T= (2) D CODE NO. D= (3) FEED RATE F= SPINDLE SPEED S= (4) (5) O700n ; N1050 ( alphanumeric letters for comment (1)) ; Maximum 30 ch. N1051 – N10
  • Page 325. COMMENT ON A MANUAL GUIDE SCREEN USER PROGRAM B-63423EN/02 3) Figure Data Input Window (Circle) (1) Figure Data Input Window (Circle) CENTER X = (2) CENTER Y = RADIUS = (3) (4) O700n ; N1070 ( alphanumeric letters for comment (1)) ; Maximum 40 ch. N1071 – N1073 ( alphanumeric letters for comment
  • Page 33B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6 COMMENT OF SOFT-KEYS FOR EACH MENU All of the comment of soft-keys displayed in an All-in-one screen of MANUAL GUIDE can be modified by changing the comment data in User macro program for displaying System Comment, which is specified
  • Page 346. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 6.1 COMMENT OF SOFT-KEYS IN LARGE CLASSIFIED MENU After power on, the following soft-keys will be displayed There are the functions to select first. EDIT MEM MDI HANDLE CHECK LIST WORK TOOL SETTNG COOD OFFST EDIT : This key is selected
  • Page 35B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.2 COMMENT OF SOFT-KEYS IN EDIT FUNCTION MENU By pushing [EDIT] in the large-classified menu, the edit function menu below is displayed. In this menu, a selected program can be edited. The soft-keys in the menu are changed as shown bel
  • Page 366. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 N0005 (“20 01 C030 20”) (Alphanumeric letters for POSTIN) ; Maximum 6 ch. N0006 (“20 01 C038 20”) (Alphanumeric letters for CONTUR) ; Maximum 6 ch. N0007 (“20 01 C040 20”) (Alphanumeric letters for CYCLE) ; Maximum 6 ch. N0008 (“20 01 C
  • Page 37B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.3 COMMENT OF SOFT-KEYS IN MEM MENU By pushing [MEM] in the large-classified menu, the operation menu below is displayed. In this menu, a selected program can be run or drawing can be performed based on the program. The soft-keys in th
  • Page 386. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 6.4 COMMENT OF SOFT-KEYS IN MDI MENU By pushing [MDI] in the large-classified menu, the MDI operation menu below is displayed. In this menu, a program can be created with G codes, and it can be run without modification. The soft-keys in
  • Page 39B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.5 COMMENT OF SOFT-KEYS IN HANDLE MENU By pushing [HANDLE] in the large-classified menu, the manual machining menu below is displayed. In this menu, machining can be performed with the handle. The soft-keys in the menu are changed as s
  • Page 406. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 6.6 COMMENT OF SOFT-KEYS IN GRAPHIC FUNCTION MENU 1) Tool Path Drawing (wire-frame) By pushing [CHECK] in the small-classified menu, the following soft-keys are displayed. The machining program can be checked using this drawing. ANIME S
  • Page 41B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU PATH PLANE EXEC ROTATE SECT.P 3-PLAN PARAM RETURN PATH : Switch to the tool path drawing screen. EXEC : Start drawing after drawing a blank ROTATE : Rotate a generated drawing. PLANE : Display a plan view of a work-piece. SECT.P : Displ
  • Page 426. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 6.7 COMMENT OF SOFT-KEYS IN LIST MENU By pushing [LIST] in the large-classified menu, the list menu below is displayed. In this menu, selection, copying, and other program operations can be performed. SELECT COPY DELETE CNV NC O RETURN
  • Page 43B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.8 COMMENT OF SOFT-KEYS IN WRK-CO MENU By pushing [WRK-CO] in the large-classified menu, the coordinate system menu below is displayed. In this menu, coordinates can be set. INPUT +INPUT RETURN INPUT : Set a specified value as the curr
  • Page 446. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 6.9 COMMENT OF SOFT-KEYS IN OFFSET MENU By pushing [OFFSET] in the large-classified menu, the offset menu below is displayed. In this menu, tool offset values can be set. INPUT +INPUT RETURN INPUT : Set a specified value as the current
  • Page 45B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.10 COMMENT OF SOFT-KEYS IN CONTOUR PROFILE MENU By pushing [CONTUR] in the editing menu, the contour profile menu below is displayed. In this menu, any contour can be created by selecting or inputting figures. Intersections and contac
  • Page 466. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 N0005 (“20 01 C030 20”) (Alphanumeric letters for CHAMF) ; Maximum 6 ch. N0006 (“20 01 C038 20”) (Alphanumeric letters for ROUND) ; Maximum 6 ch. N0007 (“20 01 C040 20”) (Alphanumeric letters for END) ; Maximum 6 ch. O700n ; N0155 (“20
  • Page 47B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.11 COMMENT OF SOFT-KEYS IN CYCLE MOTIONS MENU By pushing [CYCLE] in Editing menu, the following soft-keys are displayed. HOLE PATTER FACE SIDE POCKET RERURN + LIST WRK-CO OFFSET RETURN + HOLE : Defining the cycle machining of hole PAT
  • Page 486. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 NOTE The comment of soft-keys for other Cycle Motion is defined in the same way. And the user program number for each Cycle Motion is specified to the following program number, which is specified in Start-up macro program. • Cycle Machi
  • Page 49B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.12 COMMENT OF SOFT-KEYS IN TEACH MENU By pushing [TEACH] in the editing menu, the common data input window is displayed. After data is set, the soft-key menu below is displayed by pushing the [INPEND] soft-key. LINE CIRCLE SAVE AUX RA
  • Page 506. COMMENT OF SOFT-KEYS FOR EACH MENU USER PROGRAM B-63423EN/02 LMT ON/OFF : The limit not to exceed the target line becomes available or unavailable. INPEND : Set the inputted data. CUT : The linear and/or circular cutting are ended. O700n ; N0133 (“20 01 C018 20”) (Alphanumeric letters for LMT ON/
  • Page 51B-63423EN/02 USER PROGRAM 6. COMMENT OF SOFT-KEYS FOR EACH MENU 6.13 COMMENT OF SOFT-KEYS IN CNV NC MENU By pushing [LIST] on the initial soft-key screen or another, the soft- key menu below is displayed. SELECT COPY DELETE CNV NC LIST WRK-CO OFFSET RETURN CNV NC : Convert a program into an NC state
  • Page 527. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 7 COMMENT OF INPUT DATA ITEM All of the comment of the data item displayed in the pop-up window on the manual guide screen also can be modified by changing the comment data in User macro program for displaying Comment, which is specified in Sta
  • Page 53B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM 7.1 COMMENT OF INPUT DATA ITEM IN G-CODE MENU By pushing soft-key [SELECT] in large classified menu, the following softy-keys of Editing menu will be displayed. INIT TOOL MSF COMP POSTIN CONTUR CYCLE TEACH USER RETURN By pushing each soft-keys,
  • Page 547. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 The each data item in the window are specified by using the following macros. NOTE 1 The user program number (O702n) of this menu is the number, which is added 10 to the number of “Macro program number for displaying Comment of G-code menu” in
  • Page 55B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM And the output data from the selected soft-key can be modified. NOTE 4 As for the output data by selecting each soft-key, the sequence number of the third digit corresponds to 5. N0151 (Numeric data of the 1st soft-key to 1st item) ; N015n (Num
  • Page 567. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 Example ) The definition of Input data item in INITIAL SET menu O7021 ; N9999 (‘INITIAL SET’) ; N9998 (‘INITIAL SET (DETAIL)’) ; N0001 (‘WORK CO-ORD.’) ; N0002 (‘WORK SHAPE’) ; N0003 (‘WORK X CO-ORD’) ; N0004 (‘WORK Y CO-ORD’) ; N0005 (‘WORK Z
  • Page 57B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM 7.2 COMMENT OF INPUT DATA ITEM IN CONTOUR PROFILE MENU By pushing [CONTUR] of G-code menu, the following soft-keys of Contour profile menu are displayed. START LINE CW CCW ROUND END TANGNT RECALC. CHAMF RETURN POINT ARC ARC By pushing each soft
  • Page 587. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 O711n ; N9999 (Alphanumeric letters for Title(1)) ; Maximum 40ch N9998 (Alphanumeric letters for Title(2)) ; Maximum 40ch N0001 (Alphanumeric letters for 1st item) ; Maximum 18ch N0002 (Alphanumeric letters for 2nd item) ; Maximum 18ch N000m (A
  • Page 59B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM Example ) The definition of Input data item in START POINT menu O7112 ; N9999 (‘START POINT’) ; N9998 (‘STRAT POINT (DETAIL SET)’) ; N0001 (‘START POINT X’) ; N0002 (‘START POINT Y’) ; N0003 (‘START POINT TYPE’) ; N0004 (‘ISLAND Z CO-ORD.’) ; N
  • Page 607. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 7.3 COMMENT OF INPUT DATA ITEM IN CYCLE MOTIONS MENU By pushing [CYCLE] of G-code menu, the machining cycle menus are displayed as follows. HOLE PATTER FACE SIDE POCKET RETURN By pushing each soft-keys, the detail menu of each cycle motion will
  • Page 61B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM The each input data item in the window can be modified by using the following user macro program. NOTE 1 The user program number (O761n) of this menu is the number, which is added 10 to the number of “Macro program number for displaying Comment
  • Page 627. COMMENT OF INPUT DATA ITEM USER PROGRAM B-63423EN/02 N0101 (“20 01 C010 20”) (The 1st soft-key letters of 1st item) ; Maximum 6ch N010n (“20 01 C010 20”) (The n’th soft-key letters of 1st item) ; Maximum 6ch N0m01 (“20 01 C010 20”) (The 1st soft-key letters of m’th item) ; Maximum 6ch N0m0n (“20
  • Page 63B-63423EN/02 USER PROGRAM 7. COMMENT OF INPUT DATA ITEM Example ) The definition of Input data item in SQUARE FACE menu O7611 ; N9999 (‘SQUARE FACE’) ; N9998 (‘SQUARE FACE (DETAIL SET)’) ; N0001 (‘MACH. PROCESS’) ; N0002 (‘CLEARANCE’) ; N0003 (‘END POINT Z’) ; N0004 (‘REMOVAL DEPTH’) ; N0005 (‘REMOV
  • Page 648. DATA STRUCTURE OF MACHINING PROGRAM USER PROGRAM B-63423EN/02 8 DATA STRUCTURE OF MACHINING PROGRAM -56-
  • Page 65B-63423EN/02 USER PROGRAM 8. DATA STRUCTURE OF MACHINING PROGRAM 8.1 DATA ATTRIBUTE The data attribute is the one, which is defined as the address and character of each input data in the pop-up window. And the system controls the display of input data and the operation according to this data. The da
  • Page 668. DATA STRUCTURE OF MACHINING PROGRAM USER PROGRAM B-63423EN/02 NOTE 1. The first variable number is specified by parameter No.9102. Standard value is # 6070. 2. The number of user program, which is specified the attribute data, is the number of “Macro program number for defining Data Attribute” in
  • Page 67B-63423EN/02 USER PROGRAM 8. DATA STRUCTURE OF MACHINING PROGRAM NOTE 2-6. Macro program number for defining Data attribute of Side cutting menu = 8471 (1). SQUARE SIDE = O8471 (2). CIRCLE SIDE = O8472 (3). TRACK SIDE = O8473 (4). ONE SIDE = O8474 (5). CONTOUR SIDE= O8475 2-7. Macro program number f
  • Page 688. DATA STRUCTURE OF MACHINING PROGRAM USER PROGRAM B-63423EN/02 8.2 DETAIL OF DATA ATTRIBUTE 1). Machining Kind The number of G code is specified. For a example, Initial Setting menu is G300, and it is set to 300. Moreover, it is set to –1, except for G code like the MSF code menu. In the case of L
  • Page 69B-63423EN/02 USER PROGRAM 8. DATA STRUCTURE OF MACHINING PROGRAM 3). Attribute The data of whether it is a numeric value type or a literal value type is specified. Macro Variable of each data = ABCDEFG (numeric data) (1). ABCDEFG = 00*4050 This data item is an integer type, and is inputted by numeri
  • Page 709. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE USER PROGRAM B-63423EN/02 9 USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE -62-
  • Page 71B-63423EN/02 USER PROGRAM 9. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE 9.1 G CODES FOR DRAWING The following user program is the one, which displays the guidance drawing figure with the input data item. This user program is called every time the cursor of the input data item moves. The gu
  • Page 729. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE USER PROGRAM B-63423EN/02 NOTE 1-2. Macro program number for displaying guidance drawing figure of Contour menu = 8611 (1). Start Point = O8611 (2). Line = O8612 (3). Circle CW = O8613 (4). Circle CCW = O8614 (5). Chamfering = O8615 (6). Corner
  • Page 73B-63423EN/02 USER PROGRAM 9. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE 9.2 CHARACTER COORDINATES SYSTEM AND GRAPHIC COORDINATES SYSTEM The character coordinates system and graphic coordinates system (dot coordinates system) to display the guidance drawing figure are as follows. 1). Charac
  • Page 749. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE USER PROGRAM B-63423EN/02 Especially for Guidance Cutting, in order to support an operator’s handling, some guidance drawings are prepared. Basically their standard program are prepared, but they can be modified by MTB for their own purpose. Th
  • Page 75B-63423EN/02 USER PROGRAM 9. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE 9.3 NOTES ON CREATING GUIDANCE DRAWING FIGURES 1) A macro program for guidance drawing figures is started twice each time the cursor moves on the data input screen. Therefore, no operation should be performed upon the
  • Page 769. USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURE USER PROGRAM B-63423EN/02 O**** if[guide_frequency eq second_time]then if[cursor eq 3 ]then call fig_clear Clear the guidance drawing figure at prompts 1 and 2. Create the call **** Create the guidance drawing figure at prompt 3. figure only el
  • Page 77B-63423EN/02 USER PROGRAM 10. USER PROGRAMS FOR CHECKING INPUTTED DATA 10 USER PROGRAMS FOR CHECKING INPUTTED DATA The following user program is the one, which checks the input data. When an INSERT key is pushed, this user program is called. If there is a mistake in the input data, the cursor will m
  • Page 7810. USER PROGRAMS FOR CHECKING INPUTTED DATA USER PROGRAM B-63423EN/02 NOTE 2 Macro program number for checking inputted data of Contour menu = 8811 (1). Start Point = O8611 (2). Line = O8612 (3). Circle CW = O8613 (4). Circle CCW = O8614 (5). Chamfering = O8615 (6). Corner R = O8616 (7). End = O861
  • Page 79B-63423EN/02 USER PROGRAM 11. USER PROGRAM FOR EXECUTING MACHINING PROGRAM 11 USER PROGRAMS FOR EXECUTING MACHINING PROGRAM The following user program is the machining program which is called from the special G code defined as a machining cycle. This user program is prepared as a standard specificat
  • Page 8011 USER PROGRAMS FOR EXECUTING MACHINING PROGRAM USER PROGRAM B-63423EN/02 In order to execute a Guidance Cutting, some form data necessary for it must be set into PMC data area. For this purpose, the following User Programs are prepared as a standard specification. The number of this user program a
  • Page 81B-63423EN/02 USER PROGRAM 12. USER PROGRAM FOR TOOL CHANGE 12 USER PROGRAMS FOR TOOL CHANGE Tool Change Sequence is different from each machine. Therefore, MTB has to make a tool change macro program according to the specifications of his machine. We explain about Tool Change Sequence of FANUC stand
  • Page 8212. USER PROGRAMS FOR TOOL CHANGE USER PROGRAM B-63423EN/02 l Tool Change Sequence of FANUC standard macro program (O9301) O9301 call_cutter_compensation_cancel Output G40 for cutter compensation. call_canned_cycle_cancel Output G80 for a canned cycle. G91 G28 Z0 Return to the reference position. G2
  • Page 83B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 13 PMC CUSTOMIZING TOOLS MTB can make their own Machine Operating Panel and Particular Operations by themselves by using following specially prepared PMC signals and User Programs. • User Program Calling Switches (DI : Standard 8 + Custom made 12)
  • Page 8413. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 13.1 SIGNALS FOR USER PROGRAMS CALLING Maximum 20 PMC DI signals are prepared for corresponding User Program calling. By using these signals as buttons for machine control function on an operator's panel, proper custom macro programs, User Programs
  • Page 85B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 2) Shaking Hands Signal for User Program Calling At the time that one of the above signals (DI) is turned to '1' as a result of pushing corresponding key on a machine operator's panel, MANUAL GUIDE system software will turn the following signal (DO
  • Page 8613. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 Calling PMC signal (PMC->CNC) RSOF (CNC->PMC) GST (CNC->PMC) ST (PMC->CNC) STL (CNC->PMC) User program execution ERS (PMC->CNC) M02, M30 -78-
  • Page 87B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 13.2 CHANGING MODE FOR AUTOMATIC OPERATION AND MACHINING SIMULATION At the time that an operator push a soft-key for [MEM] or [CHECK], in order to do a automatic operation or a machining simulation, MANUAL GUIDE system software will turn the follow
  • Page 8813. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 13.4 CHANGING MODE FOR EDITING OPERATION When the operator pushes the [EDIT] soft-key for program editing, the MANUAL GUIDE system software sets the following signal (DO) to 1: R959.4(EDIT) = 1 : Request to switch to EDIT mode In response to the ab
  • Page 89B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 13.5 CHANGING MODE FOR MDI OPERATION When the operator pushes the [MDI] soft-key for MDI operation, the MANUAL GUIDE system software sets the following signal (DO) to 1: R959.6(MDI) = 1 : Request to switch to MDI mode In response to the above reque
  • Page 9013. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 13.6 SIGNAL FOR ISO / GUIDE SCREEN CHANGING ISO screen means the programming screen in which conventional command codes such as G-code are used. On the other hand, GUIDE screen means the operating screen in which particular functions such as Cycle
  • Page 91B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 13.7 OPERATION FOR STARTING MACHINING By pushing a soft-key [START] of machining operation, MANUAL GUIDE system software will turn the signal to '1' to start the machining program. R955.7(GST2) = 1 : Request to start executing of machining program
  • Page 9213. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 13.8 GUIDANCE HANDWHEEL CONTROL SIGNALS 1) Custom macro program <--> CNC interface Address Size Line Circle R961 1 byte 0 : Not execute line nor circle 1 : Line 2 : Circle (CW) 3 : Circle (CCW) R962 ∼ R965 4 bytes X-axis approaching direction X-axi
  • Page 93B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS • Set 0 to R961 when line/circle cutting are not necessary. • R979 (information of setting change) is a signal to inform CNC that the data for line/circle cutting were changed. Sequence i) Set data for R961 - R974 ii) Set "0" to R979 after setting
  • Page 9413. PMC CUSTOMIZING TOOLS USER PROGRAM B-63423EN/02 3) Selecting moving axis When non-zero value is set into the R961 described in 1), by using the following signals, moving axis by handwheel can be selected. These signals are prepared for each handwheel, and are code signal data made up from 4 sign
  • Page 95B-63423EN/02 USER PROGRAM 13. PMC CUSTOMIZING TOOLS 13.9 MANUAL PULSE BOX CONTROL SIGNALS The following signals (DI) are provided so that the teaching functions [AUX], [RAPID], and [CUT] can also be started from the manual pulse box: PM PMC signal Description R988.0(CUTT) Teaching for cutting R988.1
  • Page 9614. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 14 USER WINDOW PROGRAMS On the editing and operation screens, MTB-customized screens can be displayed. In addition, a user window on the editing screen can be changed for use as a menu that works in the same way as that for cycle machining. -88-
  • Page 97B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 14.1 USER WINDOWS ON THE EDITING SCREEN By setting the following parameters, user windows are enabled on the editing screen: No. #7 #6 #5 #4 #3 #2 #1 #0 No. 9110 UWN UWN =1 : Enables user window display on the editing screen. =0 : Disables user wind
  • Page 9814. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 14.2 MACRO PROGRAMS AND VARIABLES 1) O****+5: Initialization of the window (Program number set for parameter No. 9111 + 5) This program is used to determine the size and position of the window. The program is called only once as the window opens. On
  • Page 99B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 6) O****+4: Repetitive display of the dynamic soft-keys (Program number set for parameter No. 9111 + 4) This program is used to display the dynamic soft-keys that are changed depending on the cursor position or other conditions. The program is calle
  • Page 10014. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 14.3 MONITORING KEYSTROKES 1) Custom macro variables for monitoring keystrokes The following custom macro variables can be used to monitor keystrokes: #8501 : Identification of keys other than numeric keys #8502 : Numeric data input before the
  • Page 101B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 14.4 MEMORY STORAGE AND CHANGING TOOLS 1) Memory storage tool The G code (G235) is provided to store input data on the NC tape memory. When the MDI [INSERT] key is pushed, the custom macro creates process data and stores it on the NC tape memory. Wh
  • Page 10214. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 2) Changing tool To change the data last input, it must be redisplayed. For this purpose, the system variables (#10500 to #10574) are provided to obtain such data. When the cursor is moved to the desired block and the MDI key is pushed, the
  • Page 103B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 14.5 CHARACTER COORDINATE SYSTEM AND GRAPHIC COORDINATE SYSTEM The character coordinate system and graphic coordinate system (dot coordinate system) in user windows are as follows. 1) Character coordinate system The character coordinate system assum
  • Page 10414. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 The coordinates of the closed window are used as the reference coordinates. Therefore, specify coordinates with reference to the user window that is shifted to the upper left. User window The following is an example of how to draw a line within a us
  • Page 105B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 14.6 USER WINDOWS ON THE OPERATION SCREEN By setting the following parameters, user windows are enabled on the operation screen: No. #7 #6 #5 #4 #3 #2 #1 #0 No. 9110 MUW MWN =1 : Enables user window display on the operation screen. =0 : Disables use
  • Page 10614. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 14.7 CHANIGING USER WINDOWS TO SUPPORT CYCLES By setting the following parameters, a user window can be changed to support cycles in the same way as for normal cycle machining (such cycles are hereinafter referred to as "user cycles"). This eliminat
  • Page 107B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS Variable Description +0 Number of submenus of the user cycle machining menu +1 Number of the string definition macro for the user cycle machining menu +2 Number of submenus of user cycle machining menu 1 +3 Number of the string definition macro for
  • Page 10814. USER WINDOW PROGRAMS USER PROGRAM B-63423EN/02 Number of the attribute data macro for the user-defined machining menu = Any Number of the guidance drawing figure macro for the user- defined machining menu = Any 3) Precedence over user window display When bit 0 (UWN) of parameter No. 9110 is 1, u
  • Page 109B-63423EN/02 USER PROGRAM 14. USER WINDOW PROGRAMS 14.8 RESTRICTIONS In the user window display, unlike cycle machining, moving the cursor over a data item displays no soft-keys nor guidance messages during editing when the data input window closes ([WINDOW] is turned off). In the user cycles, soft-
  • Page 11015. DISPLAYING USER-SPECIFIED STRINGS USER PROGRAM B-63423EN/02 15 DISPLAYING USER-SPECIFIED STRINGS The strings that should not be affected by new editions of the FANUC standard macros can be defined as separate programs. Examples of these strings are those used for the MANUAL GUIDE title and user
  • Page 111B-63423EN/02 USER PROGRAM 15. DISPLAYING USER-SPECIFIED STRINGS 15.1 EXAMPLE OF DEFINING THE TITLE AS A SEPARATE PROGRAM 1) For parameter No. 9170, specify the program number of the FANUC standard macro that has the title string definition. The lowest digit of a program number is 1 to 6, depending o
  • Page 11215. DISPLAYING USER-SPECIFIED STRINGS USER PROGRAM B-63423EN/02 15.2 PARAMETERS The following parameters are provided to display user-specified strings: No. Description No. 9170 Program number 1 of the original FANUC standard macro No. 9171 Program number 1 of the new user-specified macro No. 9172 P
  • Page 113B-63423EN/02 USER PROGRAM 16. MEASUREMENT CYCLE 16 MEASUREMENT CYCLE The measurement cycle program is optionally available. The program can be used to perform touch probe calibration and workpiece measurement. -105-
  • Page 11416. MEASUREMENT CYCLE USER PROGRAM B-63423EN/02 16.1 STARTUP MACRO PROGRAM Change the contents of the normal startup macro program, based on the following structure: Variable Description Standard value +0 Number of the string definition macro displayed in 7000 the system +1 Number of submenus of the
  • Page 115B-63423EN/02 USER PROGRAM 16. MEASUREMENT CYCLE 16.2 CALIBRATION AND MEASUREMENT CYCLES By pushing the [CYCLE] in the editing menu, the cycle menu below is displayed. HOLE PATTER FACING SIDE CU POCKET CALIBR MEASU RETURN TTING ING ATION R CALIBRATION : Define calibration cycles for the touch probe.
  • Page 11616. MEASUREMENT CYCLE USER PROGRAM B-63423EN/02 When [PROBE] is pushed, the input data window below appears. Title (1) PROBE LENGTH 1/1 DISTANCE FOR MOV Z= The first to mth items DIST. GAUGE-TABLE D= RING GAUGE HEIGHT H= FEEDRATE FOR MOV F= The macros below can be used to define data items in the wi
  • Page 117B-63423EN/02 USER PROGRAM 16. MEASUREMENT CYCLE NOTE 3 Input items are given serial numbers, counting from 1 for the first item in the input data window or detail window. Which window displays items is specified in process data, as shown in Part II. It is possible to change the comments on soft-keys
  • Page 11816. MEASUREMENT CYCLE USER PROGRAM B-63423EN/02 16.3 ATTRIBUTE DATA The attribute data is the same as that for normal cycle machining. NOTE 1 The starting variable number is specified with parameter No. 9102. The standard value is #6070. 2 The number of the user program for setting attribute data is
  • Page 119B-63423EN/02 USER PROGRAM 16. MEASUREMENT CYCLE 16.4 MACRO PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURES The macro programs for displaying guidance drawing figures are the same as those for normal cycle machining. NOTE 1 The number of the user program for displaying guidance drawing figures suita
  • Page 12016. MEASUREMENT CYCLE USER PROGRAM B-63423EN/02 16.5 MACRO PROGRAMS FOR CHECKING INPUT DATA The macro programs for checking input data are the same as those for normal cycle machining. NOTE 1 The number of the user program for checking input data is set for the input data check macro number, in the
  • Page 121B-63423EN/02 USER PROGRAM 16. MEASUREMENT CYCLE 16.6 MACRO PROGRAMS FOR EXECUTING CALIBRATION AND MEASUREMENT CYCLES The numbers of those programs are obtained by adding 9000 to special G codes, as shown below. Menu G code Program number Measurement of Probe Length G170 O9170 Measurement of Diameter
  • Page 122
  • Page 123II. SAMPL E PROGRAM NOTE In this chapter, sample programs for various user programs described in the former chapter are described. As to the sample programs described in this chapter, they are subject to change without prior notice for improvement.
  • Page 124
  • Page 125B-63423EN/02 SAMPLE PROGRAM 1. LIST OF USER PROGRAMS 1 LIST OF USER PROGRAMS l Program Number List of User Programs Large Small Menu Comment Attribute Figure Checking Classification Classification System System Comment O700n ---- ---- ---- Menu Soft-keys O701n ---- ---- ---- Initial Setting O702n O8
  • Page 1261. LIST OF USER PROGRAMS SAMPLE PROGRAM B-63423EN/02 Large Small Menu Comment Attribute Figure Checking Classification Classification Menu Soft-keys O760n ---- ---- ---- Facing Square Surface O761n O8461 O8661 O8861 Circle Surface O762n O8462 O8662 O8862 Menu Soft-keys O770n ---- ---- ---- Square Si
  • Page 127B-63423EN/02 SAMPLE PROGRAM 1. LIST OF USER PROGRAMS l Start-up Macro Program (without Measurement Cycle) ;START UP MACRO O8000 #6020=7000; #6021=7; #6022=7010; #6023=8402; #6024=8602; #6025=8802; #6026=10; #6027=7100; #6028=8411; #6029=8611; #6030=8811; #6031=5; #6032=7300; #6033=3; #6034=7310; #60
  • Page 1281. LIST OF USER PROGRAMS SAMPLE PROGRAM B-63423EN/02 l Start-up Macro Program (with Measurement Cycle) ;START UP MACRO O8000 #6020=7000; #6021=5; #6022=7010; #6023=8402; #6024=8602; #6025=8802; #6026=10; #6027=7100; #6028=8411; #6029=8611; #6030=8811; #6031=7; #6032=7300; #6033=4; #6034=7310; #6035=
  • Page 129B-63423EN/02 SAMPLE PROGRAM 2. USER PROGRAMS FOR SYSTEM COMMENT 2 USER PROGRAMS FOR SYSTEM COMMENT l Definition of Symbol /*** Attribution definition @att_not_use -1 /* Not Use @att_new_page -2 /* New Page for Normal Window @att_new_page_datail -3 /* New Page for Detail Window @att_integer 4050 /* I
  • Page 1302. USER PROGRAMS FOR SYSTEM COMMENT SAMPLE PROGRAM B-63423EN/02 @string_o_number 6900 /* String O number @shift_grap_Y 32 @shift_char_Y 2 @shift_grap_X 8 @shift_char_X 1 /*** Address definition @add_A 1 @add_B 2 @add_C 3 @add_D 4 @add_E 5 @add_F 6 @add_G 7 @add_H 8 @add_I 9 @add_J 10 @add_K 11 @add_
  • Page 131B-63423EN/02 SAMPLE PROGRAM 2. USER PROGRAMS FOR SYSTEM COMMENT @green 2 @yellow 3 @blue 4 @purple 5 @sky_blue 6 @white 7 @l_black 8 l Definition of System Comment ;SYSTEM SCREEN STRING(ENGLISH) o7001 ;BASE SCREEN N9999(' MANUAL GUIDE') N1001(' ACTUAL POSITION') N1002(' DIST TO GO') N1003(' NEXT BLO
  • Page 1322. USER PROGRAMS FOR SYSTEM COMMENT SAMPLE PROGRAM B-63423EN/02 N1063('X2 POS ='); MAX 10 CHARA N1064('Y2 POS ='); MAX 10 CHARA N1065('ANGLE A ='); MAX 10 CHARA N1070(' FIGURE DATA INPUT WINDOW [CIRCLE] '); MAX 40 CHARA N1071('CENTER X ='); MAX 10 CHARA N1072('CENTER Y ='); MAX 10 CHARA N1073('RADIU
  • Page 133B-63423EN/02 SAMPLE PROGRAM 2. USER PROGRAMS FOR SYSTEM COMMENT N3058(' OFF'); MAX 10 CHARA N3060(' WHITE'); MAX 10 CHARA N3061(' RED'); MAX 10 CHARA N3062(' GREEN'); MAX 10 CHARA N3063(' YELLOW'); MAX 10 CHARA N3064(' BLUE'); MAX 10 CHARA N3065(' PURPLE'); MAX 10 CHARA N3066(' SKY BLUE'); MAX 10 CH
  • Page 1342. USER PROGRAMS FOR SYSTEM COMMENT SAMPLE PROGRAM B-63423EN/02 N0049("20 01 C050 20")(' PARAM'); N0050("20 01 C028 20")(' SOLID'); N0051("20 01 C028 20")(' CCW'); N0052("20 01 C030 20")(' CW'); N0053("20 01 C058 20")(' END '); N0054("20 01 C010 20")(' ++ '); N0055("20 01 C018 20")(' +- '); N0056("2
  • Page 135B-63423EN/02 SAMPLE PROGRAM 2. USER PROGRAMS FOR SYSTEM COMMENT ;N0123("20 01 C050 20")(' DEMO ') N0123('') N0124("20 01 C038 20")('REWIND'); N0125("20 01 C050 20")(' EXEC'); N0126("20 01 C058 20")('RETURN'); N0127("20 01 C010 20")(' ON '); N0128("20 01 C018 20")(' OFF '); ; N0129("20 01 C028 20")('
  • Page 1363. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 3 USER PROGRAMS FOR G-CODE MENU -128-
  • Page 137B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU 3.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING1.SRC :: System Menue (ENGLISH) /* /***** 7011: Softkey /***** 7021: Initial Set /***** 7031: Tool Def /***** 7041: MSB Codes
  • Page 1383. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0200('2'); N0201("20 01 C010 20")(' RECT '); N0202("20 01 C018 20")('CYLIN '); N0203("20 01 C020 20")('NO OUT'); N0251('1'); N0252('2'); N0253('3'); N0900('3'); N0901("20 01 C010 20")('G90ABS'); N0902("20 01 C018 20")('G91INC'); N0903("20
  • Page 139B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU O7051 ;############################################### Compensation N9999('COMPENSATION'); N9998('COMPENSATION(DETAIL SET)'); N0001('CUTTER COMP.'); N0002('LENGTH COMP.'); N0003('RAPID / CUT'); N0004('D CODE'); N0005('H CODE'); N0006('END
  • Page 1403. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0004('END POINT Y'); N0005('END POINT Z'); N0006('RADIUS'); N0007('CENT. DISTANCE.-I'); N0008('CENT. DISTANCE.-J'); N0009('CENT. DISTANCE.-K'); N0010('FEED RATE'); N0100('30'); N0101("20 01 C018 20")('NO OUT'); N0102("20 01 C010 20")('OUT
  • Page 141B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU 3.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC1.SRC :: System Menue /* /***** 8402: Initial Set /***** 8403: Tool Def /***** 8404: MSB Codes /***** 8405: Compensation /***** 8406
  • Page 1423. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #[value 11] = 2 /* 1:corner,2:center */ /* Input Unit */ #[address 12] = add_M #[attribute 12] = att_character + att_detail #[value 12] = 3 /* 1:G20,2:G21,3:no putput */ #[address 13] = add_end previous_cursor = 1 /* Previous cursor positi
  • Page 143B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #[value 1] = #0 #[address 2] = add_G08G ; Length Comp. #[attribute 2] = att_character #[value 2] = #0 #[address 3] = add_G01G ; G00/01 #[attribute 3] = att_character #[value 3] = #0 #[address 4] = add_D #[attribute 4] = att_not_use #[value
  • Page 1443. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #[value 2] = #22 #[address 3] = add_X #[attribute 3] = att_decimal #[value 3] = #0 #[address 4] = add_Y #[attribute 4] = att_decimal #[value 4] = #0 #[address 5] = add_Z #[attribute 5] = att_decimal #[value 5] = #0 #[address 6] = add_R ; R
  • Page 145B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #[attribute 6] = att_decimal #[value 6] = #0 #[address 7] = add_I #[attribute 7] = att_decimal #[value 7] = #0 #[address 8] = add_J #[attribute 8] = att_decimal #[value 8] = #0 #[address 9] = add_K #[attribute 9] = att_decimal #[value 9] =
  • Page 1463. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 3.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG1.SRC :: System Menue /* /***** 8602: Initial Set /***** 8603: Tool Def /***** 8604: MSB Code /***** 8605: Compensation /***
  • Page 147B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #[attribute 6] = att_decimal #[attribute 7] = att_decimal #[attribute 8] = att_decimal endif if[#[value 2] eq 1 ]then #[attribute 11] = att_character + att_detail else #[attribute 11] = att_not_use if[inch_mm eq inch_mm_on]then #[attribute
  • Page 1483. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 5] = att_integer + att_detail else #[attribute 5] = att_not_use endif if[#[value 3] ne 0]then #[attribute 9] = att_decimal else #[attribute 9] = att_not_use m99 O8606 ;############################################### Line /*** G
  • Page 149B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU m99 O8608 ;############################################### CCW Circle /*** Guide Picture Setting ***/ if[guide_frequency eq secont_tine]then if[cursor eq 2]then call fig_clear call 6056 endif if[cursor GE 3]then if[previous_cursor lt 3]the
  • Page 1503. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 /**************************************************************************** $INCLUDE SYMBOL.DEF O6051 ;############################################### Work Coordinate /* Work Coordinate color red #20 = -32-shift_grap_X #1=#20 #2=88+shift
  • Page 151B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU call fig_line #3=80-shift_grap_X call fig_line /* Characters cursor_off G243X[37-shift_char_X]Y[8-shift_char_Y](G54) G243X[44-shift_char_X]Y[8-shift_char_Y](G55) G243X[51-shift_char_X]Y[8-shift_char_Y](G56 ...) G243X[41-shift_char_X]Y[10-s
  • Page 1523. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 O6053 ;############################################### Work Size Rectangular color red G242X[0-shift_grap_X]Y[40+shift_grap_Y] G01X[96-shift_grap_X]Y[40+shift_grap_Y] G01X[144-shift_grap_X]Y[72+shift_grap_Y] G01X[48-shift_grap_X]Y[72+shift
  • Page 153B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #2=32+shift_grap_Y #3=95-shift_grap_X #4=#2 #5=2 call fig_line G242X[-1-shift_grap_X]Y[40+shift_grap_Y] /* for K G01X[-16-shift_grap_X]Y[40+shift_grap_Y] G242X[-1-shift_grap_X]Y[88+shift_grap_Y] G01X[-16-shift_grap_X]Y[88+shift_grap_Y] #1=
  • Page 1543. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 G243X[41-shift_char_X]Y[11-shift_char_Y](J) #1=8 call fig_cursor G243X[37-shift_char_X]Y[11-shift_char_Y](K) cursor_off G243X[45-shift_char_X]Y[9-shift_char_Y]('(') G243X[47-shift_char_X]Y[9-shift_char_Y](',') G243X[49-shift_char_X]Y[9-shi
  • Page 155B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU call fig_line #1=61-shift_grap_X /* for J #2=8+shift_grap_Y #3=87-shift_grap_X #4=#2 #5=2 call fig_line /* Characters #1=3 call fig_cursor G243X[44-shift_char_X]Y[6-shift_char_Y](X) #1=4 call fig_cursor G243X[46-shift_char_X]Y[6-shift_char
  • Page 1563. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #4=#2 #5=0 call fig_line #1=72-shift_grap_X #2=40+shift_grap_Y #3=#1 #4=120+shift_grap_Y #5=0 call fig_line G242X[36-shift_grap_X]Y[95+shift_grap_Y] /* for ABS G01X[36-shift_grap_X]Y[41+shift_grap_Y] G242X[35-shift_grap_X]Y[96+shift_grap_Y
  • Page 157B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #1=#20 #2=56+shift_grap_Y #3=#20 #4=104+shift_grap_Y #5=0 call fig_line cursor_off G243X[42-shift_char_X]Y[12-shift_char_Y](X) G243X[36-shift_char_X]Y[8 -shift_char_Y](Y) G243X[50-shift_char_X]Y[12-shift_char_Y](Z) G243X[44-shift_char_X]Y[
  • Page 1583. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 color red G242X[64-shift_grap_X]Y[24+shift_grap_Y] G01X[136-shift_grap_X]Y[24+shift_grap_Y] G01X[152-shift_grap_X]Y[40+shift_grap_Y] G01X[80-shift_grap_X]Y[40+shift_grap_Y] G01X[64-shift_grap_X]Y[24+shift_grap_Y] G242X[64-shift_grap_X]Y[10
  • Page 159B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU G01X[#20-3]Y[#21+25] G01X[#20-11]Y[#21+25] G01X[#20-11]Y[#21+55] G01X[#20+11]Y[#21+55] G01X[#20+11]Y[#21+25] G01X[#20+3]Y[#21+25] G01X[#20+3]Y[#21+8] G01X[#20]Y[#21+1] G206P0X[#20]Y[#21+40] if[cursor eq 5]then /* Next Tool #20=100-shift_gr
  • Page 1603. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #1=31-shift_grap_X #2=80+shift_grap_Y #3=21-shift_grap_X #4=#2 #5=1 call fig_line #1=37-shift_grap_X #2=80+shift_grap_Y #3=47-shift_grap_X #4=#2 #5=1 call fig_line /* Characters #1=1 call fig_cursor G243X[44-shift_char_X]Y[5-shift_char_Y](
  • Page 161B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU G242X[80-shift_grap_X]Y[135+shift_grap_Y] /* G42 G02X[80-shift_grap_X]Y[135+shift_grap_Y]I[80-shift_grap_X]J[120+shift_grap_Y]Q4 /* Line color red #1=-16-shift_grap_X #2=136+shift_grap_Y #3=128-shift_grap_X #4=#2 #5=0 call fig_line /* Char
  • Page 1623. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #1=56-shift_grap_X #2=56+shift_grap_Y call fig_mark /* Characters cursor_off G243X[52-shift_char_X]Y[14-shift_char_Y](G43) G243X[52-shift_char_X]Y[16-shift_char_Y](G44) color white C green L0 G243X[45-shift_char_X]Y[11-shift_char_Y](G49) m
  • Page 163B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU call fig_cursor G243X[51-shift_char_X]Y[12-shift_char_Y](X) else call fig_cursor G243X[51-shift_char_X]Y[7 -shift_char_Y](X) cursor_off G243X[51-shift_char_X]Y[12-shift_char_Y](X) endif else call fig_cursor G243X[51-shift_char_X]Y[7 -shift
  • Page 1643. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 endif else call fig_cursor G243X[55-shift_char_X]Y[7 -shift_char_Y](Z) G243X[55-shift_char_X]Y[12-shift_char_Y](Z) endif else if[#[value 3] eq 0 || #[value 3] eq 1]then if[#[value 3] ne 0]then cursor_off G243X[55-shift_char_X]Y[7 -shift_ch
  • Page 165B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #4=104+shift_grap_Y #5=0 call fig_line #1=72-shift_grap_X /* J #2=104+shift_grap_Y #3=72-shift_grap_X #4=56+shift_grap_Y #5=0 call fig_line #1=72-shift_grap_X /* I #2=56+shift_grap_Y #3=0-shift_grap_X #4=56+shift_grap_Y #5=0 call fig_line
  • Page 1663. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 #1=3 call fig_cursor if[#[address 0] eq 2]then G243X[52-shift_char_X]Y[12-shift_char_Y](X) else G243X[40-shift_char_X]Y[ 7-shift_char_Y](X) endif #1=4 call fig_cursor if[#[address 0] eq 2]then G243X[54-shift_char_X]Y[12-shift_char_Y](Y) el
  • Page 167B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU #1=5 call fig_cursor if[#[address 0] eq 2]then G243X[54-shift_char_X]Y[12-shift_char_Y](Z) else G243X[42-shift_char_X]Y[ 7-shift_char_Y](Z) endif #1=8 call fig_cursor if[#[address 0] eq 2]then G243X[45-shift_char_X]Y[11-shift_char_Y](J) el
  • Page 1683. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0010(' subrogram'); N0011('M99:End of subrogram'); ; Contour/Line : Start Point Type N0020('When you make the'); N0021('island figure after the'); N0022('pocket wall figure,'); N0023('select "ISLAND". '); N0024(''); N0025('When you contin
  • Page 169B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU N0122('Right'); ; CHECK*.SRC message N0900('Data is lacking.'); N0901('Input error in menu param.'); M99 O6903 ;############################################### German ; M code N0001('M00:Program stop'); N0002('M01:Optional stop'); N0003('M
  • Page 1703. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0091('Tangent'); N0092('Vertical'); ; Canned Cycle N0101('G81:No dwell'); N0102('G82:With dwell'); N0103('G83:Normal peck'); N0104('G73:High-speed peck'); N0105('G85:Feed retraction'); N0106('G86:Rapid retraction'); N0107('G88:Manual retr
  • Page 171B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU N0060('START'); ; Linear N0061('POINT'); N0062('END'); N0063('POINT'); N0064('START'); N0065('POINT'); N0066('END'); N0067('POINT'); N0068('BASE'); N0069('AXIS'); ; Canned Cycle N0080('Initial'); N0081('level'); N0082('Point R'); N0083('le
  • Page 1723. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0026('making the next groove'); N0027('figure,'); N0028('select "NXT MV".'); N0029(''); N0030('Another case,'); N0031('select "START".'); ; Contour/End N0040('When you continue'); N0041('making the contour'); N0042('figure, select "CONT".
  • Page 173B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU N0001('M00:Program stop'); N0002('M01:Optional stop'); N0003('M02:End of program'); N0004('M03:Spindle cw'); N0005('M04:Spindle ccw'); N0006('M05:Spindle stop'); N0007('M06:Tool change'); N0008('M30:end of program'); N0009('M98:Calling of'
  • Page 1743. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 N0107('G88:Manual retraction'); N0108('G89:With dwell'); N0109('G76:Fine boring'); N0110('G87:Back boring'); N0111('G84:Tapping'); N0112('G74:Left-hand tapping'); ; Contour : Compensation Direction N0121('Left'); N0122('Right'); ; CHECK*.S
  • Page 175B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU 3.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK1.SRC :: System Menue /* /***** 8802: Initial Set /***** 8803: Tool Def /***** 8804: MSB Codes /***** 8805: Compensation /*
  • Page 1763. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 endif /* Abs/Inc */ error_item = 9 if[#[value 9] eq #0]goto 97 if[#[value 9] lt 1 || #[value 9] gt 3]goto 98 /* Plane Selection */ error_item = 10 if[#[value 10] eq #0]goto 97 if[#[value 10] lt 1 || #[value 10] gt 4]goto 98 /* Base Point *
  • Page 177B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU /* ############################################### MSB Code O8804 input_error_flag = error_non /* M Code */ error_item = 1 if[#[value 1] lt 0]goto 98 /* Subprogram */ if[#[attribute 2] ne att_not_use]then error_item = 2 if[#[value 2] eq #0
  • Page 1783. USER PROGRAMS FOR G-CODE MENU SAMPLE PROGRAM B-63423EN/02 error_item = 9 if[#[value 9] eq 0 || #[value 9] lt 0]goto 98 endif goto 99 /* Data is lacking. */ n97 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu param. */ n98 input
  • Page 179B-63423EN/02 SAMPLE PROGRAM 3. USER PROGRAMS FOR G-CODE MENU call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 /* ############################################### CCW Circle O8808 input_error_flag = error_non /* Output Plane */ error_item = 1 if[#[value 1] eq #0]goto 97 if[#[value 1]
  • Page 1804. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 4 USER PROGRAMS PROFILE MENU FOR CONTOUR -172-
  • Page 181B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU 4.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING2.SRC :: Contour (ENGLISH) /* /***** 7101: Softkey /***** 7111: Start Point /***** 7121: Line /***** 7131: Circle CW
  • Page 1824. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 N0011('AUX. POINT X'); N0012('AUX. POINT Y'); N0013('AUX. DISTANCE'); N0014('PAR. / VERT.'); N0015('REF. BLOCK NO.'); N0400('29'); N0401("20 01 C010 20")('RIGHT '); N0402("20 01 C018 20")(' R-UP '); N0403("20 01 C020 20")(' UP ');
  • Page 183B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU N9998('CHAMFER(DETAIL SET)'); N0003('CHAMFER'); M99 O7161 ;############################################### Corner R N9999('ROUND'); N9998('ROUND(DETAIL SET)'); N0003('RADIUS'); M99 O7171 ;##########################################
  • Page 1844. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 4.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC2.SRC :: Contour /* /***** 8411: Start Point /***** 8412: Line /***** 8413: Circle CW /***** 8414: Circle CCW /***** 8415:
  • Page 185B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU #[attribute 8] = att_decimal #[value 8] = #0 #[address 9] = add_I ; Angle X #[attribute 9] = att_decimal + att_detail #[value 9] = #0 #[address 10] = add_J ; Angle Y #[attribute 10] = att_decimal + att_detail #[value 10] = #0 #[ad
  • Page 1864. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 #[value 13] = #0 #[address 14] = add_A #[attribute 14] = att_decimal + att_detail #[value 14] = #0 #[address 15] = add_P #[attribute 15] = att_not_display_decimal #[value 15] = #0 #[address 16] = add_end previous_cursor = 1 /* Pre
  • Page 187B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU #[address 3] = add_I #[attribute 3] = att_decimal #[value 3] = #0 #[address 4] = add_P ; Select Point #[attribute 4] = att_not_display_decimal #[value 4] = #0 #[address 5] = add_end previous_cursor = 1 /* Previous cursor position
  • Page 1884. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 #[value 1] = #0 #[address 2] = add_X #[attribute 2] = att_decimal + att_not_output #[value 2] = #0 #[address 3] = add_Y #[attribute 3] = att_decimal + att_not_output #[value 3] = #0 #[address 4] = add_K #[attribute 4] = att_decima
  • Page 189B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU 4.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG2.SRC :: Contour /* /***** 8611: Start Point /***** 8612: Line /***** 8613: Circle CW /***** 8614: Circle CCW /****
  • Page 1904. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 if[guide_frequency eq secont_tine]then if[cursor ge 3 && cursor le 8]then if[previous_cursor lt 3 || previous_cursor gt 8]then call fig_clear endif call 6075 endif if[cursor ge 9 && cursor le 13]then if[previous_cursor lt 9 || pre
  • Page 191B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU O8615 ;############################################### Chamfering /*** Guide Picture Setting ***/ if[guide_frequency eq secont_tine]then call 6080 endif m99 O8616 ;############################################### Corner R /*** Guid
  • Page 1924. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 /***** 6080: Chamfering /***** 6081: Corner R /***** 6082: End /***** 6083: Linear Movement /***** 6084: Rotation /***** 6085: Mirror Transformation /**************************************************************************** $IN
  • Page 193B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU /* blue for Work color blue G242X[-23-shift_grap_X]Y[41+shift_grap_Y] G01X[143-shift_grap_X]Y[41+shift_grap_Y] G01X[143-shift_grap_X]Y[119+shift_grap_Y] G01X[121-shift_grap_X]Y[119+shift_grap_Y] G01X[121-shift_grap_X]Y[71+shift_gr
  • Page 1944. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 G01X[39-shift_grap_X]Y[121+shift_grap_Y] G01X[39-shift_grap_X]Y[135+shift_grap_Y] G01X[27-shift_grap_X]Y[135+shift_grap_Y] G01X[27-shift_grap_X]Y[151+shift_grap_Y] G01X[21-shift_grap_X]Y[151+shift_grap_Y] G01X[21-shift_grap_X]Y[13
  • Page 195B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU O6075 ;############################################### Line(Normal) /* Line for Figure color red #1=16-shift_grap_X #2=8+shift_grap_Y #3=88-shift_grap_X #4=152+shift_grap_Y #5=0 #8=10 call fig_line G242X[15-shift_grap_X]Y[9+shift_
  • Page 1964. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 /* Line for Figure color red #1=16-shift_grap_X #2=8+shift_grap_Y #3=88-shift_grap_X #4=152+shift_grap_Y #5=0 #8=10 call fig_line G242X[15-shift_grap_X]Y[9+shift_grap_Y] G01X[87-shift_grap_X]Y[153+shift_grap_Y] /* green Line color
  • Page 197B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU m99 O6077 ;############################################### Line(Detail 2) /* Line for Figure color red #1=0-shift_grap_X #2=8+shift_grap_Y #3=96-shift_grap_X #4=40+shift_grap_Y #5=0 call fig_line G242X[96-shift_grap_X]Y[40+shift_g
  • Page 1984. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 #4=88 #5=-16 #6=8 #7=1 endif #1=#1-shift_grap_X #2=#2+shift_grap_Y #3=#3-shift_grap_X #4=#4+shift_grap_Y #5=#5-shift_grap_X #6=#6+shift_grap_Y #8=10 call fig_cw if[#[address 0] eq 102]then #1=#1-1 else #1=#1+1 G242X[#1]Y[#2+1] G02
  • Page 199B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU /* yellow Cross Mark color yellow if[#[address 0] eq 102]then #1=136-shift_grap_X else #1=-16-shift_grap_X #2=8+shift_grap_Y call fig_mark /* Characters #1=7 call fig_cursor if[#[address 0] eq 102]then G243X[47-shift_char_X]Y[10-s
  • Page 2004. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 O6079 ;############################################### Circle(Detail) /* Line for Figure color red if[#[address 0] eq 102]then #1=-2.5641 #2=88 #3=81.2768 #4=158.3508 #5=136 #6=8 #7=0 else #1=38.7232 #2=158.3508 #3=122.5641 #4=88
  • Page 201B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU #5=2 call fig_line if[#[address 0] eq 102]then G242X[-24-shift_grap_X]Y[88+shift_grap_Y] G01X[64-shift_grap_X]Y[88+shift_grap_Y] G242X[-11.8017-shift_grap_X]Y[72+shift_grap_Y] G01X[34.3863-shift_grap_X]Y[152+shift_grap_Y] G242X[21
  • Page 2024. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 #4=105+shift_grap_Y #5=2 call fig_line /* Characters cursor_on G243X[55-shift_char_X]Y[7-shift_char_Y](I) cursor_off m99 O6081 ;############################################### Corner R /* Line for Figure color red G242X[-8-shift_g
  • Page 203B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU G01X[32-shift_grap_X]Y[56+shift_grap_Y] color green /* green dot_line G01X[80-shift_grap_X]Y[56+shift_grap_Y] G01X[80-shift_grap_X]Y[104+shift_grap_Y] G01X[128-shift_grap_X]Y[104+shift_grap_Y] G01X[128-shift_grap_X]Y[152+shift_gra
  • Page 2044. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 G243X[48-shift_char_X]Y[11-shift_char_Y](K) cursor_off G243X[38-shift_char_X]Y[16-shift_char_Y]('(') G243X[40-shift_char_X]Y[16-shift_char_Y](',') G243X[42-shift_char_X]Y[16-shift_char_Y](')') G243X[47-shift_char_X]Y[6-shift_char_
  • Page 205B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU /**************************************************************************** /* /* MACROSTR.SRC :: Strings for FIGSUB*.SRC /* /**************************************************************************** O6901 ;##################
  • Page 2064. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 N0092('Vertical'); ; Canned Cycle N0101('G81:No dwell'); N0102('G82:With dwell'); N0103('G83:Normal peck'); N0104('G73:High-speed peck'); N0105('G85:Feed retraction'); N0106('G86:Rapid retraction'); N0107('G88:Manual retraction');
  • Page 207B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU N0061('POINT'); N0062('END'); N0063('POINT'); N0064('START'); N0065('POINT'); N0066('END'); N0067('POINT'); N0068('BASE'); N0069('AXIS'); ; Canned Cycle N0080('Initial'); N0081('level'); N0082('Point R'); N0083('level'); ; Contour
  • Page 2084. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 N0027('figure,'); N0028('select "NXT MV".'); N0029(''); N0030('Another case,'); N0031('select "START".'); ; Contour/End N0040('When you continue'); N0041('making the contour'); N0042('figure, select "CONT".'); N0043('(Example)');
  • Page 209B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU N0002('M01:Optional stop'); N0003('M02:End of program'); N0004('M03:Spindle cw'); N0005('M04:Spindle ccw'); N0006('M05:Spindle stop'); N0007('M06:Tool change'); N0008('M30:end of program'); N0009('M98:Calling of'); N0010(' subrogr
  • Page 2104. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 N0108('G89:With dwell'); N0109('G76:Fine boring'); N0110('G87:Back boring'); N0111('G84:Tapping'); N0112('G74:Left-hand tapping'); ; Contour : Compensation Direction N0121('Left'); N0122('Right'); ; CHECK*.SRC message N0900('Data
  • Page 211B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU ; Canned Cycle N0080('Initial'); N0081('level'); N0082('Point R'); N0083('level'); ; Contour : Approach/Escape Type N0090('Circle'); N0091('Tangent'); N0092('Vertical'); ; Canned Cycle N0101('G81:No dwell'); N0102('G82:With dwell'
  • Page 2124. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 4.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK2.SRC :: Contour Menue /* /***** 8811: Start Point /***** 8812: Line /***** 8813: Circle CW /***** 8814: Circle CC
  • Page 213B-63423EN/02 SAMPLE PROGRAM 4. USER PROGRAMS FOR CONTOUR PROFILE MENU /* Repeat Number */ error_item = 1 if[#[value 1] eq #0]goto 97 if[#[value 1] le 0]goto 98 goto 99 /* Data is lacking. */ n97 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input e
  • Page 2144. USER PROGRAMS FOR CONTOUR PROFILE MENU SAMPLE PROGRAM B-63423EN/02 error_item = 3 if[#[value 3] le -360 || #[value 3] ge 360]goto 98 endif endif goto 99 /* Data is lacking. */ n97 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu
  • Page 215B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU 5 USER PROGRAMS FOR HOLE MACHINING MENU -207-
  • Page 2165. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 5.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING3.SRC :: Canned Cycle (ENGLISH) /* /***** 7301: Softkey 1 /***** 7311: Softkey 2 /***** 7321: G81/G82/G83/G73 /* G81
  • Page 217B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU N0151('90'); N0152('91'); N0153('3'); N0200('11'); N0201("20 01 C010 20")('I-LVL '); N0202("20 01 C018 20")('R-LVL '); N0203("20 01 C020 20")('NO-OUT'); N0251('98'); N0252('99'); N0253('3'); N0300('7'); N0301("20 01 C010 20")('NO D
  • Page 2185. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 N0355('76'); N0356('87'); M99 O7341 ;############################################### G84/G74 N9999('TAPPING CYCLE'); N9998('TAPPING CYCLE(DETAIL SET)'); N0001('ABS / INC'); N0002('RETURN POINT'); N0003('MACHINE PATTERN'); N0004('HO
  • Page 219B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU 5.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC3.SRC :: Canned Cycle /* /***** 8432: G81/G82/G83/G73 /* G81 Drilling cycle, spot drilling cycle /* G82 Drilling cycle, coun
  • Page 2205. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 #[value 13] = 0 #[address 14] = add_end previous_cursor = 1 /* Previous cursor position clear m99 O8433 ;############################################### G85/G86/G88/G89/G87/G76 #[address 0] = -1 #[address 1] = add_G03G #[attribute
  • Page 221B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #[value 6] = #0 #[address 7] = add_R #[attribute 7] = att_decimal #[value 7] = #0 #[address 8] = add_P #[attribute 8] = att_integer #[value 8] = #0 #[address 9] = add_Q #[attribute 9] = att_decimal + att_detail #[value 9] = #0 #[ad
  • Page 2225. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 5.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG3.SRC :: Canned Cycle /* /***** 8632: G81/G82/G83/G73 /* G81 Drilling cycle, spot drilling cycle /* G82 Drilling cyc
  • Page 223B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU call 6096 endif if[cursor eq 10]then if[previous_cursor ne 3]then color white C blue L0 G243X[46-shift_char_X]Y[15-shift_char_Y](P) endif endif endif if[#[value 3] eq 83]then if[cursor eq 6 || cursor eq 7 || cursor eq 9]then if[pre
  • Page 2245. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 3] eq 83]then #[attribute 8] = att_not_use #[attribute 9] = att_decimal #[attribute 11] = att_decimal + att_detail #[attribute 12] = att_integer + att_detail endif if[#[value 3] eq 73]then #[attribute 8] = att_not_use #[
  • Page 225B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU color white C blue L0 G243X[46-shift_char_X]Y[15-shift_char_Y](P) endif endif endif if[#[value 3] eq 89]then if[cursor eq 6 || cursor eq 7 || cursor eq 9]then if[previous_cursor ne 6 && previous_cursor ne 7 && previous_cursor ne 9]
  • Page 2265. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 3] eq 89]then #[attribute 8] = att_not_use #[attribute 9] = att_integer endif if[#[value 3] eq 76]then #[attribute 8] = att_decimal #[attribute 9] = att_integer endif if[#[value 3] eq 87]then #[attribute 8] = att_decimal
  • Page 227B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU /**************************************************************************** /* /* FIGSUB3.SRC :: Canned Cycle /* /***** 6091: Return point level /***** 6092: G73 High-speed peck drilling cycle /***** 6093: G74 Left-hand tapping c
  • Page 2285. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 #21=139+shift_grap_Y /* Y coordinate of Top of Tool color green /* green for Inner G242X[#20]Y[#21+1] G01X[#20-7]Y[#21+5] G01X[#20-7]Y[#21+20] G01X[#20+7]Y[#21+20] G01X[#20+7]Y[#21+5] G01X[#20]Y[#21+1] G206P0X[#20]Y[#21+5] color pu
  • Page 229B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #1=40-shift_grap_X #2=40+shift_grap_Y #3=#1 #4=136+shift_grap_Y #5=0 call fig_line #1=91-shift_grap_X /* for G98 #2=136+shift_grap_Y #3=117-shift_grap_X #4=#2 #5=0 call fig_line #1=120-shift_grap_X #2=133+shift_grap_Y #3=#1 #4=91+s
  • Page 2305. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 endif #1=41-shift_char_X /* for Q #2=9-shift_char_Y #3=1 call fig_character #2=12-shift_char_Y call fig_character #2=15-shift_char_Y call fig_character G206P0X[0-shift_grap_X]Y[0+shift_grap_Y] color sky_blue /* blue green for Edge
  • Page 231B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #1=40-shift_grap_X #2=117+shift_grap_Y #3=#1 #4=73+shift_grap_Y #5=0 call fig_line dot_line #1=56-shift_grap_X #2=73+shift_grap_Y #3=#1 #4=103+shift_grap_Y #5=0 call fig_line solid_line #1=72-shift_grap_X #2=103+shift_grap_Y #3=#1
  • Page 2325. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 #5=2 call fig_line #1=24-shift_grap_X #2=23+shift_grap_Y #3=#1 #4=-23+shift_grap_Y #5=2 call fig_line if[#[value 1] eq 91]then /* for R & Z G242X[-8-shift_grap_X]Y[144+shift_grap_Y] G01X[13-shift_grap_X]Y[144+shift_grap_Y] G242X[-8
  • Page 233B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU color blue /* blue for Inner G242X[-31-shift_grap_X]Y[-31+shift_grap_Y] G01X[151-shift_grap_X]Y[-31+shift_grap_Y] G01X[151-shift_grap_X]Y[103+shift_grap_Y] G01X[-31-shift_grap_X]Y[103+shift_grap_Y] G01X[-31-shift_grap_X]Y[-31+shift
  • Page 2345. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 G01X[#20-8-3]Y[#21+3*3] G01X[#20-8 ]Y[#21+3*4] G01X[#20-8-3]Y[#21+3*5] G01X[#20-8 ]Y[#21+3*6] G01X[#20-8]Y[#21+21] G01X[#20]Y[#21+21] G242X[#20]Y[#21] /* Right Side G01X[#20+8]Y[#21] G01X[#20+8+3]Y[#21+3*1] G01X[#20+8 ]Y[#21+3*2] G
  • Page 235B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU call fig_line dot_line #1=88-shift_grap_X #2=25+shift_grap_Y #3=#1 #4=55+shift_grap_Y #5=0 call fig_line solid_line #1=104-shift_grap_X #2=55+shift_grap_Y #3=#1 #4=-21+shift_grap_Y #5=0 call fig_line #1=128-shift_grap_X #2=-23+shif
  • Page 2365. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 #1=0-shift_grap_X #2=143+shift_grap_Y #3=#1 #4=121+shift_grap_Y #5=2 call fig_line #1=0-shift_grap_X #2=119+shift_grap_Y #3=#1 #4=-23+shift_grap_Y #5=2 call fig_line endif /* Characters if[#[value 1] eq 91]then if[cursor eq 6]then
  • Page 237B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU call fig_character else #1=53-shift_char_X #2=14-shift_char_Y #3=1 call fig_character endif #1=49-shift_char_X /* for Q #2=13-shift_char_Y #3=1 call fig_character #1=46-shift_char_X /* for P #2=15-shift_char_Y #3=1 call fig_charact
  • Page 2385. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 endif /* red for Path color red dot_line #1=27-shift_grap_X #2=120+shift_grap_Y #3=53-shift_grap_X #4=#2 #5=0 call fig_line #1=56-shift_grap_X #2=117+shift_grap_Y #3=#1 #4=91+shift_grap_Y #5=0 call fig_line solid_line #1=56-shift_g
  • Page 239B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #1=40-shift_grap_X #2=119+shift_grap_Y #3=#1 #4=89+shift_grap_Y #5=2 call fig_line #1=40-shift_grap_X #2=87+shift_grap_Y #3=#1 #4=9+shift_grap_Y #5=2 call fig_line endif /* Characters if[#[value 1] eq 91]then if[cursor eq 6]then co
  • Page 2405. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 #1=50-shift_char_X #2=14-shift_char_Y #3=1 call fig_character endif G206P0X[0-shift_grap_X]Y[0+shift_grap_Y] color sky_blue /* blue green for Edge G242X[-24-shift_grap_X]Y[-24+shift_grap_Y] G01X[144-shift_grap_X]Y[-24+shift_grap_Y]
  • Page 241B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU call fig_line #1=56-shift_grap_X #2=117+shift_grap_Y #3=#1 #4=91+shift_grap_Y #5=0 call fig_line solid_line #1=56-shift_grap_X #2=85+shift_grap_Y #3=#1 #4=11+shift_grap_Y #5=0 call fig_line dot_line #1=72-shift_grap_X #2=11+shift_g
  • Page 2425. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 if[cursor eq 6]then color -white C blue L1 else color white C blue L0 endif G243X[50-shift_char_X]Y[14-shift_char_Y](Z) #1=7 call fig_cursor G243X[45-shift_char_X]Y[9-shift_char_Y](R) if[cursor eq 10]then if[previous_cursor ne 3]th
  • Page 243B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU G01X[#20+8]Y[#21+21] G01X[#20+8]Y[#21+5] G01X[#20]Y[#21] /* Circle for Point color red G242X[24-shift_grap_X]Y[122+shift_grap_Y] G02X[24-shift_grap_X]Y[122+shift_grap_Y]I[24-shift_grap_X]J[120+shift_grap_Y]Q4 G206P0X[24-shift_grap_
  • Page 2445. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 color green if[#[value 1] eq 91]then /* for R & Z G242X[32-shift_grap_X]Y[88+shift_grap_Y] G01X[53-shift_grap_X]Y[88+shift_grap_Y] G242X[32-shift_grap_X]Y[8+shift_grap_Y] G01X[53-shift_grap_X]Y[8+shift_grap_Y] #1=40-shift_grap_X #2
  • Page 245B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU else #1=54-shift_char_X #2=16-shift_char_Y #3=1 call fig_character endif #1=51-shift_char_X /* for P #2=16-shift_char_Y #3=1 call fig_character #1=41-shift_char_X /* for Q #2=9-shift_char_Y #3=1 call fig_character #2=12-shift_char_
  • Page 2465. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 color red dot_line #1=19-shift_grap_X #2=144+shift_grap_Y #3=37-shift_grap_X #4=#2 #5=0 call fig_line #1=40-shift_grap_X #2=141+shift_grap_Y #3=#1 #4=123+shift_grap_Y #5=0 call fig_line solid_line #1=40-shift_grap_X #2=117+shift_gr
  • Page 247B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU color green G242X[16-shift_grap_X]Y[120+shift_grap_Y] /* for Q G01X[37-shift_grap_X]Y[120+shift_grap_Y] G242X[43-shift_grap_X]Y[120+shift_grap_Y] G01X[112-shift_grap_X]Y[120+shift_grap_Y] G242X[16-shift_grap_X]Y[72+shift_grap_Y] G0
  • Page 2485. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 else color white C blue L0 endif G243X[38-shift_char_X]Y[12-shift_char_Y](Z) #1=7 call fig_cursor G243X[38-shift_char_X]Y[7-shift_char_Y](R) else if[cursor eq 6]then color -white C blue L1 else color white C blue L0 endif G243X[54-
  • Page 249B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU G242X[-32-shift_grap_X]Y[-32+shift_grap_Y] G01X[152-shift_grap_X]Y[-32+shift_grap_Y] G01X[152-shift_grap_X]Y[104+shift_grap_Y] G01X[-32-shift_grap_X]Y[104+shift_grap_Y] G01X[-32-shift_grap_X]Y[-32+shift_grap_Y] /* Tool #20=16-shift
  • Page 2505. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 /* red for Path color red dot_line #1=19-shift_grap_X #2=144+shift_grap_Y #3=37-shift_grap_X #4=#2 #5=0 call fig_line #1=40-shift_grap_X #2=141+shift_grap_Y #3=#1 #4=123+shift_grap_Y #5=0 call fig_line solid_line #1=40-shift_grap_X
  • Page 251B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU /* green Line color green G242X[16-shift_grap_X]Y[120+shift_grap_Y] /* for Q G01X[37-shift_grap_X]Y[120+shift_grap_Y] G242X[43-shift_grap_X]Y[120+shift_grap_Y] G01X[136-shift_grap_X]Y[120+shift_grap_Y] G242X[16-shift_grap_X]Y[72+sh
  • Page 2525. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 color white C blue L0 endif G243X[54-shift_char_X]Y[16-shift_char_Y](Z) #1=6 call fig_cursor G243X[41-shift_char_X]Y[7-shift_char_Y](R) endif if[cursor eq 8]then color -white C blue L1 else color white C blue L0 endif G243X[41-shif
  • Page 253B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU G01X[#20-9]Y[#21-2] G01X[#20-6]Y[#21+3] G206P0X[#20-5]Y[#21+2] G206P0X[#20-7]Y[#21] /* Circle for Point color red G242X[24-shift_grap_X]Y[122+shift_grap_Y] G02X[24-shift_grap_X]Y[122+shift_grap_Y]I[24-shift_grap_X]J[120+shift_grap_
  • Page 2545. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 1] eq 91]then /* for R & Z G242X[32-shift_grap_X]Y[88+shift_grap_Y] G01X[53-shift_grap_X]Y[88+shift_grap_Y] G242X[32-shift_grap_X]Y[8+shift_grap_Y] G01X[53-shift_grap_X]Y[8+shift_grap_Y] #1=40-shift_grap_X #2=119+shift_g
  • Page 255B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #1=43-shift_char_X #2=12-shift_char_Y #3=1 call fig_character else #1=50-shift_char_X #2=14-shift_char_Y #3=1 call fig_character endif G206P0X[0-shift_grap_X]Y[0+shift_grap_Y] color sky_blue /* blue green for Edge G242X[-24-shift_g
  • Page 2565. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 endif /* red for Path color red dot_line #1=27-shift_grap_X #2=120+shift_grap_Y #3=53-shift_grap_X #4=#2 #5=0 call fig_line #1=56-shift_grap_X #2=117+shift_grap_Y #3=#1 #4=91+shift_grap_Y #5=0 call fig_line solid_line #1=56-shift_g
  • Page 257B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU else color white C blue L0 endif G243X[43-shift_char_X]Y[12-shift_char_Y](Z) #1=7 call fig_cursor G243X[43-shift_char_X]Y[9-shift_char_Y](R) if[cursor eq 10]then if[previous_cursor ne 3]then cursor_off G243X[43-shift_char_X]Y[9-shi
  • Page 2585. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 G01X[-24-shift_grap_X]Y[72+shift_grap_Y] G01X[-24-shift_grap_X]Y[8+shift_grap_Y] /* Tool #20=16-shift_grap_X /* X coordinate of Top of Tool #21=123+shift_grap_Y /* Y coordinate of Top of Tool color green /* green for Inner G242X[#2
  • Page 259B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU #3=51-shift_grap_X call fig_shift #1=48-shift_grap_X #2=-5+shift_grap_Y #3=#1 #4=53+shift_grap_Y #5=0 call fig_line #1=51-shift_grap_X #2=56+shift_grap_Y #3=95-shift_grap_X call fig_shift dot_line #1=96-shift_grap_X #2=57+shift_gra
  • Page 2605. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 color white C blue L0 endif G243X[41-shift_char_X]Y[11-shift_char_Y](R) else if[cursor eq 6]then color -white C blue L1 else color white C blue L0 endif G243X[44-shift_char_X]Y[12-shift_char_Y](Z) #1=7 call fig_cursor G243X[44-shif
  • Page 261B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU G01X[#20+4+12]Y[#21+1] G01X[#20+1]Y[#21+1] G206P0X[#20+8]Y[#21+5] color purple /* purple for Edge G242X[#20]Y[#21] G01X[#20+4]Y[#21+4] G01X[#20+4]Y[#21+21] G01X[#20+4+13]Y[#21+21] G01X[#20+4+13]Y[#21] G01X[#20]Y[#21] /* Circle for
  • Page 2625. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 ;G03X72Y[87+shift_grap_Y]I[72-20-shift_grap_X]J[78+shift_grap_Y] #1=72-shift_grap_X #2=68+shift_grap_Y #3=#1 #4=87+shift_grap_Y #5=#1-20 #6=78+shift_grap_Y #7=0 call fig_ccw if[#[value 2] ne 99]then dot_line #1=72-shift_grap_X #2=8
  • Page 263B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU endif G243X[46-shift_char_X]Y[15-shift_char_Y](P) cursor_off m99 O6103 ;############################################### G89 Boring cycle /* Work color blue /* blue for Inner G242X[-23-shift_grap_X]Y[-23+shift_grap_Y] G01X[143-shift
  • Page 2645. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 G242X[56-shift_grap_X]Y[122+shift_grap_Y] G02X[56-shift_grap_X]Y[122+shift_grap_Y]I[56-shift_grap_X]J[120+shift_grap_Y]Q4 G206P0X[56-shift_grap_X]Y[120+shift_grap_Y] G242X[56-shift_grap_X]Y[90+shift_grap_Y] G02X[56-shift_grap_X]Y[9
  • Page 265B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU G01X[53-shift_grap_X]Y[88+shift_grap_Y] G242X[32-shift_grap_X]Y[8+shift_grap_Y] G01X[53-shift_grap_X]Y[8+shift_grap_Y] #1=40-shift_grap_X #2=119+shift_grap_Y #3=#1 #4=89+shift_grap_Y #5=2 call fig_line #1=40-shift_grap_X #2=87+shif
  • Page 2665. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 N0010(' subrogram'); N0011('M99:End of subrogram'); ; Contour/Line : Start Point Type N0020('When you make the'); N0021('island figure after the'); N0022('pocket wall figure,'); N0023('select "ISLAND". '); N0024(''); N0025('When yo
  • Page 267B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU N0122('Right'); ; CHECK*.SRC message N0900('Data is lacking.'); N0901('Input error in menu param.'); M99 O6903 ;############################################### German ; M code N0001('M00:Program stop'); N0002('M01:Optional stop');
  • Page 2685. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 N0091('Tangent'); N0092('Vertical'); ; Canned Cycle N0101('G81:No dwell'); N0102('G82:With dwell'); N0103('G83:Normal peck'); N0104('G73:High-speed peck'); N0105('G85:Feed retraction'); N0106('G86:Rapid retraction'); N0107('G88:Man
  • Page 269B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU N0060('START'); ; Linear N0061('POINT'); N0062('END'); N0063('POINT'); N0064('START'); N0065('POINT'); N0066('END'); N0067('POINT'); N0068('BASE'); N0069('AXIS'); ; Canned Cycle N0080('Initial'); N0081('level'); N0082('Point R'); N
  • Page 2705. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 N0026('making the next groove'); N0027('figure,'); N0028('select "NXT MV".'); N0029(''); N0030('Another case,'); N0031('select "START".'); ; Contour/End N0040('When you continue'); N0041('making the contour'); N0042('figure, select
  • Page 271B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU N0001('M00:Program stop'); N0002('M01:Optional stop'); N0003('M02:End of program'); N0004('M03:Spindle cw'); N0005('M04:Spindle ccw'); N0006('M05:Spindle stop'); N0007('M06:Tool change'); N0008('M30:end of program'); N0009('M98:Cal
  • Page 2725. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 N0107('G88:Manual retraction'); N0108('G89:With dwell'); N0109('G76:Fine boring'); N0110('G87:Back boring'); N0111('G84:Tapping'); N0112('G74:Left-hand tapping'); ; Contour : Compensation Direction N0121('Left'); N0122('Right'); ;
  • Page 273B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU 5.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK3.SRC :: Canned Cycle /* /***** 8832: G81/G82/G83/G73 /* G81 Drilling cycle, spot drilling cycle /* G82 Drilling cy
  • Page 2745. USER PROGRAMS FOR HOLE MACHINING MENU SAMPLE PROGRAM B-63423EN/02 if[#[attribute 11] ne att_not_use]then error_item = 11 if[#[value 11] eq 0 || #[value 11] lt 0]goto 98 endif /* Dwell Time */ if[#[attribute 12] ne att_not_use]then error_item = 12 if[#[value 12] lt 0]goto 98 endif /* Repeat Number
  • Page 275B-63423EN/02 SAMPLE PROGRAM 5. USER PROGRAMS FOR HOLE MACHINING MENU error_item = 11 if[#[value 11] lt 0 || #[value 11] gt 9999]goto 98 goto 99 /* Data is lacking. */ n97 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu param. */ n
  • Page 2766. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 6 USER PROGRAMS FOR HOLE PATTERN MENU -268-
  • Page 277B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU 6.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING4.SRC :: Hole Pattern (ENGLISH) /* /***** 7401: Softkey /***** 7411: Points /***** 7421: Line /***** 7431: Grid /*****
  • Page 2786. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 N0006('PITCH SPACE'); N0007('LINE LENGTH'); N0008('OMIT POINT-1'); N0009('OMIT POINT-2'); N0010('OMIT POINT-3'); N0011('OMIT POINT-4'); N0012('PITCH SPACE-1'); N0013('PITCH SPACE-2'); N0014('PITCH SPACE-3'); N0015('PITCH SPACE-4'); N
  • Page 279B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU N0007('X-U ANGLE'); N0008('U-V ANGLE'); N0009('OMIT POINT-1'); N0010('OMIT POINT-2'); N0011('OMIT POINT-3'); N0012('OMIT POINT-4'); N0013('PATTERN CONT.'); N1300('12'); N1301("20 01 C010 20")(' END '); N1302("20 01 C018 20")(' CONT '
  • Page 2806. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 N0100('14'); N0101("20 01 C010 20")(' SAME '); N0102("20 01 C018 20")('DIFFER'); N0151('1'); N0152('2'); N2200('12'); N2201("20 01 C010 20")(' END '); N2202("20 01 C018 20")(' CONT '); N2251('1'); N2252('2'); M99 -272-
  • Page 281B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU 6.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC4.SRC :: Hole Pattern /* /***** 8441: Points /***** 8442: Line /***** 8443: Grid /***** 8444: Square /***** 8445: Circle /****
  • Page 2826. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 #[value 16] = #0 #[address 17] = add_Q #[attribute 17] = att_character #[value 17] = 1 #[address 18] = add_end previous_cursor = 1 /* Previous cursor position clear m99 O8442 ;############################################### Line #[ad
  • Page 283B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU #[attribute 19] = att_not_use #[value 19] = #0 #[address 20] = add_K #[attribute 20] = att_not_use #[value 20] = #0 #[address 21] = add_L #[attribute 21] = att_not_use #[value 21] = #0 #[address 22] = add_Q #[attribute 22] = att_char
  • Page 2846. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 1] = att_decimal #[value 1] = #0 #[address 2] = add_Y #[attribute 2] = att_decimal #[value 2] = #0 #[address 3] = add_U #[attribute 3] = att_decimal #[value 3] = #0 #[address 4] = add_V #[attribute 4] = att_decimal #[valu
  • Page 285B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU #[address 8] = add_D #[attribute 8] = att_integer + att_detail #[value 8] = #0 #[address 9] = add_E #[attribute 9] = att_integer + att_detail #[value 9] = #0 #[address 10] = add_Q #[attribute 10] = att_character #[value 10] = 1 #[add
  • Page 2866. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 #[value 17] = #0 #[address 18] = add_I #[attribute 18] = att_not_use #[value 18] = #0 #[address 19] = add_J #[attribute 19] = att_not_use #[value 19] = #0 #[address 20] = add_K #[attribute 20] = att_not_use #[value 20] = #0 #[address
  • Page 287B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU 6.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG4.SRC :: Hole Pattern /* /***** 8641: Points /***** 8642: Line /***** 8643: Grid /***** 8644: Square /***** 8645: Circ
  • Page 2886. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 endif previous_cursor = cursor endif /*** Attribution Setting ***/ if[#[value 1] eq 1]then #[attribute 5] = att_integer #[attribute 6] = att_decimal #[attribute 7] = att_decimal + att_detail #[attribute 8] = att_integer + att_detail
  • Page 289B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU call 6115 endif m99 O8646 ;############################################### Arc /*** Guide Picture Setting ***/ if[guide_frequency eq secont_tine]then if[previous_cursor eq 1]then call fig_clear endif if[#[value 1] eq 1]then call 6116
  • Page 2906. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 /***** 6113: Line (Different space) /***** 6114: Grid and Square /***** 6115: Circle /***** 6116: Arc (Same space) /***** 6117: Arc (Different space) /**************************************************************************** $INCL
  • Page 291B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU G242X[80-shift_grap_X]Y[145+shift_grap_Y] G02X[80-shift_grap_X]Y[145+shift_grap_Y]I[80-shift_grap_X]J[140+shift_grap_Y]Q4 G242X[-21-shift_grap_X]Y[-11+shift_grap_Y] G01X[141-shift_grap_X]Y[-11+shift_grap_Y] G01X[141-shift_grap_X]Y[16
  • Page 2926. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 G02X[48-shift_grap_X]Y[60+shift_grap_Y]I[48-shift_grap_X]J[56+shift_grap_Y]Q4 G206P0X[48-shift_grap_X]Y[56+shift_grap_Y] G242X[80-shift_grap_X]Y[92+shift_grap_Y] G02X[80-shift_grap_X]Y[92+shift_grap_Y]I[80-shift_grap_X]J[88+shift_gra
  • Page 293B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU if[cursor eq 5]then color -white C blue L1 else color white C blue L0 endif G243X[52-shift_char_X]Y[7-shift_char_Y](N) if[cursor eq 6]then color -white C blue L1 else color white C blue L0 endif G243X[41-shift_char_X]Y[11-shift_char_
  • Page 2946. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 /* white for Removal color white G242X[16-shift_grap_X]Y[28+shift_grap_Y] G02X[16-shift_grap_X]Y[28+shift_grap_Y]I[16-shift_grap_X]J[24+shift_grap_Y]Q4 G206P0X[16-shift_grap_X]Y[24+shift_grap_Y] G242X[48-shift_grap_X]Y[60+shift_grap_
  • Page 295B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU else color white C blue L0 endif G243X[40-shift_char_X]Y[15-shift_char_Y](X) if[cursor eq 3]then color -white C blue L1 else color white C blue L0 endif G243X[42-shift_char_X]Y[15-shift_char_Y](Y) if[cursor eq 4]then color -white C b
  • Page 2966. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 if[#[address 0] eq 202]then G242X[#21]Y[#22+#20] /* Only Grid G02X[#21]Y[#22+#20]I[#21]J[#22] /* Only Grid endif #22=#22+16*3 G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #21=100-shift_grap_X /* 3rd Row #22=44+shift_grap_Y G2
  • Page 297B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU #3=1 call fig_character #1=39-shift_char_X /* for 1 #2=14-shift_char_Y #3=1 call fig_character #1=39-shift_char_X /* for 2 #2=11-shift_char_Y #3=1 call fig_character G206P0X[50-shift_grap_X]Y[0+shift_grap_Y] /* white for Removal colo
  • Page 2986. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 #22=#22+16*3 G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] G206P0X[#21]Y[#22] /* purple line color purple #20=5 /* Radius #21=4-shift_grap_X /* Center X ;1st Row #22=12+shift_grap_Y /* Center Y G242X[#21]Y[#22+#20] G02X[#21]Y[
  • Page 299B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU G242X[52-shift_grap_X]Y[28+shift_grap_Y] ;Only Grid G01X[52-shift_grap_X]Y[124+shift_grap_Y] ;Only Grid G242X[100-shift_grap_X]Y[48+shift_grap_Y] ;Only Grid G01X[100-shift_grap_X]Y[140+shift_grap_Y] ;Only Grid G242X[4-shift_grap_X]Y[
  • Page 3006. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 endif G243X[37-shift_char_X]Y[12-shift_char_Y](V) if[cursor eq 5]then color -white C blue L1 else color white C blue L0 endif G243X[57-shift_char_X]Y[12-shift_char_Y](I) if[cursor eq 6]then color -white C blue L1 else color white C b
  • Page 301B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #21=60+61.819-shift_grap_X /* Center X #22=72-16.564+shift_grap_Y /* Center Y G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #1=45-shift_char_X /* for (X,Y) #2=11-shift_char_
  • Page 3026. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 G02X[#21]Y[#22+#20]I[#21]J[#22] G206P0X#21Y#22 /* purple line color purple #20=5 /* Radius #21=60+45.254-shift_grap_X /* Center X #22=72+45.254+shift_grap_Y /* Center Y G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #21=60-16.5
  • Page 303B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU else color white C blue L0 endif G243X[46-shift_char_X]Y[11-shift_char_Y](X) if[cursor eq 2]then color -white C blue L1 else color white C blue L0 endif G243X[48-shift_char_X]Y[11-shift_char_Y](Y) if[cursor eq 3]then color -white C b
  • Page 3046. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #1=45-shift_char_X /* for (X,Y) #2=12-shift_char_Y #3=5 call fig_character #1=44-shift_char_X /* for R #2=10-shift_char_Y #3=1 call fig_character #1=51-shift_char_X /* for A #2=11-
  • Page 305B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU #20=5 /* Radius #21=60+51.962-shift_grap_X /* Center X #22=56+30+shift_grap_Y /* Center Y G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #21=60+20.521-shift_grap_X /* Center X #22=56+56.382+shift_grap_Y /* Center Y G242X[#21]Y[
  • Page 3066. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 color white C blue L0 endif G243X[44-shift_char_X]Y[10-shift_char_Y](R) if[cursor eq 5]then color -white C blue L1 else color white C blue L0 endif G243X[51-shift_char_X]Y[11-shift_char_Y](A) if[cursor eq 6]then color -white C blue L
  • Page 307B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU #2=12-shift_char_Y #3=1 call fig_character #1=52-shift_char_X /* for A #2=11-shift_char_Y #3=1 call fig_character #1=50-shift_char_X /* for B #2=10-shift_char_Y #3=1 call fig_character #1=47-shift_char_X /* for C #2=9-shift_char_Y #3
  • Page 3086. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] #21=60-59.088-shift_grap_X /* Center X #22=56-10.419+shift_grap_Y /* Center Y G242X[#21]Y[#22+#20] G02X[#21]Y[#22+#20]I[#21]J[#22] G242X[-21-shift_grap_X]Y[-9+shift_grap_Y] G01X[14
  • Page 309B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU else color white C blue L0 endif G243X[47-shift_char_X]Y[9-shift_char_Y](C) if[cursor eq 14]then color -white C blue L1 else color white C blue L0 endif G243X[43-shift_char_X]Y[10-shift_char_Y](D) color white C blue L0 G243X[45-shift
  • Page 3106. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 6.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK4.SRC :: Hole Pattern /* /***** 8841: Points /***** 8842: Line /***** 8843: Grid /***** 8844: Square /***** 8845: Cir
  • Page 311B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU endif endif /* Pattern Cont. */ error_item = 22 if[#[value 22] eq #0]goto 97 if[#[value 22] lt 1 || #[value 22] gt 2]goto 98 goto 99 /* Data is lacking. */ n97 input_error_flag = error_on call fig_language color red C white L0 G243X1
  • Page 3126. USER PROGRAMS FOR HOLE PATTERN MENU SAMPLE PROGRAM B-63423EN/02 O8844 input_error_flag = error_non /* Start Point X */ error_item = 1 if[#[value 1] eq #0]goto 97 /* Start Point Y */ error_item = 2 if[#[value 2] eq #0]goto 97 /* U-Length */ error_item = 3 if[#[value 3] eq #0]goto 97 if[#[value 3]
  • Page 313B-63423EN/02 SAMPLE PROGRAM 6. USER PROGRAMS FOR HOLE PATTERN MENU color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu param. */ n98 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 /* ############################################### A
  • Page 3147. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 7 USER PROGRAMS FOR FACING MENU -306-
  • Page 315B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU 7.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING5.SRC :: Face /* /***** 7601: Softkey /***** 7611: Square /***** 7622: Circle /**********************************************
  • Page 3167. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 M99 O7621 ;############################################### Circle N9999('CIRCLE FACE'); N9998('CIRCLE FACE(DETAIL SET)'); N0001('MACH. PROCESS'); N0002('CLEARANCE'); N0003('END POINT Z'); N0004('REMOVAL DEPTH'); N0005('REMOVAL PITCH'); N00
  • Page 317B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU 7.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC5.SRC :: Face /* /***** 8461: Square /***** 8462: Circle /**************************************************************************
  • Page 3187. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 #[address 18] = add_N #[attribute 18] = att_decimal + att_detail #[value 18] = 5 #[address 19] = add_Q #[attribute 19] = att_not_use #[value 19] = #0 #[address 20] = add_R #[attribute 20] = att_not_use #[value 20] = #0 #[address 21] = add_
  • Page 319B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU #[value 17] = #0 #[address 18] = add_end previous_cursor = 1 /* Previous cursor position clear m99 -311-
  • Page 3207. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 7.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG5.SRC :: Face /* /***** 8661: Square /***** 8662: Circle /******************************************************************
  • Page 321B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU if[#[value 9] eq 3]then #1=6126 else #1=6125 /*** Guide Picture Setting ***/ if[guide_frequency ne secont_tine]goto 90 if[cursor le 8]then if[cursor eq 2]then call #1 else if[previous_cursor gt 8 || previous_cursor eq 2]then call fig_clear
  • Page 3227. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 #2=11-shift_char_Y #3=5 call fig_character #1=51-shift_char_X /* for A #2=10-shift_char_Y #3=1 call fig_character G206P0X[24-shift_grap_X]Y[68+shift_grap_Y] /* Edge Line color purple G242X[24-shift_grap_X]Y[20+shift_grap_Y] G01X[120-shift_
  • Page 323B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU G01X[111-shift_grap_X]Y[65+shift_grap_Y] G01X[111-shift_grap_X]Y[71+shift_grap_Y] G01X[-15-shift_grap_X]Y[71+shift_grap_Y] G01X[-15-shift_grap_X]Y[65+shift_grap_Y] G206P0X[0-shift_grap_X]Y[67+shift_grap_Y] /* white for Removal color white
  • Page 3247. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 /* green Line color green G242X[-17-shift_grap_X]Y[72+shift_grap_Y] /* for H G01X[-24-shift_grap_X]Y[72+shift_grap_Y] G242X[-17-shift_grap_X]Y[64+shift_grap_Y] G01X[-24-shift_grap_X]Y[64+shift_grap_Y] #1=-20-shift_grap_X #2=73+shift_grap_Y
  • Page 325B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU G01X[95-shift_grap_X]Y[119+shift_grap_Y] G01X[9-shift_grap_X]Y[119+shift_grap_Y] G01X[9-shift_grap_X]Y[25+shift_grap_Y] #1=44-shift_char_X #2=11-shift_char_Y #3=5 call fig_character G206P0X[50-shift_grap_X]Y[50+shift_grap_Y] /* green for T
  • Page 3267. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 call fig_line else #1=16-shift_grap_X #2=40+shift_grap_Y #3=18-shift_grap_X #4=40+shift_grap_Y #5=1 call fig_line #1=25-shift_grap_X #2=72+shift_grap_Y #3=23-shift_grap_X #4=72+shift_grap_Y #5=1 call fig_line #1=16-shift_grap_X #2=104+shif
  • Page 327B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU #2=135+shift_grap_Y #3=95-shift_grap_X #4=#2 #5=2 call fig_line G242X[97-shift_grap_X]Y[120+shift_grap_Y] /* for V G01X[144-shift_grap_X]Y[120+shift_grap_Y] G242X[97-shift_grap_X]Y[24+shift_grap_Y] G01X[144-shift_grap_X]Y[24+shift_grap_Y]
  • Page 3287. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 #1=18 call fig_cursor G243X[40-shift_char_X]Y[5-shift_char_Y](N) color white C blue L0 G243X[44-shift_char_X]Y[11-shift_char_Y]('(') G243X[46-shift_char_X]Y[11-shift_char_Y](',') G243X[48-shift_char_X]Y[11-shift_char_Y](')') cursor_off m99
  • Page 329B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU G01X[88-shift_grap_X]Y[40+shift_grap_Y] G01X[16-shift_grap_X]Y[40+shift_grap_Y] G01X[16-shift_grap_X]Y[104+shift_grap_Y] G01X[80-shift_grap_X]Y[104+shift_grap_Y] G01X[80-shift_grap_X]Y[48+shift_grap_Y] G01X[24-shift_grap_X]Y[48+shift_grap_
  • Page 3307. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 G01X[128-shift_grap_X]Y[120+shift_grap_Y] #1=123-shift_grap_X #2=25+shift_grap_Y #3=123-shift_grap_X #4=119+shift_grap_Y #5=2 call fig_line G242X[96-shift_grap_X]Y[23+shift_grap_Y] /* for M G01X[96-shift_grap_X]Y[8+shift_grap_Y] G242X[104-
  • Page 331B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU call fig_cursor G243X[47-shift_char_X]Y[11-shift_char_Y](Y) #1=13 call fig_cursor G243X[46-shift_char_X]Y[6-shift_char_Y](U) #1=14 call fig_cursor G243X[56-shift_char_X]Y[10-shift_char_Y](V) #1=17 call fig_cursor G243X[52-shift_char_X]Y[15
  • Page 3327. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 /* red for Path color red G242X[115.777-shift_grap_X]Y[40+shift_grap_Y] G01X[-3.777-shift_grap_X]Y[40+shift_grap_Y] dot_line if[#[value 9] eq 1]then G01X[128-shift_grap_X]Y[72+shift_grap_Y] solid_line G01X[-16-shift_grap_X]Y[72+shift_grap_
  • Page 333B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU #4=#2 #5=1 call fig_line #1=0-shift_grap_X /* (3) #2=29+shift_grap_Y #3=-10-shift_grap_X #4=#2 #5=1 call fig_line /* (4) #1=0-shift_grap_X #2=115+shift_grap_Y #3=-10-shift_grap_X #4=#2 #5=1 call fig_line /* green Line color green G242X[98.
  • Page 3347. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 G243X[46-shift_char_X]Y[11-shift_char_Y](',') G243X[48-shift_char_X]Y[11-shift_char_Y](')') cursor_off G243X[55-shift_char_X]Y[13-shift_char_Y]('(1)') G243X[55-shift_char_X]Y[8-shift_char_Y]('(2)') G243X[36-shift_char_X]Y[13-shift_char_Y](
  • Page 335B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU #3=49-shift_grap_X #4=#2 #5=1 call fig_line #1=112-shift_grap_X /* (1) #2=32+shift_grap_Y #3=122-shift_grap_X #4=#2 #5=1 call fig_line #1=112-shift_grap_X /* (2) #2=144+shift_grap_Y #3=122-shift_grap_X #4=#2 #5=1 call fig_line #1=8-shift_g
  • Page 3367. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 else color white C blue L0 endif G243X[43-shift_char_X]Y[9-shift_char_Y](Q) #1=11 call fig_cursor G243X[46-shift_char_X]Y[10-shift_char_Y](X) #1=12 call fig_cursor G243X[48-shift_char_X]Y[10-shift_char_Y](Y) #1=15 call fig_cursor G243X[55-
  • Page 337B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU 7.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK5.SRC :: Face /* /***** 8861: Square /***** 8862: Circle /*****************************************************************
  • Page 3387. USER PROGRAMS FOR FACING MENU SAMPLE PROGRAM B-63423EN/02 error_item = 14 if[#[value 14] eq #0]goto 97 if[#[value 14] le 0]goto 98 /* Start Point Sel. */ error_item = 16 if[#[value 16] eq #0]goto 97 if[#[value 16] lt 1 || #[value 16] gt 4]goto 98 /* Approach Gap */ error_item = 17 if[#[value 17]
  • Page 339B-63423EN/02 SAMPLE PROGRAM 7. USER PROGRAMS FOR FACING MENU /* Finishing Alw. */ if[#[attribute 6] ne att_not_use]then error_item = 6 if[#[value 6] lt 0]goto 98 endif /* Feed Rate */ error_item = 7 if[#[value 7] eq #0]goto 97 if[#[value 7] le 0]goto 98 /* Cutting Width% */ error_item = 8 if[#[value
  • Page 3408. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 8 USER PROGRAMS FOR SIDE CUTTING MENU -332-
  • Page 341B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU 8.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING6.SRC :: Side (ENGLISH) /* /***** 7701: Softkey /***** 7711: Square /***** 7721: Circle /***** 7731: Track /***** 7741:
  • Page 3428. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 N0152('2'); N0153('3'); N0154('4'); N2000('20'); N2001("20 01 C010 20")('OUTSID'); N2002("20 01 C018 20")('INSIDE'); N2051('1'); N2052('2'); N2500('21'); N2501("20 01 C010 20")('DOWNCT'); N2502("20 01 C018 20")('UPCUT '); N2551('1');
  • Page 343B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU N0100('19'); N0101("20 01 C010 20")('ROUGH '); N0102("20 01 C018 20")('B-FIN '); N0103("20 01 C020 20")('S-FIN '); N0104("20 01 C028 20")('CHAMF '); N0151('1'); N0152('2'); N0153('3'); N0154('4'); N2000('23'); N2001("20 01 C010 20")(
  • Page 3448. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 N0028('APPROACH/ESCAPE'); N0029('START POINT SEL.'); N0030('START POINT SEL.'); N0100('19'); N0101("20 01 C010 20")('ROUGH '); N0102("20 01 C018 20")('B-FIN '); N0103("20 01 C020 20")('S-FIN '); N0104("20 01 C028 20")('CHAMF '); N015
  • Page 345B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU N0026('ESCAPE/APPROACH'); N0100('19'); N0101("20 01 C010 20")('ROUGH '); N0102("20 01 C018 20")('B-FIN '); N0103("20 01 C020 20")('S-FIN '); N0104("20 01 C028 20")('CHAMF '); N0151('1'); N0152('2'); N0153('3'); N0154('4'); N2300('31'
  • Page 3468. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 N2102("20 01 C018 20")('TANGNT'); N2103("20 01 C020 20")('VERTCL'); N2151('1'); N2152('2'); N2153('3'); N2500('26'); N2501("20 01 C010 20")('CIRCLE'); N2502("20 01 C018 20")('TANGNT'); N2503("20 01 C020 20")('VERTCL'); N2551('1'); N2
  • Page 347B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU 8.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC6.SRC :: Side /* /***** 8471: Square /***** 8472: Circle /***** 8473: Track /***** 8474: One Side /***** 8475: Contour /******
  • Page 3488. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #[address 17] = add_F #[attribute 17] = att_decimal #[value 17] = #0 #[address 18] = add_E #[attribute 18] = att_decimal #[value 18] = #0 #[attribute 19] = att_not_use #[address 20] = add_M #[attribute 20] = att_character #[value 20]
  • Page 349B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 5] = att_decimal #[value 5] = #0 #[address 6] = add_D #[attribute 6] = att_decimal #[value 6] = 0 #[address 7] = add_B #[attribute 7] = att_decimal #[value 7] = #0 #[address 8] = add_J #[attribute 8] = att_decimal #[value
  • Page 3508. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #[address 28] = add_N #[attribute 28] = att_character + att_detail #[value 28] = 1 #[address 29] = add_end previous_cursor = 1 /* Previous cursor position clear m99 O8473 ;############################################### Track #[addre
  • Page 351B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[address 20] = add_M #[attribute 20] = att_character #[value 20] = #0 #[address 21] = add_X #[attribute 21] = att_decimal #[value 21] = #0 #[address 22] = add_Y #[attribute 22] = att_decimal #[value 22] = #0 #[address 23] = add_U #[
  • Page 3528. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #[value 9] = 0 #[address 10] = add_W ;DUMMY #[attribute 10] = att_new_page #[value 10] = #0 ;DUMMY #[address 11] = add_T /* not use now /* #[attribute 11] = att_decimal + att_detail /* not use now #[attribute 11] = att_not_use /* not
  • Page 353B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 4] = att_decimal #[value 4] = #0 #[address 5] = add_I #[attribute 5] = att_not_use #[value 5] = #0 #[address 6] = add_D #[attribute 6] = att_decimal #[value 6] = 0 #[address 7] = add_B #[attribute 7] = att_decimal #[value
  • Page 3548. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #[value 26] = 5 #[address 27] = add_Y #[attribute 27] = att_decimal + att_detail #[value 27] = 90 #[address 28] = add_X #[attribute 28] = att_decimal + att_detail #[value 28] = 5 #[address 29] = add_U #[attribute 29] = att_character
  • Page 355B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU 8.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG6.SRC :: Side /* /***** 8671: Square /***** 8672: Circle /***** 8673: Track /***** 8674: One Side /***** 8675: Contour
  • Page 3568. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 20] eq 2]then call 6134 else call 6133 endif endif endif n1 previous_cursor = cursor n90 /*** Attribution Setting ***/ if[#[value 1] eq 1]then /* Rough #[attribute 4] = att_decimal #[attribute 5] = att_decimal #[attribute
  • Page 357B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 9] = att_decimal #[attribute 10] = att_new_page #[attribute 12] = att_not_use #[attribute 13] = att_not_use #[attribute 14] = att_not_use #[attribute 15] = att_not_use if[#[value 11] ne #0 && #[value 11] ne 0]then #[attri
  • Page 3588. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 call fig_clear call 6160 goto 1 endif if[cursor eq 15]then call fig_clear call 6161 goto 1 endif if[cursor eq 16]then call fig_clear call 6162 goto 1 endif if[previous_cursor gt 18 || previous_cursor eq 11 || previous_cursor eq 2]the
  • Page 359B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 13] = att_not_use #[attribute 14] = att_not_use #[attribute 15] = att_not_use if[#[value 11] ne #0 && #[value 11] ne 0]then #[attribute 16] = att_decimal else #[attribute 16] = att_not_use endif #[attribute 19] = att_not_
  • Page 3608. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 endif if[cursor eq 13]then call fig_clear call 6159 goto 1 endif if[cursor eq 14]then call fig_clear call 6160 goto 1 endif if[cursor eq 15]then call fig_clear call 6161 goto 1 endif if[cursor eq 16]then call fig_clear call 6162 goto
  • Page 361B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 16] = att_decimal else #[attribute 16] = att_not_use endif #[attribute 19] = att_not_use #[attribute 27] = att_decimal + att_detail #[attribute 28] = att_not_use endif if[#[value 1] eq 2]then /* Bottom Finish #[attribute
  • Page 3628. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 else #[attribute 29] = att_not_use #[attribute 30] = att_character + att_detail endif m99 O8674 ;############################################### One Side /*** Guide Picture Setting ***/ if[guide_frequency ne secont_tine]goto 90 if[cu
  • Page 363B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 10] = att_new_page #[attribute 12] = att_not_use #[attribute 13] = att_not_use #[attribute 14] = att_not_use #[attribute 15] = att_not_use if[#[value 11] ne #0 && #[value 11] ne 0]then #[attribute 16] = att_decimal else #
  • Page 3648. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 O8675 ;############################################### Contour /*** Guide Picture Setting ***/ if[guide_frequency ne secont_tine]goto 90 if[cursor le 20]then if[previous_cursor gt 20 || previous_cursor eq 2]then call fig_clear endif
  • Page 365B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #[attribute 8] = att_not_use #[attribute 18] = att_not_use endif if[#[value 21] eq 1]then #[attribute 22] = att_decimal + att_detail #[attribute 23] = att_decimal + att_detail #[attribute 24] = att_not_use else #[attribute 22] = att_
  • Page 3668. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 G01X[47-shift_grap_X]Y[49+shift_grap_Y] G01X[47-shift_grap_X]Y[143+shift_grap_Y] G01X[41-shift_grap_X]Y[143+shift_grap_Y] G01X[41-shift_grap_X]Y[55+shift_grap_Y] G01X[-15-shift_grap_X]Y[55+shift_grap_Y] G01X[-15-shift_grap_X]Y[49+shi
  • Page 367B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU G01X[63-shift_grap_X]Y[152+shift_grap_Y] #1=47-shift_grap_X #2=148+shift_grap_Y #3=37-shift_grap_X #4=#2 #5=1 call fig_line #1=64-shift_grap_X #2=148+shift_grap_Y #3=74-shift_grap_X #4=#2 #5=1 call fig_line endif G242X[105-shift_grap
  • Page 3688. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #4=#2 #5=1 call fig_line /* Characters if[#[address 0] ne 224]then #1=12 call fig_cursor G243X[46-shift_char_X]Y[5-shift_char_Y](C) endif #1=7 call fig_cursor G243X[56-shift_char_X]Y[9-shift_char_Y](B) #1=8 call fig_cursor G243X[54-s
  • Page 369B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU G01X[43-shift_grap_X]Y[151+shift_grap_Y] G01X[1-shift_grap_X]Y[151+shift_grap_Y] G01X[1-shift_grap_X]Y[65+shift_grap_Y] G206P0X[10-shift_grap_X]Y[100+shift_grap_Y] /* purple line color purple G242X[0-shift_grap_X]Y[8+shift_grap_Y] G0
  • Page 3708. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 G02X[135-shift_grap_X]Y[56+shift_grap_Y]I[128-shift_grap_X]J[56+shift_grap_Y]Q4 G206P0X[128-shift_grap_X]Y[56+shift_grap_Y] else G242X[135-shift_grap_X]Y[72+shift_grap_Y] G02X[135-shift_grap_X]Y[72+shift_grap_Y]I[128-shift_grap_X]J[7
  • Page 371B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU /* green Line color green G242X[0-shift_grap_X]Y[113+shift_grap_Y] /* for U G01X[0-shift_grap_X]Y[136+shift_grap_Y] G242X[104-shift_grap_X]Y[113+shift_grap_Y] G01X[104-shift_grap_X]Y[136+shift_grap_Y] #1=1-shift_grap_X #2=133+shift_g
  • Page 3728. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 O6134 ;############################################### Square Inner /* blue for Work color blue G242X[-31-shift_grap_X]Y[17+shift_grap_Y] G01X[135-shift_grap_X]Y[17+shift_grap_Y] G01X[135-shift_grap_X]Y[127+shift_grap_Y] G01X[-31-shi
  • Page 373B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU G03X[112-shift_grap_X]Y[48+shift_grap_Y]I[104-shift_grap_X]J[48+shift_grap_Y] G01X[112-shift_grap_X]Y[96+shift_grap_Y] G03X[104-shift_grap_X]Y[104+shift_grap_Y]I[104-shift_grap_X]J[96+shift_grap_Y] G01X[0-shift_grap_X]Y[104+shift_gra
  • Page 3748. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 call fig_cursor G243X[47-shift_char_X]Y[11-shift_char_Y](Y) #1=23 call fig_cursor G243X[46-shift_char_X]Y[6-shift_char_Y](U) #1=24 call fig_cursor G243X[58-shift_char_X]Y[10-shift_char_Y](V) #1=27 call fig_cursor G243X[52-shift_char_
  • Page 375B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU G02X[104-shift_grap_X]Y[72+shift_grap_Y]I[48-shift_grap_X]J[72+shift_grap_Y]Q4 #1=48-shift_grap_X #2=128+shift_grap_Y #3=47-shift_grap_X #4=#2 #5=1 call fig_line if[#[value 1] eq 3 || #[value 1] eq 4]then #1=120-shift_grap_X #2=88+sh
  • Page 3768. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 color blue G242X[-31-shift_grap_X]Y[-23+shift_grap_Y] G01X[151-shift_grap_X]Y[-23+shift_grap_Y] G01X[151-shift_grap_X]Y[167+shift_grap_Y] G01X[-31-shift_grap_X]Y[167+shift_grap_Y] G01X[-31-shift_grap_X]Y[-23+shift_grap_Y] G242X[-17-s
  • Page 377B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU endif /* green Line color green #1=61-shift_grap_X /* for R #2=73+shift_grap_Y #3=113.7401-shift_grap_X #4=125.7401+shift_grap_Y #5=0 call fig_line /* yellow Cross Mark color yellow #1=60-shift_grap_X /* Center #2=72+shift_grap_Y cal
  • Page 3788. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 else G242X[137-shift_grap_X]Y[72+shift_grap_Y] G02X[137-shift_grap_X]Y[72+shift_grap_Y]I[144-shift_grap_X]J[72+shift_grap_Y]Q4 G206P0X[144-shift_grap_X]Y[72+shift_grap_Y] endif /* Edge Line color sky_blue /* for Work(blue green) G242
  • Page 379B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU #3=110.6274-shift_grap_X #4=94.9274+shift_grap_Y #5=0 call fig_line /* yellow Cross Mark color yellow #1=8-shift_grap_X /* Left #2=72+shift_grap_Y call fig_mark #1=88-shift_grap_X /* Right #2=72+shift_grap_Y call fig_mark /* Characte
  • Page 3808. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 G242X[7-shift_grap_X]Y[88+shift_grap_Y] /* Start Tool G02X[7-shift_grap_X]Y[88+shift_grap_Y]I[0-shift_grap_X]J[88+shift_grap_Y]Q4 G206P0X[0-shift_grap_X]Y[88+shift_grap_Y] G242X[7-shift_grap_X]Y[56+shift_grap_Y] /* End Tool G02X[7-sh
  • Page 381B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU /* green Line color green #1=96-shift_grap_X /* for R #2=72+shift_grap_Y #3=129.9411-shift_grap_X #4=105.9411+shift_grap_Y #5=0 call fig_line #1=25-shift_grap_X /* for U #2=72+shift_grap_Y #3=95-shift_grap_X #4=#2 #5=2 call fig_line
  • Page 3828. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #3=5 call fig_character G206P0X[20-shift_grap_X]Y[88+shift_grap_Y] /* green for Tool color green G242X[121-shift_grap_X]Y[16+shift_grap_Y] /* (1) G02X[121-shift_grap_X]Y[16+shift_grap_Y]I[128-shift_grap_X]J[16+shift_grap_Y] G206P0X[1
  • Page 383B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU /* green Line color green G242X[0-shift_grap_X]Y[105+shift_grap_Y] /* for U(Upper) G01X[0-shift_grap_X]Y[120+shift_grap_Y] G242X[112-shift_grap_X]Y[105+shift_grap_Y] G01X[112-shift_grap_X]Y[120+shift_grap_Y] #1=1-shift_grap_X #2=118+
  • Page 3848. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #1=-9-shift_grap_X #2=32+shift_grap_Y #3=-19-shift_grap_X #4=#2 #5=1 call fig_line #1=1-shift_grap_X #2=32+shift_grap_Y #3=11-shift_grap_X #4=#2 #5=1 call fig_line /* yellow Cross Mark color yellow #1=56-shift_grap_X /* (X,Y)(Upper)
  • Page 385B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU O6140 ;############################################### Contour : Approach/Escape Type if[#[address 0] eq 224]then #19=21 else #19=26 /* blue for Work color blue #20=144+shift_grap_Y G242X[-24-shift_grap_X]Y[#20-23] G01X[-24-shift_gra
  • Page 3868. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #4=#2 if[cursor eq #19]then #5=0 else #5=1 endif call fig_line /* Characters #8509 = string_o_number color white call fig_language G243X[43-shift_char_X]Y[6 -shift_char_Y]P[#1+90] G243X[43-shift_char_X]Y[10-shift_char_Y]P[#1+91] G243
  • Page 387B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU G03X[89-shift_grap_X]Y[72+shift_grap_Y]I[105-shift_grap_X]J[72+shift_grap_Y] else G242X[105-shift_grap_X]Y[72+shift_grap_Y] /* Radius G01X[105-shift_grap_X]Y[-8+shift_grap_Y] #1=105-shift_grap_X #2=72+shift_grap_Y #3=25-shift_grap_X
  • Page 3888. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 #2=71+shift_grap_Y #3=#1 #4=-8+shift_grap_Y endif #5=0 call fig_line /* green Line color green G242X[73-shift_grap_X]Y[72+shift_grap_Y] G01X[88-shift_grap_X]Y[72+shift_grap_Y] if[cursor eq #19]then G242X[73-shift_grap_X]Y[152+shift_g
  • Page 389B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU else #5=1 endif call fig_line /* green Line color green G242X[33-shift_grap_X]Y[73+shift_grap_Y] G01X[33-shift_grap_X]Y[88+shift_grap_Y] G242X[120-shift_grap_X]Y[73+shift_grap_Y] G01X[120-shift_grap_X]Y[88+shift_grap_Y] #1=34-shift_g
  • Page 3908. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 G242X[32-shift_grap_X]Y[151+shift_grap_Y] G02 X[32-shift_grap_X]Y[151+shift_grap_Y]I[32-shift_grap_X]J[136+shift_grap_Y]Q4 G206P0X[40-shift_grap_X]Y[137+shift_grap_Y] color purple G242X[32-shift_grap_X]Y[151+shift_grap_Y] G02 X[32-sh
  • Page 391B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU 8.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK6.SRC :: Side /* /***** 8871: Square /***** 8872: Circle /***** 8873: Track /***** 8874: One Side /***** 8875: Contou
  • Page 3928. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 12] le 0]goto 98 endif /* Tool Small Dia.*/ if[#[attribute 13] ne att_not_use]then error_item = 13 if[#[value 13] lt 0]goto 98 endif /* Chamfer Angle */ if[#[attribute 14] ne att_not_use]then error_item = 14 if[#[value 14]
  • Page 393B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU endif /* Approach / Escape */ if[#[attribute 30] ne att_not_use]then error_item = 30 if[#[value 30] eq 0]goto 98 if[#[value 30] lt 0]goto 98 endif /* Start Point Sel. */ if[#[attribute 31] ne att_not_use]then error_item = 31 if[#[val
  • Page 3948. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 /* Bottom Pitch */ if[#[attribute 8] ne att_not_use]then error_item = 8 if[#[value 8] lt 0]goto 98 endif /* Bottom Finish */ if[#[attribute 9] ne att_not_use]then error_item = 9 if[#[value 9] lt 0]goto 98 endif /* Taper Angle */ erro
  • Page 395B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU if[#[attribute 25] ne att_not_use]then error_item = 25 if[#[value 25] eq #0]goto 97 if[#[value 25] le 0]goto 98 endif /* Approach / Escape */ if[#[attribute 26] ne att_not_use]then error_item = 26 if[#[value 26] eq 0]goto 98 if[#[val
  • Page 3968. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 /* Bottom Removal */ error_item = 7 if[#[value 7] eq #0]goto 97 if[#[value 7] le 0]goto 98 /* Bottom Pitch */ if[#[attribute 8] ne att_not_use]then error_item = 8 if[#[value 8] lt 0]goto 98 endif /* Bottom Finish */ if[#[attribute 9]
  • Page 397B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU error_item = 24 if[#[value 24] eq #0]goto 97 if[#[value 24] le 0]goto 98 /* Cut Direction */ error_item = 25 if[#[value 25] eq #0]goto 97 if[#[value 25] lt 1 || #[value 25] gt 2]goto 98 /* Approach Gap */ if[#[attribute 27] ne att_no
  • Page 3988. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 error_item = 5 if[#[value 5] lt 0]goto 98 endif /* Side Finish */ if[#[attribute 6] ne att_not_use]then error_item = 6 if[#[value 6] lt 0]goto 98 endif /* Bottom Removal */ error_item = 7 if[#[value 7] eq #0]goto 97 if[#[value 7] le
  • Page 399B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU error_item = 23 if[#[value 23] eq #0]goto 97 if[#[value 23] lt 1 || #[value 23] gt 4]goto 98 /* Approach / Escape */ error_item = 25 if[#[value 25] eq #0]goto 97 if[#[value 25] le 0]goto 98 /* Escape / Approach */ error_item = 26 if[
  • Page 4008. USER PROGRAMS FOR SIDE CUTTING MENU SAMPLE PROGRAM B-63423EN/02 if[#[attribute 18] ne att_not_use]then error_item = 18 if[#[value 18] eq #0]goto 97 if[#[value 18] le 0]goto 98 endif /* Z-Cut Feed Rate */ error_item = 19 if[#[value 19] eq #0]goto 97 if[#[value 19] le 0]goto 98 /* Cut Direction */
  • Page 401B-63423EN/02 SAMPLE PROGRAM 8. USER PROGRAMS FOR SIDE CUTTING MENU goto 99 /* Input error in menu param. */ n98 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 -393-
  • Page 4029. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 9 USER PROGRAMS FOR POCKETING MENU -394-
  • Page 403B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU 9.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING7.SRC :: Pocket (ENGLISH) /* /***** 7801: Softkey /***** 7811: Square /***** 7821: Circle /***** 7831: Track /***** 7841:
  • Page 4049. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 N0105("20 01 C030 20")(' HOLE '); N0151('1'); N0152('2'); N0153('3'); N0154('4'); N0155('5'); N2100('21'); N2101("20 01 C010 20")('DOWNCT'); N2102("20 01 C018 20")('UPCUT '); N2151('1'); N2152('2'); N2400('28'); N2401("20 01 C010 20")('
  • Page 405B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU N0154('4'); N0155('5'); N2000('21'); N2001("20 01 C010 20")('DOWNCT'); N2002("20 01 C018 20")('UPCUT '); N2051('1'); N2052('2'); N2100('28'); N2101("20 01 C010 20")(' [1] '); N2102("20 01 C018 20")(' [2] '); N2151('1'); N2152('2'); N240
  • Page 4069. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 N2100('21'); N2101("20 01 C010 20")('DOWNCT'); N2102("20 01 C018 20")('UPCUT '); N2151('1'); N2152('2'); N2300(' 28'); N2301("20 01 C010 20")(' [1] '); N2302("20 01 C018 20")(' [2] '); N2351('1'); N2352('2'); N2600('7'); N2601("20 01 C0
  • Page 407B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU N2302("20 01 C028 20")(' [2] '); N2351('1'); N2352('2'); M99 O7851 ;############################################### Contour Pocket N9999('CONTOUR POCKET'); N9998('CONTOUR POCKET(DETAIL SET)'); N0001('MACH. PROCESS'); N0002('CLEARANCE');
  • Page 4089. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 N2501("20 01 C010 20")('CIRCLE'); N2502("20 01 C018 20")('TANGNT'); N2503("20 01 C020 20")('VERTCL'); N2551('1'); N2552('2'); N2553('3'); N2900('26'); N2901("20 01 C010 20")('CIRCLE'); N2902("20 01 C018 20")('TANGNT'); N2903("20 01 C020
  • Page 409B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU N1351('1'); N1352('2'); N2000('7'); N2001("20 01 C010 20")(' G81 '); N2002("20 01 C020 20")(' G83 '); N2051('1'); N2052('2'); N2500('25'); N2501("20 01 C010 20")('CIRCLE'); N2502("20 01 C018 20")('TANGNT'); N2503("20 01 C020 20")('VERTC
  • Page 4109. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 9.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC7.SRC :: Pocket /* /***** 8481: Square /***** 8482: Circle /***** 8483: Track /***** 8484: Groove /***** 8485: Contour Pocket /**
  • Page 411B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 17] = att_decimal #[value 17] = #0 #[address 18] = add_Y #[attribute 18] = att_decimal #[value 18] = #0 #[address 19] = add_U #[attribute 19] = att_decimal #[value 19] = #0 #[address 20] = add_V #[attribute 20] = att_decimal
  • Page 4129. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[value 5] = #0 #[address 6] = add_H #[attribute 6] = att_decimal #[value 6] = 0 #[address 7] = add_D #[attribute 7] = att_decimal #[value 7] = 0 #[address 8] = add_C #[attribute 8] = att_not_use #[value 8] = #0 #[address 9] = add_C ;DU
  • Page 413B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 29] = att_not_use #[value 29] = #0 #[address 30] = add_end previous_cursor = 1 /* Previous cursor position clear m99 O8483 ;############################################### Track #[address 0] = 232 #[address 1] = add_P #[attr
  • Page 4149. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[value 20] = #0 #[address 21] = add_W #[attribute 21] = att_character + att_detail #[value 21] = 1 #[address 22] = add_A #[attribute 22] = att_decimal + att_detail #[value 22] = 0 #[address 23] = add_N #[attribute 23] = att_not_use #[v
  • Page 415B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[address 10] = add_F #[attribute 10] = att_decimal #[value 10] = #0 #[address 11] = add_C #[attribute 11] = att_decimal #[value 11] = 70 #[address 12] = add_E #[attribute 12] = att_decimal #[value 12] = #0 #[address 13] = add_D #[attri
  • Page 4169. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[address 5] = add_J #[attribute 5] = att_decimal #[value 5] = #0 #[address 6] = add_H #[attribute 6] = att_decimal #[value 6] = 0 #[address 7] = add_D #[attribute 7] = att_decimal #[value 7] = 0 #[address 8] = add_C #[attribute 8] = at
  • Page 417B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[address 28] = add_M #[attribute 28] = att_not_use #[value 28] = 5 #[address 29] = add_R #[attribute 29] = att_not_use #[value 29] = 1 #[address 30] = add_X #[attribute 30] = att_not_use #[value 30] = 5 #[address 31] = add_Y #[attribut
  • Page 4189. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[value 14] = #0 #[address 15] = add_B ; Not use now #[attribute 15] = att_not_use ; Not use now #[value 15] = #0 ; Not use now #[address 16] = add_J ; Not use now #[attribute 16] = att_not_use ; Not use now #[value 16] = #0 ; Not use n
  • Page 419B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU 9.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG7.SRC :: Pocket /* /***** 8681: Square /***** 8682: Circle /***** 8683: Track /***** 8684: Groove /***** 8685: Contour Po
  • Page 4209. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 else call 6157 endif cursor = cursor + 25 endif n1 previous_cursor = cursor n90 /*** Attribution Setting ***/ if[#[value 1] eq 1]then #[attribute 5] = att_decimal #[attribute 6] = att_decimal #[attribute 7] = att_decimal #[attribute 8]
  • Page 421B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 7] = att_not_use #[attribute 8] = att_decimal #[attribute 9] = att_not_use #[attribute 10] = att_decimal #[attribute 11] = att_not_use #[attribute 12] = att_decimal #[attribute 13] = att_decimal #[attribute 14] = att_decimal
  • Page 4229. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 call fig_clear call 6161 goto 1 endif if[cursor le 21 || cursor eq 29]then if[previous_cursor lt 17 || previous_cursor gt 21 || previous_cursor eq 20]then if[previous_cursor ne 2 && previous_cursor ne 20 && previous_cursor ne 29]then ca
  • Page 423B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 7] = att_not_use #[attribute 8] = att_not_use #[attribute 9] = att_not_use #[attribute 10] = att_decimal #[attribute 11] = att_not_use #[attribute 12] = att_decimal #[attribute 13] = att_not_use #[attribute 14] = att_not_use
  • Page 4249. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 if[previous_cursor gt 12 || previous_cursor eq 2]then call fig_clear endif call 6151 endif goto 1 endif if[cursor eq 13]then call fig_clear call 6159 goto 1 endif if[cursor eq 14]then call fig_clear call 6160 goto 1 endif if[cursor eq 1
  • Page 425B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 31] = att_not_use endif if[#[value 1] eq 2]then #[attribute 5] = att_not_use #[attribute 6] = att_decimal #[attribute 7] = att_decimal #[attribute 8] = att_not_use #[attribute 9] = att_not_use #[attribute 10] = att_decimal #
  • Page 4269. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 15] = att_not_use #[attribute 16] = att_new_page #[attribute 21] = att_not_use #[attribute 26] = att_character if[#[value 26] eq 1]then #[attribute 28] = att_not_use else #[attribute 28] = att_decimal endif #[attribute 31] =
  • Page 427B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 10] = att_decimal #[attribute 11] = att_decimal #[attribute 12] = att_not_use #[attribute 13] = att_not_use #[attribute 14] = att_not_use #[attribute 15] = att_not_use #[attribute 16] = att_not_use endif if[#[value 1] eq 2]t
  • Page 4289. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 endif cursor = cursor - 18 if[#[value 20] eq 2]then call 6158 else call 6157 endif cursor = cursor + 18 goto 1 endif if[cursor eq 25 || cursor eq 29]then call fig_clear call 6140 endif if[cursor eq 26 || cursor eq 27]then if[previous_cu
  • Page 429B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #[attribute 28] = att_not_use #[attribute 29] = att_not_use #[attribute 30] = att_not_use #[attribute 31] = att_not_use #[attribute 32] = att_not_use endif if[#[value 1] eq 2]then #[attribute 5] = att_not_use #[attribute 6] = att_decima
  • Page 4309. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 7] = att_decimal #[attribute 9] = att_not_use #[attribute 10] = att_decimal #[attribute 11] = att_decimal #[attribute 12] = att_not_use #[attribute 14] = att_character + att_detail #[attribute 18] = att_new_page #[attribute
  • Page 431B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU call fig_clear if[#[value 25] eq 3]then call 6143 else call 6142 endif endif if[cursor eq 32]then call fig_clear if[#[value 29] eq 3]then call 6143 else call 6142 endif endif if[cursor eq 33]then call fig_clear call 6144 endif n1 previo
  • Page 4329. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 5] = att_not_use #[attribute 6] = att_decimal #[attribute 7] = att_not_use #[attribute 9] = att_not_use #[attribute 10] = att_decimal #[attribute 11] = att_not_use #[attribute 12] = att_decimal #[attribute 18] = att_not_use
  • Page 433B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU /**************************************************************************** /* /* FIGSUB7.SRC :: Pocket /* /***** 6151: Prepare /***** 6152: Square /***** 6153: Circle /***** 6154: Track /***** 6155: Groove /***** 6156: Contour Groove
  • Page 4349. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 G01X[7-shift_grap_X]Y[55+shift_grap_Y] G01X[7-shift_grap_X]Y[111+shift_grap_Y] if[#[address 0] ne 234 && #[address 0] ne 235]then G01X[-9-shift_grap_X]Y[111+shift_grap_Y] else G01X[1-shift_grap_X]Y[111+shift_grap_Y] endif G206P0X[8-shif
  • Page 435B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU G242X[88-shift_grap_X]Y[113+shift_grap_Y] /* for C G01X[88-shift_grap_X]Y[120+shift_grap_Y] G242X[98-shift_grap_X]Y[113+shift_grap_Y] G01X[98-shift_grap_X]Y[120+shift_grap_Y] #1=87-shift_grap_X #2=117+shift_grap_Y #3=77-shift_grap_X #4=
  • Page 4369. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 if[#[address 0] ne 234 && #[address 0] ne 235]then #1=8 call fig_cursor G243X[51-shift_char_X]Y[7-shift_char_Y](C) endif #1=4 call fig_cursor G243X[57-shift_char_X]Y[10-shift_char_Y](B) #1=5 call fig_cursor G243X[55-shift_char_X]Y[9-shi
  • Page 437B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU G242X[-24-shift_grap_X]Y[16+shift_grap_Y] G01X[128-shift_grap_X]Y[16+shift_grap_Y] G01X[128-shift_grap_X]Y[128+shift_grap_Y] G01X[-24-shift_grap_X]Y[128+shift_grap_Y] G01X[-24-shift_grap_X]Y[16+shift_grap_Y] G242X[-8-shift_grap_X]Y[32+s
  • Page 4389. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #1=-15-shift_grap_X #2=133+shift_grap_Y #3=111-shift_grap_X #4=#2 #5=2 call fig_line G242X[105-shift_grap_X]Y[112+shift_grap_Y] /* for V G01X[136-shift_grap_X]Y[112+shift_grap_Y] G242X[105-shift_grap_X]Y[32+shift_grap_Y] G01X[136-shift_
  • Page 439B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU else G242X[49-shift_grap_X]Y[72+shift_grap_Y] /* Start Tool G02X[49-shift_grap_X]Y[72+shift_grap_Y]I[56-shift_grap_X]J[72+shift_grap_Y]Q4 G206P0X[56-shift_grap_X]Y[72+shift_grap_Y] G242X[97-shift_grap_X]Y[72+shift_grap_Y] /* End Tool G0
  • Page 4409. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 call fig_cursor G243X[46-shift_char_X]Y[11-shift_char_Y](X) #1=18 call fig_cursor G243X[48-shift_char_X]Y[11-shift_char_Y](Y) #1=19 call fig_cursor G243X[45-shift_char_X]Y[12-shift_char_Y](R) cursor_off G243X[45-shift_char_X]Y[11-shift_
  • Page 441B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU else G242X[16-shift_grap_X]Y[72+shift_grap_Y] /* Start Tool G02X[16-shift_grap_X]Y[72+shift_grap_Y]I[24-shift_grap_X]J[72+shift_grap_Y]Q4 G242X[120-shift_grap_X]Y[72+shift_grap_Y] /* End Tool G02X[120-shift_grap_X]Y[72+shift_grap_Y]I[12
  • Page 4429. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 G243X[47-shift_char_X]Y[5-shift_char_Y](U) #1=20 call fig_cursor G243X[53-shift_char_X]Y[9-shift_char_Y](R) cursor_off G243X[41-shift_char_X]Y[10-shift_char_Y]('(') G243X[43-shift_char_X]Y[10-shift_char_Y](',') G243X[45-shift_char_X]Y[1
  • Page 443B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU G01X[103-shift_grap_X]Y[64+shift_grap_Y] G242X[-7-shift_grap_X]Y[56+shift_grap_Y] G01X[103-shift_grap_X]Y[56+shift_grap_Y] #1=30-shift_grap_X #2=88+shift_grap_Y #3=29-shift_grap_X #4=#2 #5=1 call fig_line #1=30-shift_grap_X #2=80+shift_
  • Page 4449. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 call fig_line #1=87-shift_grap_X #2=100+shift_grap_Y #3=77-shift_grap_X #4=#2 #5=1 call fig_line G242X[89-shift_grap_X]Y[48+shift_grap_Y] /* for V G01X[120-shift_grap_X]Y[48+shift_grap_Y] G242X[89-shift_grap_X]Y[96+shift_grap_Y] G01X[12
  • Page 445B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU color blue G242X[-23-shift_grap_X]Y[9+shift_grap_Y] G01X[111-shift_grap_X]Y[9+shift_grap_Y] G01X[111-shift_grap_X]Y[103+shift_grap_Y] G01X[97-shift_grap_X]Y[103+shift_grap_Y] G01X[97-shift_grap_X]Y[39+shift_grap_Y] G01X[23-shift_grap_X]
  • Page 4469. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 G01X[96-shift_grap_X]Y[136+shift_grap_Y] #1=25-shift_grap_X #2=128+shift_grap_Y #3=95-shift_grap_X #4=#2 #5=2 call fig_line G242X[88-shift_grap_X]Y[105+shift_grap_Y] /* for D G01X[88-shift_grap_X]Y[120+shift_grap_Y] #1=87-shift_grap_X #
  • Page 447B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #1=7 call fig_cursor G243X[49-shift_char_X]Y[8-shift_char_Y](D) #1=14 call fig_cursor G243X[47-shift_char_X]Y[6-shift_char_Y](V) cursor_off m99 O6157 ;############################################### G81 for Hole /* Work color blue /* bl
  • Page 4489. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 /* red for Path color red dot_line #1=27-shift_grap_X #2=120+shift_grap_Y #3=53-shift_grap_X #4=#2 #5=0 call fig_line #1=56-shift_grap_X #2=117+shift_grap_Y #3=#1 #4=91+shift_grap_Y #5=0 call fig_line solid_line #1=56-shift_grap_X #2=85
  • Page 449B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU G01X[#20]Y[#21+1] G206P0X[#20]Y[#21+5] color purple /* purple for Edge G242X[#20]Y[#21] G01X[#20-8]Y[#21+5] G01X[#20-8]Y[#21+21] G01X[#20+8]Y[#21+21] G01X[#20+8]Y[#21+5] G01X[#20]Y[#21] /* Circle for Point color red G242X[16-shift_grap_
  • Page 4509. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #5=0 call fig_line dot_line #1=88-shift_grap_X #2=25+shift_grap_Y #3=#1 #4=119+shift_grap_Y #5=0 call fig_line G242X[104-shift_grap_X]Y[119+shift_grap_Y] G01X[104-shift_grap_X]Y[88+shift_grap_Y] solid_line #1=104-shift_grap_X #2=87+shif
  • Page 451B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU if[cursor eq 4]then color -white C blue L1 else color white C blue L0 endif G243X[41-shift_char_X]Y[12-shift_char_Y](Q) color white C blue L0 G243X[41-shift_char_X]Y[9-shift_char_Y](Q) G243X[41-shift_char_X]Y[15-shift_char_Y](Q) cursor_
  • Page 4529. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 G01X[#20+1]Y[#21-48] G01X[#20+1]Y[#21-1] #1=47-shift_char_X /* for J #2=9-shift_char_Y #3=1 call fig_character G206P0X[#20+10]Y[#21-10] color purple /* for Tool Edge #20 =16-shift_grap_X /* Left Up Point X #21 =136+shift_grap_Y /* Left
  • Page 453B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU #1=51-shift_char_X /* for Z #2=11-shift_char_Y #3=1 call fig_character G206P0X[80-shift_grap_X]Y[0+shift_grap_Y] /* blue green for Work Edge color sky_blue G242X[56-shift_grap_X]Y[-24+shift_grap_Y] G01X[56-shift_grap_X]Y[64+shift_grap_Y
  • Page 4549. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 #5=0 call fig_line /* Characters cursor_on G243X[40-shift_char_X]Y[13-shift_char_Y](C) cursor_off m99 -446-
  • Page 455B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU 9.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK7.SRC :: Pocket /* /***** 8881: Square /***** 8882: Circle /***** 8883: Track /***** 8884: Groove /***** 8885: Contour P
  • Page 4569. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 /* Z-Cut Feed Rate */ if[#[attribute 12] ne att_not_use]then error_item = 12 if[#[value 12] eq #0]goto 97 if[#[value 12] le 0]goto 98 endif /* Tool Small Dia.*/ if[#[attribute 13] ne att_not_use]then error_item = 13 if[#[value 13] lt 0]
  • Page 457B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu param. */ n98 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 /* ############################################### Circ
  • Page 4589. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 if[#[attribute 13] ne att_not_use]then error_item = 13 if[#[value 13] lt 0]goto 98 endif /* Chamfer Angle */ if[#[attribute 14] ne att_not_use]then error_item = 14 if[#[value 14] eq 0]goto 98 if[#[value 14] lt 0]goto 98 endif /* Tool Ou
  • Page 459B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU /* Mach. Process */ error_item = 1 if[#[value 1] eq #0]goto 97 if[#[value 1] lt 1 || #[value 1] gt 5]goto 98 /* Clearance */ error_item = 2 if[#[value 2] eq #0]goto 97 if[#[value 2] le 0]goto 98 /* End Point Z */ error_item = 3 if[#[val
  • Page 4609. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 endif /* Center Point X */ error_item =17 if[#[value 17] eq #0]goto 97 /* Center Point Y */ error_item =18 if[#[value 18] eq #0]goto 97 /* Center Distance */ error_item = 19 if[#[value 19] eq #0]goto 97 if[#[value 19] le 0]goto 98 /* Ra
  • Page 461B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU if[#[value 3] eq #0]goto 97 /* Removal Depth */ error_item = 4 if[#[value 4] eq #0]goto 97 if[#[value 4] le 0]goto 98 /* Removal Pitch */ if[#[attribute 5] ne att_not_use]then error_item = 5 if[#[value 5] lt 0]goto 98 endif /* Bottom Fi
  • Page 4629. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 error_item = 21 if[#[value 21] eq #0]goto 97 if[#[value 21] lt 1 || #[value 21] gt 2]goto 98 /* Start Point Sel. */ if[#[attribute 23] ne att_not_use]then error_item = 23 if[#[value 23] eq #0]goto 97 if[#[value 23] lt 1 || #[value 23] g
  • Page 463B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU if[#[value 10] eq #0]goto 97 if[#[value 10] le 0]goto 98 /* Cutting Width% */ if[#[attribute 11] ne att_not_use]then error_item = 11 if[#[value 11] eq #0]goto 97 if[#[value 11] le 0]goto 98 endif /* Z-Cut Feed Rate */ if[#[attribute 12]
  • Page 4649. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 if[#[attribute 29] ne att_not_use]then error_item = 29 if[#[value 29] eq #0]goto 97 if[#[value 29] lt 1 || #[value 29] gt 3]goto 98 endif /* Escape Radius */ if[#[attribute 30] ne att_not_use]then error_item = 30 if[#[value 30] eq #0]go
  • Page 465B-63423EN/02 SAMPLE PROGRAM 9. USER PROGRAMS FOR POCKETING MENU /* Bottom Finish */ if[#[attribute 6] ne att_not_use]then error_item = 6 if[#[value 6] lt 0]goto 98 endif /* Side Finish */ if[#[attribute 7] ne att_not_use]then error_item = 7 if[#[value 7] lt 0]goto 98 endif /* Feed Rate */ error_item
  • Page 4669. USER PROGRAMS FOR POCKETING MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 27] eq #0]goto 97 if[#[value 27] le 0]goto 98 endif /* Approach Distance */ if[#[attribute 28] ne att_not_use]then error_item = 28 if[#[value 28] eq #0]goto 97 if[#[value 28] le 0]goto 98 endif /* Escape Type */ if[#[attribut
  • Page 467B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU 10 USER PROGRAMS FOR CALIBRATION CYCLE MENU -459-
  • Page 46810. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 10.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING28.SRC :: Calibration Cycles /* /***** 6201: Soft-keys /***** 6211: Meaurement of Probe Length (G170) /***** 622
  • Page 469B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU /**************************************************************************** O6202 ;############################################### Soft-keys N0001("20 01 C010 20")('PROBE '); N0002("20 01 C018 20")(' DIA. '); N0003("20 01 C02
  • Page 47010. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 10.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC8.SRC :: Calibration Cycles /* /***** 6511: Meaurement of Probe Length (G170) /***** 6512: Measurement of Stylus Ball D
  • Page 471B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU #[attribute 1] = att_decimal #[value 1] = #0 /* Ring Gauge Radius */ #[address 2] = add_R #[attribute 2] = att_decimal #[value 2] = #0 /* Feedrate for Move */ #[address 3] = add_F #[attribute 3] = att_decimal #[value 3] = #0 /*
  • Page 47210. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 10.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG8.SRC :: Calibration Cycles /* /***** 6551: Meaurement of Probe Length (G170) /***** 6552: Measurement of Stylu
  • Page 473B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU /*** Attribution Setting ***/ m99 O6554 ;############################################### Measurement(B) of Stylus X Offset (G173) /*** Guide Picture Setting ***/ if[guide_frequency eq second_time]then if[cursor eq 3]then call f
  • Page 47410. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 G01X48Y152 G01X48Y168 G01X16Y168 /* color purple G242X24Y168 G02I32 G242X32Y176 G01X32Y160 G206P0X28Y172 G206P0X36Y164 /* color green G242X28Y152 G01X28Y104 G01X36Y104 G01X36Y152 G01X28Y152 G206P0X32Y148 /* color purple G242X28
  • Page 475B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU G01X-32Y8 G01X96Y8 G01X96Y24 G01X-32Y24 G206P0X-28Y20 /* color purple G242X-32Y24 G01X96Y24 /* color red #1=32 #2=88 #3=#1 #4=32 #5=0 call fig_line /* #1=56 #2=56 #3=#1 #4=32 #5=0 call fig_line /* dot_line #1=52 #2=32 #3=#1 #4=
  • Page 47610. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #1=112 #2=40 #3=#1 #4=24 #5=2 call fig_line /* solid_line color purple G242X24Y96 G02I32 /* color purple G242X48Y64 G02I56 /* n100 color white cursor_off #1=1 call fig_cursor G243X54Y11(Z) #1=2 call fig_cursor G243X56Y09(D) #1=
  • Page 477B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU G242X40Y168 G02I48 G242X48Y176 G01X48Y160 G206P0X44Y172 G206P0X52Y164 /* color green G242X44Y152 G01X44Y104 G01X52Y104 G01X52Y152 G01X44Y152 G206P0X48Y148 /* color purple G242X44Y104 G01X44Y152 G01X52Y152 G01X52Y104 /* color gr
  • Page 47810. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 /* #1=24 #2=32 #3=72 #4=#2 #5=2 call fig_line /* solid_line #1=8 #2=32 #3=24 #4=#2 #5=1 call fig_line /* #1=72 #2=32 #3=88 #4=#2 #5=0 call fig_line /* color green G242X40Y88 G01X120Y88 /* G242X104Y32 G01X120Y32 /* #1=112 #2=88
  • Page 479B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU color green G242X88Y120 G02I96 G206P0X92Y120 /* color purple G242X88Y120 G02I96 /* solid_line color red #1=52 #2=144 #3=#1 #4=176 #5=0 call fig_line /* #1=12 #2=104 #3=-20 #4=#2 #5=0 call fig_line /* #1=52 #2=64 #3=#1 #4=32 #5=
  • Page 48010. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 /* solid_line color green G242X124Y128 G01X124Y96 /* #1=52 #2=104 #3=7 #4=149 #5=0 call fig_line /* one_dot_line color purple G242X96Y132 G01X96Y108 /* n100 color white cursor_off if[#[address 0] ne 173]then #1=2 else #1=4 call
  • Page 481B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU 10.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK8.SRC :: Calibration Cycles /* /***** 6611: Meaurement of Probe Length (G170) /***** 6612: Measurement of Styl
  • Page 48210. USER PROGRAMS FOR CALIBRATION CYCLE MENU SAMPLE PROGRAM B-63423EN/02 color red C white L0 G243X1Y24 P[#1+900] goto 99 /* Input error in menu param. */ n98 input_error_flag = error_on call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 O6613 ;#######################################
  • Page 483B-63423EN/02 SAMPLE PROGRAM 10. USER PROGRAMS FOR CALIBRATION CYCLE MENU call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 -475-
  • Page 48411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 11 USER PROGRAMS FOR MEASURING CYCLE MENU -476-
  • Page 485B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU 11.1 COMMENTS DEFINITION /**************************************************************************** /* /* STRING19.SRC :: Measuring Cycles /* /***** 6301: Soft-keys /***** 6311: Measurement of X/Y/Z Single Surface (G180) /****
  • Page 48611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 N0552('2'); N0553('3'); N0554('4'); N0555('5'); N0556('6'); M99 O6321 ;############################################### Measurement of Web Width (G181) N9999('MEASUREMENT OF WEB WIDTH'); /* N0001('HEIGHT FOR Z AXIS'); N0002('MEASU
  • Page 487B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU M99 O6341 ;############################################### Measurement of Outside Circle (G183) N9999('MEASUREMENT OF OUTSIDE CIRCLE'); /* N0001('HEIGHT FOR Z AXIS'); N0002('OUTSIDE RADIUS') N0003('FEEDRATE FOR MOVE'); N0004('WOR
  • Page 48811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 N0551('1'); N0552('2'); N0553('3'); N0554('4'); N0555('5'); N0556('6'); M99 O6371 ;############################################### Measurement of Inside Rectangular (G186) N9999('MEASUREMENT OF INSIDE RECTANGULAR'); /* N0001('HEI
  • Page 489B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU N0002('1ST MEASURE POINT X'); N0003('1ST MEASURE POINT Y'); N0004('DISTANCE FOR X AXIS'); N0005('DISTANCE FOR Y AXIS'); N0006('INCREASE FOR X AXIS'); N0007('INCREASE FOR Y AXIS'); N0008('FEEDRATE FOR MOVE'); N0009('WORK CO-ORD.SY
  • Page 49011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 N0002('HOLE NOMINAL DIA.'); N0003('1ST HOLE POINT X'); N0004('1ST HOLE POINT Y'); N0005('2ND HOLE POINT X'); N0006('2ND HOLE POINT Y'); N0007('3RD HOLE POINT X'); N0008('3RD HOLE POINT Y'); N0009('4TH HOLE POINT X'); N0010('4TH H
  • Page 491B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /***** 6312: Measurement of X/Y/Z Single Surface (G180) /***** 6322: Measurement of Web Width (G181) /***** 6332: Measurement of Groove Width (G182) /***** 6342: Measurement of Outside Circle (G183) /***** 6352: Measurement of In
  • Page 49211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 N0001('HEIGHT FOR Z AXIS'); N0002('MEASURE DIRECTION'); N0003('WEB WIDTH'); N0004('FEEDRATE FOR MOVE'); N0005('WORK CO-ORD.SYSTEM'); N0006('WORK CO-ORD.SYSTEM'); /* N0200('34'); N0201("20 01 C028 20")('X AXIS'); N0202("20 01 C030
  • Page 493B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* N0400('1'); N0401("20 01 C010 20")(' G54 '); N0402("20 01 C010 20")(' G55 '); N0403("20 01 C010 20")(' G56 '); N0404("20 01 C010 20")(' G57 '); N0405("20 01 C010 20")(' G58 '); N0406("20 01 C010 20")(' G59 '); N0451('1'); N045
  • Page 49411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 /* N0001('HEIGHT FOR Z AXIS'); N0002('LENGTH FOR X AXIS'); N0003('LENGTH FOR Y AXIS'); N0004('FEEDRATE FOR MOVE'); N0005('WORK CO-ORD.SYSTEM'); N0006('WORK CO-ORD.SYSTEM'); /* N0500('1'); N0501("20 01 C010 20")(' G54 '); N0502("2
  • Page 495B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU N0100('1); N0101(' ')(' ')(' 1 '); N0102(' ')(' ')(' 2 '); N0103(' ')(' ')(' 3 '); N0104(' ')(' ')(' 4 '); N0151('1'); N0152('2'); N0153('3'); N0154('4'); /* N0900('1'); N0901("20 01 C010 20")(' G54 '); N0902("20 01 C010 20")(' G
  • Page 49611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 N0012('WORK CO-ORD.SYSTEM'); N0013('WORK CO-ORD.SYSTEM'); /* N1200('1'); N1201("20 01 C010 20")(' G54 '); N1202("20 01 C010 20")(' G55 '); N1203("20 01 C010 20")(' G56 '); N1204("20 01 C010 20")(' G57 '); N1205("20 01 C010 20")('
  • Page 497B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU 11.2 DATA ATTRIBUTE /**************************************************************************** /* /* PROC9.SRC :: Measuring Cycles /* /***** 6521: Measurement of X/Y/Z Single Surface (G180) /***** 6522: Measurement of Web Widt
  • Page 49811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 2] = att_character #[value 2] = 1 /* 1:X AXIS,2:Y AXIS /* Web Width */ #[address 3] = add_V #[attribute 3] = att_decimal #[value 3] = #0 /* Feedrate for Move */ #[address 4] = add_F #[attribute 4] = att_decimal #[valu
  • Page 499B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #[value 2] = #0 /* Feedrate for Move */ #[address 3] = add_F #[attribute 3] = att_decimal #[value 3] = #0 /* Work co-ord. System */ #[address 4] = add_W #[attribute 4] = att_character #[value 4] = #0 /* 1:G54,2:G55,3:G56,4:G57,5:
  • Page 50011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 /* Work co-ord. System */ #[address 5] = add_W #[attribute 5] = att_character #[value 5] = #0 /* 1:G54,2:G55,3:G56,4:G57,5:G58,6:G59 /* Work co-ord. System */ #[address 6] = add_W #[attribute 6] = att_not_use #[value 6] = #0 /* E
  • Page 501B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #[address 5] = add_U #[attribute 5] = att_decimal #[value 5] = #0 /* Distance for Y Axis */ #[address 6] = add_V #[attribute 6] = att_decimal #[value 6] = #0 /* Increase for X Axis */ #[address 7] = add_I #[attribute 7] = att_dec
  • Page 50211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #[value 8] = #0 /* Work co-ord. System */ #[address 9] = add_W #[attribute 9] = att_character #[value 9] = #0 /* 1:G54,2:G55,3:G56,4:G57,5:G58,6:G59 /* Work co-ord. System */ #[address 10] = add_W #[attribute 10] = att_not_use #[
  • Page 503B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* Hole Nominal Dia. */ #[address 2] = add_D #[attribute 2] = att_decimal #[value 2] = #0 /* 1st Hole Point X */ #[address 3] = add_A #[attribute 3] = att_decimal #[value 3] = #0 /* 1st Hole Point Y */ #[address 4] = add_B #[attr
  • Page 50411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #[attribute 3] = att_decimal #[value 3] = #0 /* 2nd Measure Point Y */ #[address 4] = add_I #[attribute 4] = att_decimal #[value 4] = #0 /* Distance for Move */ #[address 5] = add_D #[attribute 5] = att_decimal #[value 5] = #0 /*
  • Page 505B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU 11.3 GUIDANCE DRAWING FIGURE /**************************************************************************** /* /* FIG9.SRC :: Measuring Cycles /* /***** 6561: Measurement of X/Y/Z Single Surface (G180) /***** 6562: Measurement of
  • Page 50611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 guidance_write_flag = flag_on call 6178 guidance_write_flag = flag_off endif if[cursor eq 3 || cursor eq 4]then if[previous_cursor lt 3 || previous_cursor gt 4]then call fig_clear guidance_write_flag = flag_on endif if[#[value 2]
  • Page 507B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU call 6176 guidance_write_flag = flag_off endif previous_cursor = cursor endif /*** Attribution Setting ***/ if[op9943bit7 eq bit7_on]then #[attribute 5] = att_not_use #[attribute 6] = att_character else #[attribute 5] = att_chara
  • Page 50811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 guidance_write_flag = flag_off endif if[cursor eq 4 || cursor eq 5]then call fig_clear guidance_write_flag = flag_on call 6176 guidance_write_flag = flag_off endif previous_cursor = cursor endif /*** Attribution Setting ***/ if[o
  • Page 509B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU if[previous_cursor lt 2 || previous_cursor gt 4]then call fig_clear guidance_write_flag = flag_on endif call 6188 guidance_write_flag = flag_off endif if[cursor eq 5 || cursor eq 6]then call fig_clear guidance_write_flag = flag_o
  • Page 51011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_clear guidance_write_flag = flag_on endif call 6190 guidance_write_flag = flag_off endif if[cursor eq 9 || cursor eq 10]then call fig_clear guidance_write_flag = flag_on call 6176 guidance_write_flag = flag_off endif pre
  • Page 511B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU O6571 ;############################################### Measurement of 4 Holes Center(G190) /*** Guide Picture Setting ***/ if[guide_frequency eq second_time]then if[cursor eq 1]then call fig_clear guidance_write_flag = flag_on ca
  • Page 51211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call 6196 guidance_write_flag = flag_off endif if[cursor eq 7]then call fig_clear guidance_write_flag = flag_on call 6186 guidance_write_flag = flag_off endif previous_cursor = cursor endif /*** Attribution Setting ***/ m99 /****
  • Page 513B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G01X32Y120 G206P0X36Y116 /* color sky_blue G242X32Y120 G01X32Y56 G01X128Y56 /* color green G242X64Y192 G02I72 G206P0X72Y192 /* color green G242X88Y176 G02I96 G206P0X96Y176 /* color green G242X0Y104 G02I8 G206P0X8Y104 /* color pur
  • Page 51411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #5=0 call fig_line /* #1=8 #2=104 #3=40 #4=#2 #5=0 call fig_line /* #1=-8 #2=88 #3=40 #4=#2 #5=0 call fig_line /* #1=72 #2=64 #3=#1 #4=16 #5=1 call fig_line /* #1=96 #2=64 #3=#1 #4=32 #5=1 call fig_line /* dot_line #1=92 #2=168 #
  • Page 515B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G242X-8Y76 G01X-8Y64 /* G242X48Y16 G01X60Y16 /* G242X64Y64 G01X104Y64 /* #1=56 #2=184 #3=#1 #4=151 #5=2 call fig_line /* #1=-8 #2=72 #3=32 #4=#2 #5=2 call fig_line /* #1=55 #2=56 #3=#1 #4=16 #5=2 call fig_line /* one_dot_line col
  • Page 51611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #1=-24 #2=24 #3=0 #4=#2 #5=0 call fig_line /* solid_line color purple G242X64Y192 G02I72 /* G242X88Y176 G02I96 /* n100 cursor_off color white G243X38Y5(Z) G243X40Y6(X) G243X41Y6(',') G243X42Y6(Y) G243X38Y12(Y) G243X40Y13(X) #1=3
  • Page 517B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G243X52Y05(F) endif if[#[value 1] eq 3]then cursor_off G243X52Y12(F) G243X43Y08(F) call fig_cursor G243X52Y05(F) endif if[#[value 1] lt 1 || #[value 1] gt 3]then cursor_off G243X52Y12(F) G243X43Y08(F) G243X52Y05(F) endif m99 O617
  • Page 51811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 G01X128Y40 G01X-32Y40 G01X-32Y56 G206P0X-28Y52 /* color sky_blue G242X-32Y56 G01X0Y56 G01X0Y88 G01X96Y88 G01X96Y56 G01X128Y56 /* color red solid_line #1=-16 #2=72 #3=0 #4=#2 #5=0 call fig_line /* #1=112 #2=72 #3=96 #4=#2 #5=0 cal
  • Page 519B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU color purple G242X48Y192 G01X48Y32 /* n100 cursor_off color white #1=1 call fig_cursor G243X56Y9(Z) m99 O6178 ;############################################### Measurement of Web Width (G181) Sub2 if[guidance_write_flag eq flag_of
  • Page 52011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 G242X44Y104 G02I52 /* color green G242X44Y24 G02I52 G206P0X52Y24 /* color purple G242X44Y24 G02I52 /* solid_line color red #1=0 #2=160 #3=24 #4=#2 #5=0 call fig_line /* color red #1=80 #2=160 #3=104 #4=#2 #5=1 call fig_line /* co
  • Page 521B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU O6179 ;############################################### Measurement of Web Width (G181) Sub3 if[guidance_write_flag eq flag_off] goto 100 solid_line color blue G242X8Y176 G01X8Y80 G01X96Y80 G01X96Y176 G01X8Y176 G206P0X12Y172 /* co
  • Page 52211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 dot_line #1=-16 #2=132 #3=16 #4=#2 #5=1 call fig_line /* #1=88 #2=132 #3=120 #4=#2 #5=0 call fig_line /* G242X16Y144 G01X16Y112 /* G242X88Y144 G01X88Y112 /* solid_line G242X8Y72 G01X8Y48 /* G242X96Y72 G01X96Y48 /* #1=8 #2=56 #3=9
  • Page 523B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G206P0X-12Y148 /* color sky_blue G242X-16Y152 G01X112Y152 G242X-16Y72 G01X112Y72 /* color green G242X48Y176 G02I56 G206P0X56Y176 /* color purple G242X48Y176 G02I56 /* color green G242X48Y48 G02I56 G206P0X56Y48 /* color purple G24
  • Page 52411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #4=48 #5=0 call fig_line /* solid_line color green G242X32Y144 G01X64Y144 /* G242X32Y80 G01X64Y80 /* G242X120Y152 G01X136Y152 /* G242X120Y72 G01X136Y72 /* #1=128 #2=152 #3=#1 #4=72 #5=2 call fig_line /* one_dot_line color purple
  • Page 525B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G02I48 G206P0X48Y136 /* color blue G242X-24Y88 G01X0Y88 G01X0Y56 G01X96Y56 G01X96Y88 G01X120Y88 G01X120Y40 G01X-24Y40 G01X-24Y88 G206P0X-20Y84 /* color sky_blue G242X-24Y88 G01X0Y88 G01X0Y56 G01X96Y56 G01X96Y88 G01X120Y88 /* soli
  • Page 52611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_line /* one_dot_line color purple G242X48Y192 G01X48Y120 /* G242X48Y72 G01X48Y32 /* solid_line color purple G242X32Y136 G02I48 /* n100 cursor_off color white #1=1 call fig_cursor G243X56Y9(Z) m99 O6182 ;#################
  • Page 527B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* color blue G242X8Y96 G01X96Y96 G01X96Y112 G01X8Y112 G01X8Y96 G206P0X12Y108 /* color sky_blue G242X8Y96 G01X96Y96 /* color blue G242X8Y40 G01X96Y40 G01X96Y24 G01X8Y24 G01X8Y40 G206P0X12Y36 /* color sky_blue G242X8Y40 G01X96Y40
  • Page 52811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #2=56 #3=#1 #4=41 #5=0 call fig_line /* solid_line color sky_blue #1=-24 #2=16 #3=#1 #4=40 #5=0 call fig_line /* #1=-32 #2=24 #3=-8 #4=#2 #5=0 call fig_line /* n100 cursor_off color white G243X39Y13(X) G243X37Y12(Y) m99 O6183 ;##
  • Page 529B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G02I80 G206P0X80Y120 /* color purple G242X72Y120 G02I80 /* solid_line color red #1=-8 #2=120 #3=24 #4=#2 #5=1 call fig_line /* #1=-8 #2=104 #3=32 #4=#2 #5=1 call fig_line /* #1=80 #2=120 #3=112 #4=#2 #5=0 call fig_line /* #1=72 #
  • Page 53011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #1=0 #2=40 #3=104 #4=#2 #5=2 call fig_line /* one_dot_line color purple G242X52Y176 G01X52Y56 /* G242X24Y132 G01X24Y108 /* G242X80Y132 G01X80Y108 /* n100 cursor_off color white #1=3 call fig_cursor G243X46Y12(V) #1=4 call fig_cur
  • Page 531B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G242X56Y80 G02I64 G206P0X64Y80 /* color purple G242X56Y80 G02I64 /* solid_line color red #1=40 #2=160 #3=#1 #4=120 #5=1 call fig_line /* #1=64 #2=160 #3=#1 #4=128 #5=1 call fig_line /* #1=40 #2=88 #3=#1 #4=48 #5=0 call fig_line /
  • Page 53211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #1=128 #2=152 #3=#1 #4=56 #5=2 call fig_line /* one_dot_line color purple G242X-24Y104 G01X120Y104 /* G242X52Y128 G01X76Y128 /* G242X52Y80 G01X76Y80 /* n100 cursor_off color white #1=3 call fig_cursor G243X56Y8(V) #1=4 call fig_c
  • Page 533B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #3=0 #4=#2 #5=0 call fig_line /* #1=52 #2=24 #3=#1 #4=56 #5=0 call fig_line /* #1=96 #2=108 #3=128 #4=#2 #5=1 call fig_line /* #1=96 #2=120 #3=120 #4=#2 #5=1 call fig_line /* dot_line #1=48 #2=184 #3=#1 #4=24 #5=2 call fig_line /
  • Page 53411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 if[cursor eq 2]then color -white C blue L1 else color white C blue L0 endif G243X44Y6(R) color white #1=3 call fig_cursor G243X53Y7(F) m99 O6186 ;############################################### Measurement of Inside Circle (G184)
  • Page 535B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* #1=96 #2=120 #3=124 #4=#2 #5=0 call fig_line /* dot_line #1=52 #2=144 #3=#1 #4=64 #5=0 call fig_line /* dot_line #1=12 #2=104 #3=92 #4=#2 #5=2 call fig_line /* #1=52 #2=120 #3=96 #4=#2 #5=0 call fig_line /* solid_line color gr
  • Page 53611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 solid_line color blue G242X16Y176 G01X16Y64 G01X104Y64 G01X104Y176 G01X16Y176 G206P0X20Y172 /* color sky_blue G242X16Y176 G01X16Y64 G01X104Y64 G01X104Y176 G01X16Y176 /* color green G242X112Y136 G02I120 G206P0X120Y136 /* color pur
  • Page 537B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #5=2 call fig_line /* #1=-8 #2=120 #3=128 #4=#2 #5=2 call fig_line /* #1=96 #2=132 #3=120 #4=#2 #5=0 call fig_line /* solid_line color green G242X-24Y176 G01X8Y176 /* G242X-24Y64 G01X8Y64 /* G242X16Y56 G01X16Y16 /* G242X104Y56 G0
  • Page 53811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 O6188 ;############################################### Measurement of Inside Rectangular (G186) Sub1 if[guidance_write_flag eq flag_off] goto 100 solid_line color blue G242X-32Y192 G01X-32Y16 G01X136Y16 G01X136Y192 G01X-32Y192 G2
  • Page 539B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #1=84 #2=104 #3=116 #4=#2 #5=0 call fig_line /* #1=88 #2=120 #3=116 #4=#2 #5=0 call fig_line /* dot_line #1=52 #2=136 #3=#1 #4=72 #5=2 call fig_line /* #1=12 #2=104 #3=84 #4=#2 #5=2 call fig_line /* #1=88 #2=116 #3=116 #4=#2 #5=1
  • Page 54011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 one_dot_line color purple G242X88Y132 G01X88Y108 endif /* n100 cursor_off color white /* if[#[address 0] ne 188]then if[cursor eq 2]then color -white C blue L1 else color white C blue L0 endif G243X46Y13(U) if[cursor eq 3]then co
  • Page 541B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G242X-16Y168 G02I-8 G206P0X-8Y168 /* color purple G242X-16Y168 G02I-8 /* color green G242X-32Y112 G02I-24 G206P0X-24Y112 /* color purple G242X-32Y112 G02I-24 /* color green G242X16Y32 G02I24 G206P0X24Y32 /* color purple G242X16Y3
  • Page 54211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #1=0 #2=112 #3=16 #4=#2 #5=0 call fig_line /* dot_line #1=24 #2=32 #3=#1 #4=64 #5=0 call fig_line solid_line #1=24 #2=64 #3=#1 #4=88 #5=0 call fig_line /* dot_line #1=80 #2=32 #3=#1 #4=64 #5=0 call fig_line solid_line #1=80 #2=64
  • Page 543B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G242X72Y88 G01X104Y88 /* G242X72Y32 G01X128Y32 /* #1=-24 #2=184 #3=7 #4=#2 #5=2 call fig_line /* #1=-8 #2=151 #3=#1 #4=113 #5=2 call fig_line /* #1=25 #2=56 #3=79 #4=#2 #5=2 call fig_line /* #1=120 #2=79 #3=#1 #4=32 #5=2 call fig
  • Page 54411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 if[cursor eq 3]then color -white C blue L1 else color white C blue L0 endif G243X44Y8(C) if[cursor eq 4]then color -white C blue L1 else color white C blue L0 endif G243X46Y8(D) color white #1=5 call fig_cursor G243X55Y11(U) #1=6
  • Page 545B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G02I16 G206P0X16Y168 /* color purple G242X8Y168 G02I16 /* color green G242X32Y96 G02I40 G206P0X40Y96 /* color purple G242X32Y96 G02I40 /* color green G242X96Y80 G02I104 G206P0X104Y80 /* color purple G242X96Y80 G02I104 /* solid_li
  • Page 54611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 #4=64 #5=0 call fig_line solid_line #1=40 #2=64 #3=#1 #4=40 #5=0 call fig_line /* dot_line #1=88 #2=96 #3=#1 #4=64 #5=0 call fig_line solid_line #1=88 #2=64 #3=#1 #4=40 #5=0 call fig_line /* #1=104 #2=80 #3=#1 #4=40 #5=0 call fig
  • Page 547B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU call fig_line /* #1=16 #2=152 #3=#1 #4=96 #5=2 call fig_line /* #1=40 #2=72 #3=88 #4=#2 #5=2 call fig_line /* #1=120 #2=96 #3=#1 #4=48 #5=2 call fig_line /* one_dot_line color purple G242X16Y180 G01X16Y156 /* G242X92Y80 G01X116Y8
  • Page 54811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_cursor G243X40Y04(F) G243X53Y11(F) m99 O6191 ;############################################### Measurement of Bolt-Hole-Circle (G189) Sub1 if[guidance_write_flag eq flag_off] goto 100 solid_line color green G242X44Y168 G0
  • Page 549B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* #1=100 #2=72 #3=112 #4=#2 #5=0 call fig_line /* dot_line G242X24Y120 G01X24Y72 /* #1=24 #2=120 #3=92 #4=#2 #5=2 call fig_line /* #1=92 #2=120 #3=#1 #4=72 #5=0 call fig_line /* #1=84 #2=72 #3=72 #4=#2 #5=0 call fig_line /* soli
  • Page 55011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 G01X136Y184 G01X-32Y184 G242X96Y104 G02I112 G242X79Y147 G02I95 G242X36Y164 G02I52 G242X-7Y147 G02I9 G242X-24Y104 G02I-8 G242X-7Y61 G02I9 G242X36Y44 G02I52 G242X79Y61 G02I95 #1=54 #2=5 #3=1 call fig_character #1=37 #2=7 #3=1 call
  • Page 551B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU color green G242X52Y104 G01X112Y164 /* G242X52Y104 G01X112Y44 /* #1=52 #2=104 #3=-2 #4=79 #5=2 call fig_line /* #1=101 #2=93 #3=123 #4=115 #5=2 call fig_line /* #1=88 #2=104 #3=78 #4=130 #5=52 #6=104 #7=0 call fig_ccw /* #1=80 #2
  • Page 55211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 color white C blue L0 endif G243X42Y9(R) if[cursor eq 4]then color -white C blue L1 else color white C blue L0 endif G243X51Y8(A) if[cursor eq 5]then color -white C blue L1 else color white C blue L0 endif G243X42Y8(B) if[cursor
  • Page 553B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G01X-8Y88 G01X-8Y56 G01X16Y56 G01X16Y88 G01X80Y88 G01X80Y56 G01X104Y56 G01X104Y88 G01X120Y88 /* solid_line color red #1=-16 #2=72 #3=-4 #4=#2 #5=1 call fig_line /* #1=12 #2=72 #3=24 #4=#2 #5=2 call fig_line /* #1=72 #2=72 #3=84 #
  • Page 55411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_line /* #1=84 #2=72 #3=100 #4=#2 #5=2 call fig_line /* solid_line color green G242X92Y120 G01X136Y120 /* G242X120Y72 G01X136Y72 /* #1=128 #2=120 #3=#1 #4=72 #5=2 call fig_line /* solid_line color purple G242X84Y128 G02I9
  • Page 555B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU #2=7 #3=6 call fig_character G206P0X-28Y180 /* color sky_blue G242X-12Y56 G02I4 G242X84Y56 G02I100 G242X84Y152 G02I100 G242X-12Y152 G02I4 /* color green one_dot_line G242X52Y192 G01X52Y16 /* G242X-40Y104 G01X144Y104 /* G242X-12Y1
  • Page 55611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 color white C blue L0 endif G243X52Y13(C) if[cursor eq 6]then color -white C blue L1 else color white C blue L0 endif G243X54Y13(E) if[cursor eq 7]then color -white C blue L1 else color white C blue L0 endif G243X52Y7(H) if[curso
  • Page 557B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU G206P0X32Y80 /* color purple G242X24Y80 G02I32 /* color green G242X80Y96 G02I88 G206P0X88Y96 /* color purple G242X80Y96 G02I88 /* solid_line color red #1=16 #2=104 #3=#1 #4=88 #5=1 call fig_line dot_line #1=16 #2=88 #3=#1 #4=64 #
  • Page 55811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_line /* #1=84 #2=120 #3=#1 #4=96 #5=0 call fig_line /* solid_line color green G242X-16Y72 G03X-18Y85R48 /* G242X-32Y72 G01X0Y72 /* G242X8Y104 G01X40Y104 /* G242X64Y120 G01X96Y120 /* G242X64Y76 G01X112Y90 /* #1=104 #2=88
  • Page 559B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU color -white C blue L1 else color white C blue L0 endif G243X42Y8(A) if[cursor eq 2]then color -white C blue L1 else color white C blue L0 endif G243X44Y8(B) if[cursor eq 3]then color -white C blue L1 else color white C blue L0 e
  • Page 56011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 G242X80Y136 G02I96 /* solid_line color green G242X0Y56 G03X-6Y77R40 /* G242X-24Y56 G01X8Y56 /* #1=85 #2=125 #3=107 #4=147 #5=2 call fig_line /* one_dot_line G242X-24Y66 G01X128Y154 /* n100 cursor_off color white C blue L0 G243X43
  • Page 561B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU 11.4 INPUTTED DATA CHECKING /**************************************************************************** /* /* CHECK9.SRC :: Measuring Cycles /* /***** 6621: Measurement of X/Y/Z Single Surface (G180) /***** 6622: Measurement of
  • Page 56211. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 O6622 ;############################################### Measurement of Web Width (G181) input_error_flag = error_non /* Height for Z Axis */ error_item = 1 if[#[va
  • Page 563B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU if[#[value 4] eq #0]goto 97 if[#[value 4] le 0]goto 98 /* Work co-ord. System */ if[#[attribute 5] ne att_not_use]then error_item = 5 if[#[value 5] eq #0]goto 99 if[#[value 5] lt 1 || #[value 5] gt 6]goto 98 endif /* Work co-ord.
  • Page 56411. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 O6625 ;############################################### Measurement of Inside Circle (G184) input_error_flag = error_non /* Height for Z Axis */ error_item = 1 if[
  • Page 565B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU error_item = 5 if[#[value 5] eq #0]goto 99 if[#[value 5] lt 1 || #[value 5] gt 6]goto 98 endif /* Work co-ord. System */ if[#[attribute 6] ne att_not_use]then error_item = 6 if[#[value 6] eq #0]goto 99 if[#[value 6] lt 1 || #[val
  • Page 56611. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 call fig_language color red C white L0 G243X1Y24 P[#1+901] n99 m99 O6628 ;############################################### Measurement of Outside Corner (G187) input_error_flag = error_non /* 1st Measure Point X */ error_item = 1
  • Page 567B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU O6629 ;############################################### Measurement of Inside Corner (G188) input_error_flag = error_non /* Corner Position */ error_item = 1 if[#[value 1] eq #0]goto 97 if[#[value 1] lt 1 ||#[value 1] gt 4]goto 98
  • Page 56811. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 error_item = 2 if[#[value 2] eq #0]goto 97 if[#[value 2] le 0]goto 98 /* Hole Nominal Dia. */ error_item = 3 if[#[value 3] eq #0]goto 97 if[#[value 3] le 0]goto 98 /* 1st Hole Angle */ error_item = 4 if[#[value 4] eq #0]goto 97 i
  • Page 569B-63423EN/02 SAMPLE PROGRAM 11. USER PROGRAMS FOR MEASURING CYCLE MENU /* 2nd Hole Point X */ error_item = 5 if[#[value 5] eq #0]goto 97 /* 2nd Hole Point Y */ error_item = 6 if[#[value 6] eq #0]goto 97 /* 3rd Hole Point X */ error_item = 7 if[#[value 7] eq #0]goto 97 /* 3rd Hole Point Y */ error_it
  • Page 57011. USER PROGRAMS FOR MEASURING CYCLE MENU SAMPLE PROGRAM B-63423EN/02 if[#[value 5] le 0]goto 98 /* Probe Axis for Move */ error_item = 6 if[#[value 6] eq #0]goto 97 if[#[value 6] lt 1 || #[value 6] gt 4]goto 98 /* Feedrate for Move */ error_item = 7 if[#[value 7] eq #0]goto 97 if[#[value 7] le 0]g
  • Page 571B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING 12 USER PROGRAMS CUTTING FOR GUIDANCE -563-
  • Page 57212. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 12.1 GUIDANCE DRAWING FIGURE FOR GUIDANCE CUTTING /************************************************************* /* Copyright (C) 1999 by FANUC LTD. ALL rights reserved. * /************************************************************
  • Page 573B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING /* @SQR_X #10286 /* SQUARE FOR LIMIT @SQR_Y #10287 /* SQUARE FOR LIMIT @MPL_F #10288 /* SELECTED PLANE @W_POS1 #10289 /* ACTUAL POSITION OF 1ST AXIS @W_POS2 #10290 /* ACTUAL POSITION OF 2ND AXIS @WRK_VAR #10291 /* work variable @WRK_
  • Page 57412. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 @SIN_CCW #10341 /* @COS_CCW #10342 /* @L_WRK #10343 /* @D_DSP 10344 /* VARIABLE NO. @D_DSP0 #10345 /* @ANG_ITEM #10346 /* @WORK_TL #10347 /* /* #10348 /* -#10399 RESERVE FOR GUIDANCE HANDLE /* /* /************************************
  • Page 575B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING /* SET ACTUAL POSITION /* M98 P9811 /* SET ACTUAL POSITION(W_POS1,W_POS2) INPUT DATA:WRK_VAR /* IF [SET_A NE #0] THEN LINE_KID = 2 ELSE IF [SET_Y1 NE #0 && SET_Y2 NE #0]THEN IF [SET_X1 NE #0 && SET_X2 NE #0]THEN LINE_KID = 2 GOTO 200
  • Page 57612. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 ELSE WORK_Y = WORK_Y1 ENDIF WORK_POS = WORK_Y /* y coordinate save /* IF [W_POS2 LT WORK_Y] THEN WORK_SIN = WORK_230 WORK_SET = 0 RMV_DIR = 1 ELSE WORK_SIN = -WORK_230 WORK_Y = -WORK_Y WORK_SET = 180 RMV_DIR = 0 ENDIF WORK_COS = 0 VE
  • Page 577B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING GOTO 350 ENDIF /* /* (X1,Y1) AND (X2,Y2) /* IF [[WORK_Y2 - WORK_Y1] EQ 0 ]THEN /* X PARALLEL ? LINE_KID = 0 GOTO 100 ENDIF IF [[WORK_X2 - WORK_X1] EQ 0 ]THEN /* Y PARALLEL ? LINE_KID = 1 GOTO 200 ENDIF COFI_A = [WORK_Y2 - WORK_Y1]/[W
  • Page 57812. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 WORK_SET = [WORK_Y2-WORK_Y1]/[WORK_X2-WORK_X1] GOTO 357 N355 WORK_SET = TAN[WORK_A] N357 CROS_X = W_POS2 * WORK_SET + W_POS1 CROS_X = CROS_X /[WORK_SET * WORK_SET + 1] CROS_Y = CROS_X * WORK_SET IF [ROUND[ABS[CROS_X-W_POS1]*WORK_AMT]
  • Page 579B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING /* REGION 4 .* /* . N364 IF [COFI_B LT WORK_MIN]THEN /* B<0 IF[ROUND[W_POS2*WORK_AMT] LT ROUND[WORK_Y*WORK_AMT]]THEN/* #5042
  • Page 58012. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 WORK_MIN=0.00001 /* ENDIF /* /* WORK_FAB = 0 /* TOOL POS IS ABOVE LINE /* /* PALLREL LINE. /* IF [WORK_SET EQ 180 ]THEN WORK_FAB = 1 /* TOOL POS IS BELOW LINE F_AP1 = LEFT F_RM1 = RIGHT GOTO 30 ENDIF IF [WORK_SET EQ 0 ]THEN WORK_FAB
  • Page 581B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING ENDIF GOTO 100 ENDIF ENDIF /* N32 WORK_TL = TOL_OFS * SQRT[COFI_A*COFI_A + 1] IF[RMV_DIR GT 0] THEN WORK_TL = -WORK_TL /* sift direction up/down WORK_POS = COFI_B + WORK_TL /* new cofi_b WORK_Y = COFI_A*W_POS1+WORK_POS /* N34 IF[ROUN
  • Page 58212. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 N540 IF [R985.6 EQ 1] GOTO 900 /* GUIDANCE CUTTING? /* N560 IF [F_DNOW EQ F_DAGO] GOTO 900 /* IF NOW NE AGO THEN F_DAGO=F_DNOW /* /* N100 WORK_ARW=0 /*CUTTING DIRECTION IS LOWER /* IF [WORK_FAB EQ 0 && F_DNOW EQ 1] THEN /* WORK_ARW=1
  • Page 583B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING ENDIF; /* IF [CUNT EQ 3] THEN ; /* IF [WORK_ARW EQ 0] THEN ; /* if approach direction ↓? G240 P5 ; /* set color pink DRCT_CUT = 1 ; /* set cutter direction ELSE ; /* G240 P2 ; /* set color green ENDIF ; /* ENDIF; /* IF [CUNT EQ 0 ||
  • Page 58412. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 IF [WORK_ALR EQ 2] THEN ; IF [CUNT EQ 0] THEN; GOTO 30 /* left rotation ENDIF; IF [CUNT EQ 2] THEN; GOTO 20 /* right rotation ENDIF; ENDIF; IF [WORK_APU EQ 1] THEN ; IF [CUNT EQ 1] THEN; GOTO 20 /* right rotation ENDIF; IF [CUNT EQ 3
  • Page 585B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING /* limit line G240 P15 ; /* set color G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0-6]*W_COS+W_CYPOS] G01 X[48*W_COS-[0+6]*W_SIN+W_CXPOS] Y[48*W_SIN+[0+6]*W_COS+W_CYPOS] G242 X[48*W_COS-[0-6]*W_SIN+W_CXPOS+1] Y[48*W_SIN+[0-6]*W_
  • Page 58612. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 /* line N050 G242 X-96 Y160 G01 X[91*COS[45]-96] Y[91*SIN[45]+160] /* arrow on arc N060 G242 X[36*COS[45]-80] Y[36*SIN[45]+176] G01 X[[36+3]*COS[45]-[0-8]*SIN[45]-80] Y[[36+3]*SIN[45]+[0-8]*COS[45]+176] G01 X[[36-3]*COS[45]-[0-8]*SIN
  • Page 587B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING R_WRK=[Y_WRK-#[5042+CIRC_PLF]]*[Y_WRK-#[5042+CIRC_PLF]] ENDIF R_WRK= [X_WRK-#[5041+CIRC_PLF]]*[X_WRK-#[5041+CIRC_PLF]]+R_WRK R_WRK= SQRT[R_WRK] /* calculate distance from center IF [ R_WRK LT 0 ] THEN /* minus ? R_WRK= 0 ENDIF ENDIF
  • Page 58812. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 IF [LIMIT_F EQ 1] THEN IF [ R974.0 EQ 0 ] THEN /* inside cutting ? G310 R970 Q[[R_WRK-[TOL_OFS]]*WRK_VAR] L4 /* radius r ELSE G310 R970 Q[[R_WRK+[TOL_OFS]]*WRK_VAR] L4 /* radius r ENDIF G310 R975 Q128 L1 /* LIMIT :: effective ELSE G3
  • Page 589B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING WRK_VAR= 0 /* set default sin data WRK_VAR2= 1 /* set default cos data ENDIF ENDIF /* IF[DSP_FWRK EQ 1] THEN /* DISPLAY GRAPHIC? DSP_FWRK=0 /* FLAG OFF GOTO 500 /* NOT CHECK F104 ENDIF /* N2010 L_WRK= ROUND[[UNIT_F8-FIX[UNIT_F8]]*10]
  • Page 59012. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 /* N660 IF [R961 EQ 3] THEN /*G03 WORK_ALU=2 /*ALONG HANDLE UPPER IS LEFT ENDIF /* /* N680 WORK_APR=1 /*APPROACH RIGHT IS RIGHT /* IF [R974 EQ 1] THEN /* WORK_APR=2 /*APPROACH RIGHT IS LEFT ENDIF /* /* IF [R974 EQ 0] THEN /*IF CIRCLE
  • Page 591B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING IF [WORK_ARW EQ 0] THEN ; /* if approach direction ? G240 P2 ; /* set color green ELSE ; /* G240 P5 ; /* set color pink DRCT_CUT = 1 ; /* set cutter direction ENDIF ; /* ENDIF; /* IF [CUNT EQ 2] THEN ; /* IF [WORK_ARW EQ 0] THEN ; /*
  • Page 59212. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 G206 P4 X[W_REG1X-48*WORK_C+W_CXPOS] Y[W_REG1Y-48*WORK_S+W_CYPOS] W_REG1X = 48*COS[60]*WORK_C-48*SIN[60]*WORK_S W_REG1Y = 48*COS[60]*WORK_S+48*SIN[60]*WORK_C G242 X[W_REG1X-48*WORK_C+W_CXPOS] Y[W_REG1Y-48*WORK_S+W_CYPOS] G02 X[W_CXPO
  • Page 593B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING ENDIF ; ENDIF ; /* draw handle circle G242 X[W_HDCXP-10] Y[W_HDCYP] G03 I[W_HDCXP] J[W_HDCYP] Q4 G242 X[W_HDCXP-7] Y[W_HDCYP] G03 I[W_HDCXP] J[W_HDCYP] Q4 G206 X[W_HDCXP-9] Y[W_HDCYP] G242 X[W_HDCXP+4] Y[W_HDCYP-4] G02 I[W_HDCXP+2] J
  • Page 59412. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 G242 X[W_HDCXP] Y[W_HDCYP+14] G01 X[W_HDCXP-2] Y[W_HDCYP+14-2] /* arc G242 X[W_HDCXP] Y[W_HDCYP+14] G03 X[W_HDCXP-14] Y[W_HDCYP] I[W_HDCXP] J[W_HDCYP] Q0 GOTO 40 ; N0030 /* left rotatetion arrow G242 X[W_HDCXP] Y[W_HDCYP+14] G01 X[W_
  • Page 595B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING M99 /* % /************************************************************* /* Copyright (C) 1997 by FANUC LTD. ALL rights reserved. * /************************************************************* /* O9809 G244 P0 ; /* set solid line G2
  • Page 59612. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 GOTO 100 ENDIF; IF [[P1004 AND 1] EQ 1 && W_1004 EQ 0]THEN W_UNIT1 = 7.2 GOTO 100 ENDIF; IF [[P1004 AND 1] EQ 0 && W_1004 EQ 1]THEN W_UNIT1 = 7.3 GOTO 100 ENDIF; ELSE ; IF [[P1004 AND 1] EQ 0 && W_1004 EQ 0]THEN W_UNIT1 = 7.3 GOTO 10
  • Page 597B-63423EN/02 SAMPLE PROGRAM 12. USER PROGRAMS FOR GUIDANCE CUTTING /* /* ACTUAL POSITION OF 2ND AXIS /* N20 IF[WRK_VAR EQ 2]THEN /* ZX-PLANE W_POS2 = #5041 /* X actual position ELSE /* XY-PLANE YZ-PLANE W_POS2 = #[5042+WRK_VAR] /* Y/Z actual position ENDIF N99 M99 /* /*******************************
  • Page 59812. USER PROGRAMS FOR GUIDANCE CUTTING SAMPLE PROGRAM B-63423EN/02 12.2 USER PROGRAMS CALLED BY USER PROGRAM CALLING SIGNALS /*************************************************************/ /* Copyright (C) 1999 by FANUC LTD. ALL rights reserved. */ /**************************************************
  • Page 599B-63423EN/02 INDEX INDEX COMMENT OF SOFT-KEYS IN LARGE CLASSIFIED MENU ............................................................................ 26 ATTRIBUTE DATA .................................................... 110 COMMENT OF SOFT-KEYS IN LIST MENU ............ 34 COMMENT OF SOFT-KEY
  • Page 600INDEX B-63423EN/02 MACRO PROGRAMS FOR DISPLAYING GUIDANCE USER PROGRAMS FOR DISPLAYING GUIDANCE DRAWING FIGURES.................................................. 111 DRAWING FIGURE...................................................... 62 MACRO PROGRAMS FOR EXECUTING USER PROGRAMS FOR EXECUTING MACHI
  • Page 601Revision Record FANUC MANUAL GUIDE For Milling PROGRAMMING MANUAL (B-63423EN/01) - Applied to 16i/18i/21i-B 02 May, 2001 - Addition of new functions 01 Nov., 1999 Edition Date Contents Edition Date Contents
  • Page 602EUROPEAN HEADQUARTERS GRAND-DUCHE DE LUXEMBOURG GE Fanuc Automation Europe S.A. Zone Industrielle L-6468 Echternach (+352) 727979 - 1  (+352) 727979 – 214 www.gefanuc-europe.com BELGIUM / NETHERLANDS CZECH REPUBLIC FRANCE GE Fanuc Automation Europe S.A. GE Fanuc Automation CR s.r.o. GE Fanuc Automa
  • Page 603Printed at GE Fanuc Automation S.A. , Luxembourg May 200