Измерение на станке с пом. Renishaw

[father 2]

Удобный макрос для измерений готовых деталей на станке с пом. Renishaw.

В MDI набираю:

G65 P99 X1 (Измерение координаты в направлении +X)

G65 P99 X-1 (Измерение координаты в -X)

G65 P99 Y1 (Измерение координаты в +Y)

G65 P99 Y-1 (Измерение координаты в -Y)

G65 P99 Z1 (Измерение координаты в Z)

 

G65 P99 X100 (Измерение  гнезда по X, размер любой, не только 100)

G65 P99 X100 Z-10 (Измерение  выступа по X)

G65 P99 Y100 (Измерение  гнезда по Y)

G65 P99 Y100 Z-10 (Измерение  выступа по Y)

 

G65 P99 D40 (отверстие)

G65 P99 D40 Z-10 (вал)

 

 

%

O00099 (MEASURE) 

(24-X 25-Y 26-Z 7-D) 

G103 P1 

#101= #0 

#102= #0 

#11= #5321 (G59-X) 

#12= #5322 (G59-Y) 

IF [ [ #24 NE #0 ] AND [ ABS[ #24 ] LT .1 ] ] THEN #24= 10000 * #24 

IF [ [ #25 NE #0 ] AND [ ABS[ #25 ] LT .1 ] ] THEN #25= 10000 * #25 

IF [ [ #26 NE #0 ] AND [ ABS[ #26 ] LT .1 ] ] THEN #26= 10000 * #26 

IF [ #26 GT 0 ] THEN #26= - #26 

 

 

IF [ [ ABS[ #24 ] EQ 1 ] OR [ ABS[ #25 ] EQ 1 ] OR [ #26 EQ [ -1 ] ] ] GOTO2 (SURF X/Y/Z) 

IF [ #24 OR #25 ] GOTO1 (POCKET/WEB X/Y) 

IF [ #7 EQ #0 ] GOTO4 

 

(BORE/BOSS) 

#1= 1 

IF [ #26 ] THEN #1= 2 

G00 G90 

G65 P9023 A#1 D#7 Z#26 S59. 

G103 P1 

#5321= #11 (G59-X) 

#5322= #12 (G59-Y) 

 

G00 G90 

T25 M06 

G43 H25 

 

G65 P9832 (OMP ON) 

G103 P1 

 

IF [ #26 ] THEN #26= #26 + #5043 - #5083 

G65 P9812 X#7 Z#26 

#101= #188 (DIAMETER X) 

 

G65 P9812 Y#7 Z#26 

#102= #188 (DIAMETER Y) 

GOTO3 

 

 

(POCKET/WEB) 

N1 IF [ [ #24 NE #0 ] AND [ #25 NE #0 ] ] GOTO4 

IF [ [ #24 LT 0 ] OR [ #25 LT 0 ] ] GOTO4 

 

#1= 3 

IF [ #26 ] THEN #1= 4 

G65 P9023 A#1 X#24 Y#25 Z#26 S59. 

G103 P1 

#5321= #11 (G59-X) 

#5322= #12 (G59-Y) 

IF [ #24 ] THEN #101= #188 (Size X) 

IF [ #25 ] THEN #102= #188 (Size Y) 

GOTO3 

 

 

(SURFACE) 

N2 IF [ [ [ #24 NE #0 ] OR [ #25 NE #0 ] ] AND [ #26 NE #0 ] ] GOTO4 

IF [ [ #24 NE #0 ]  AND [ #25 NE #0 ] ] GOTO4 

 

G00 G90 

T25 M06 

G43 H25 

 

IF [ #24 ] THEN #24= 10 * #24 + #5041 

IF [ #25 ] THEN #25= 10 * #25 + #5042 

IF [ #26 ] THEN #26= 10 * #26 + #5043 - #5083 

 

G65 P9832 (OMP ON) 

 

G65 P9811 X#24 Y#25 Z#26 

G103 P1 

IF [ #24 ] THEN #101= #185 (SURF X) 

IF [ #25 ] THEN #102= #186 (SURF Y) 

IF [ #26 ] THEN #101= #187 (SURF Z) 

 

 

N3 G65 P9833 (OMP OFF) 

G00 G90 

/G53 Z0 

N4 G103 

M99 

%

Изменено 21 июля 2015 пользователем father

[father 2]

O00099 (MEASURE) 
(01-A 7-D 18-R 24-X 25-Y 26-Z) 
G103 P1 
#101= #0 
#102= #0 
#11= #5321 (G59-X) 
#12= #5322 (G59-Y) 
IF [ [ #24 NE #0 ] AND [ ABS[ #24 ] LT 0.1 ] ] THEN #24= 10000 * #24 
IF [ [ #25 NE #0 ] AND [ ABS[ #25 ] LT 0.1 ] ] THEN #25= 10000 * #25 
IF [ [ #26 NE #0 ] AND [ ABS[ #26 ] LT 0.1 ] ] THEN #26= -10000 * ABS[ #26 ] 
IF [ [ #1 NE #0 ] AND [ ABS[ #1 ] LT 0.1 ] ] THEN #1= 10000 * #1 
IF [ [ #18 NE #0 ] AND [ ABS[ #18 ] LT 0.1 ] ] THEN #18= 10000 * #18 

IF [ [ ABS[ #24 ] EQ 1 ] OR [ ABS[ #25 ] EQ 1 ] OR [ #26 EQ [ -1 ] ] ] GOTO2 (SURF X/Y/Z) 
IF [ #24 OR #25 ] GOTO1 (POCKET/WEB X/Y) 
IF [ #1 NE #0 ] GOTO3 (ANG) 
IF [ #7 EQ #0 ] GOTO6 

(BORE/BOSS) 
#1= 1 
IF [ #26 ] THEN #1= 2 
G00 G90 
G65 P9023 A#1 D#7 Z#26 S59. 
G103 P1 
#5321= #11 (G59-X) 
#5322= #12 (G59-Y) 

G00 G90 G80 G40 
T25 M06 
G43 H25 

G65 P9832 (OMP ON) 
G103 P1 

IF [ #26 ] THEN #26= #26 + #5043 - #5083 
G65 P9812 X#7 Z#26 
#101= #188 (DIAMETER X) 

G65 P9812 Y#7 Z#26 
#102= #188 (DIAMETER Y) 
GOTO5 

(POCKET/WEB) 
N1 IF [ [ #24 NE #0 ] AND [ #25 NE #0 ] ] GOTO6 
IF [ [ #24 LT 0 ] OR [ #25 LT 0 ] ] GOTO6 

#1= 3 
IF [ #26 ] THEN #1= 4 
G65 P9023 A#1 X#24 Y#25 Z#26 S59. 
G103 P1 
#5321= #11 (G59-X) 
#5322= #12 (G59-Y) 
IF [ #24 ] THEN #101= #188 (Size X) 
IF [ #25 ] THEN #102= #188 (Size Y) 
GOTO5 

(SURFACE) 
G103 P1 
N2 IF [ [ [ #24 NE #0 ] OR [ #25 NE #0 ] ] AND [ #26 NE #0 ] ] GOTO6 
IF [ [ #24 NE #0 ] AND [ #25 NE #0 ] ] GOTO6 

G00 G90 G80 G40 
T25 M06 
G43 H25 

IF [ #24 ] THEN #24= 10 * #24 + #5041 
IF [ #25 ] THEN #25= 10 * #25 + #5042 
IF [ #26 ] THEN #26= 10 * #26 + #5043 - #5083 

G65 P9832 (OMP ON) 

G65 P9811 X#24 Y#25 Z#26 
G103 P1 
IF [ #24 ] THEN #101= #185 (SURF X) 
IF [ #25 ] THEN #102= #186 (SURF Y) 
IF [ #26 ] THEN #101= #187 (SURF Z) 
GOTO5 

(ANG XY SURFACE) 
N3 IF [ #7 ] GOTO4 
IF [ #18 EQ #0 ] THEN #18= 10. 

G00 G90 G80 G40 
T25 M06 
G43 H25 

G65 P9832 (OMP ON) 

G65 P9821 A#1 D#18 
G103 P1 

#101= #188 (DISTANCE) 
GOTO5 

(ANG POCKET/WEB) 
N4 #7= ABS[ #7 ] 
#1= #1 + 90 
G00 G90 G80 G40 
T25 M06 
G43 H25 

IF [ #26 ] THEN #26= #5043 - #5083 + #26 
G65 P9832 (OMP ON) 

G65 P9822 A#1 D#7 Z#26 
G103 P1 
#101= #188 (Size) 

N5 G65 P9833 (OMP OFF) 
G00 G90 
N6 G103 
M99

O00088 
(ANGLE & OTVIR MEASURE) 
(1-A 24-X 25-Y 26-Z 7-D) 
G103 P1 

N1 IF [ [ #26 EQ #0 ] OR [ [ #7 EQ #0 ] AND [ #1 EQ #0 ] ] ] GOTO1 
IF [ [ #24 NE #0 ] AND [ ABS[ #24 ] LT 0.1 ] ] THEN #24= 10000 * #24 
IF [ [ #25 NE #0 ] AND [ ABS[ #25 ] LT 0.1 ] ] THEN #25= 10000 * #25 
IF [ ABS[ #26 ] LT 0.1 ] THEN #26= 10000 * #26 

T25 M06 
G54 G90 G00 X#24 Y#25 
G90 G00 G43 Z100. H25 
G65 P9832 (OMP ON) 
G65 P9810 Z#26 F2222. 
G65 P99 A#1 D#7 R#18 

G00 G90 G53 Z0 
G103 
M99 

 

Пример: измерить расстояние от точки х23.y46.z-8. до поверхности под углом 53°

G65P88X23Y46Z-8A53

Померять диаметр отверстия:

G65P88X102.2Y25Z-10D25