father

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

Удобный макрос для измерений готовых деталей на станке с пом. 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 
%

post-45955-0-92904400-1437390313_thumb.jpg

Изменено пользователем father
1 пользователю понравилось это

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах


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

 

1 пользователю понравилось это

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

Вы должны быть пользователем, чтобы оставить комментарий

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу



  • Реклама

  • Сообщения