第5章

一、选择题

1. 答案：B。解析A中R参数是从R0到R99，共计100个，C中可以在一行程序中对R赋值 ，D中R参数是全局变量

2. 答案：B。解析$P_TOOL代表刀补值所以R2的值是1

3. 答案：B。解析TRUNC(VRP 1)表示取VRP1的整数值，VRP1变量为1.3，则整数值就是1，ABS (VRP 2)表示取VRP 2的绝对值，那么还是3.7。所以计算结果是4.7。程序跳转到MARK2

4. 答案：C。解析WHILE是“循环语句”当不满足表达式FEHJ>=0时，即可跳出循环，根据FEHJ = FEHJ-2语句，最终FEHJ结果是-1，不满足表达式要求，但是R10 = FEHJ语句在FEHJ = FEHJ-2以上，所以R10被最终赋值1，MSG(R10)是指最终将R10的值输出到屏幕提示行上。

5. 答案：B。解析FELD [2,2] = REP(5)是指定义了一个2X2的矩阵，所有的值都赋予5，FELD [1,0] = SET(10,20)表示从地址[1,0]开始，FELD [1,0]赋值为10，FELD [1,1]赋值为20。FELD [0,0] = 3是指将FELD [0,0]赋值为3。所以最终FELD [0,0]为3，FELD [0,1]为5，FELD [1,0]为10，FELD [1,1]为20。不存在FELD [1,2]的情况。

6. 答案：D。解析：A、B选项正好说反，C选项是条件跳转当R2变量不等于0时跳转到NKLJ，变量只能由字母数字下划线组成。

二、解答题

1. 参考答案

加工过程：

• T1切槽刀加工5个等间距槽
• 加工程序：

主程序：5-7

N10 DEF REAL NUM=1,POS     ;定义变量

N20 T1 D1                                 ;调用切槽刀

N30 M03 S500

N40 G94 F300

N50 G00 X66 Z3

N60 R1=5                                  ;R1设置为槽的数量

N70 R2=11                                 ;R2设置为槽的间距

N80 R3=6                                  ;R3设置为槽的宽度

N90 R4=10                                 ;R4设置为槽的起始位置

N100 R5=5                                 ;R5设置为槽的深度

N110 POS=-R4

N120 WHILE NUM<=R1            ;调用WNILE循环

N130 CYCLE93 (30, POS, R3, R5, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 1, 5, 3) ;切槽循环

N140 NUM=NUM+1

N150 POS=POS-R2

N160 ENDWHILE                      ; WNILE循环结束

N170 G00 X200

N180 Z200

N190 M02                                  ; 程序结束

2. 参考答案

加工过程：

• T1外圆刀粗精一体

主程序：5_8

T1 D1                                        ;调用外圆刀

M03 S900                                  ;主轴正转900r/min

G00 X50 Z1                               ;快速定位

CYCLE95 ("5801", 1.5, 0, 0, 0.1, 0.15, 0.1, 0.1, 9, 0, 0, 0) ;毛坯循环

G00 X100                                  ;退刀

Z100                                          ;退刀

M02                                           ;程序结束

子程序：5801.iso

G01 X16 Z0                               ;轮廓起始点

X20Z-2                                      ;倒角

Z-24

R1=21                                        ;定义Z向为自变量

WHILE R1>=-10                        ;椭圆终点

R2=SQRT(1-(R1*R1)/625)*44     ;因变量X值

R3=R1-45                                 

G01 X=R2 Z=R3                         ;直线插补走椭圆

R1=R1-0.5                                 ;递减步进

ENDWHILE                               ;结束循环

X48 Z-65                                   ;走斜线

Z-95

X50                                           ;抬刀

3. 参考答案

加工过程：

• T1外圆刀粗精一体

主程序：5_9

G90 G95                                   ;绝对坐标编程，转进给模式

T1D1                                         ;调用外圆刀

M3S1000                                   ;主轴正转1000r/min

G00 X45 Z2                               ;快速定位

CYCLE95 ("5901", 1.5, 0, 0, 0.2, 0.2, 0.1, 0.1, 9, 0, 0, 0) ;毛坯循环

G00 X100 Z100                          ;退刀

M30                                           ;程序结束

子程序：5901.iso

G01 X30 Z0                               ;轮廓起始点

Z-20

DEF REAL VAR1 VAR2=0          ;自定义变量

WHILE  VAR2>=-18.3             

N10 VAR1= 50-20*SQRT(1-VAR2*VAR2/400)

G01 Z= VAR2-20 X=VAR1

IF VAR2==-18.3 GOTO 20          ;防止死循环

VAR2=VAR2-0.5

IF VAR2<-18.3

VAR2=-18.3                               ;加工到位

GOTO 10

ENDIF

ENDWHILE

N20 G01 Z-55

X45

4.参考答案

加工过程：

• T3 (3mm宽度的切槽刀或成型刀)

主程序：5_10

T3 D1                                        ;切槽刀

M03 S400

G0 X65 Z10

R1=5.5                                    ;牙高

N5  WHILE R1>=0                   ;牙高切削的最终距离

R2 = 3.392 + TAN(15)*R1*2-3   ;每一层需要切削的高度

R3=R2/2                                    ;两边左右切削均分距离

G00 X=49+R1*2 Z=20

G33 Z-70 K10                            ;X向切螺纹

G0 X65

Z10

R4=0                                    ;借刀基准，从0上升到R3

N10 WHILE R4<=R3                  ;切削左半边借刀螺纹

G0 X=49+R1*2 Z=20-R4

G33 Z-70 K10

G0 X65

Z10

IF R4==R3 GOTO 20                  ;防止死循环

R4=R4+2.6

IF R4 > R3

R4=R3                                       ;防止除不尽

GOTO 10

ENDIF

ENDWHILE                               ;对应第二个WHILE循环

N20

R4=0                                    ;借刀基准(反向)，从0上升到R3

N30 WHILE R4<=R3                  ;切削右半边借刀螺纹

G0 X=49+R1*2 Z=20+R4

G33 Z-70 K10

G0 X65

Z10

IF R4==R3 GOTO 40                 ;防止死循环

R4=R4+2.6

IF R4 > R3

R4=R3                                       ;防止除不尽

GOTO 30

ENDIF

ENDWHILE                           ;对应第三个WHILE循环

N40

IF R1==0   GOTO 50            ;防止死循环

R1=R1-0.2                            ;X向背吃刀量

IF R1< 0

R1=0                                     ;防止除不尽

GOTO 5

ENDIF

ENDWHILE                           ;对应第一个WHILE循环

N50

G0 X100

Z100

M30