Перейти к публикации

Измерение на станке с пом. 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

 

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

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

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

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




×
×
  • Создать...