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 пользователей

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



  • Реклама

  • Сообщения

    • piden
      Купил бы ему эту книжку 
    • Борман
      Когда то держал эту книжку в руках.. это была книжка одного препода. После этого книжка чудесным образом куда-то делать, но я к этому не был причастен, видит Бог. НО препод, почему то все шесть лет винил в этом меня и при любом удобном случае припоминал мне об этом.. Хороший препод.. добрый и строгий.
    • streamdown
      Как? Что случилось то? )))
    • fox1001
      https://www.tracepartsonline.net/(S(o5vu31w4qlatxr50nqssl05t))/PartDetails.aspx?Class=CLAMPTEK&clsid=&ManID=ELESA&PartFamilyID=10-15072013-101179&PartID=10-15072013-101179&SrchRsltType=0&SrchRsltId=2
    • Leon
      @michmich73, вот попробуйте еще вот этот вариант специи. SpecEditor_v_2014_SP0.0_SE.zip Если вы в общих настройках макросов снимите галочку "Включить проверку оформления чертежа" то в настройках SpecEditor появится возможность задать высоту текста, отличную от высоты размеров. Нет, к сожалению. С помощью этих полей обеспечивается управление группировкой конфигураций в спецификации. В архиве с макросами есть хелп. Там достаточно подробно все расписано.    
    • AlexKaz
      Обе части напоминают "занимательные" книги Перельмана. Для подросткового чтения, или для тех, кто пропустил курс физики в постсоветской школе, для современных школьников наверное будет откровениями. Прочёл обе в первый семестр первого курса на пару с "Гордон Пири Бегай быстро и без травм". Дж. Гордон заливал по ходу текста, что смог заранее на бумажке просчитать, на какое количество осколков разрушится котёл, и каких размеров будут эти осколки... Книжка Пири по итогам оказалась полезнее для первокура.
    • Ninja
        МАКАРКА,  ты понимашь - наш этот NX настолько примитивен, как балалайка, так что стратегий разных нам не завезли.  И вот на этой балалайке мы играем оперу Верди, виртуозно играем...  
    • kabaLL
      Подскажите, можно ли где-то найти модели защелок (в частности, 701S / 702S), либо наподобии, для примера?
    • Konstantin Sazonov
      Всем привет, в CAD/CAE мало чего понимаю (просто сисадмин), но вот просят найти решение такой проблемы: заказчик передает нам CATPart файлы, там модели автомобильной электропроводки, представлены уже в таком виде, как они будут установлены в машине, т.е. все изогнуто/закручено. Каким образом/каким софтом из таких моделей сделать (в идеале) сборочные чертежи в dwg? Ну как минимум, "распрямить" все загибы и загогулины, пусть в том же CATPart формате? У нас есть только AutoCAD LT и Glovius для просмотра 3D моделей.    Вид в исходном CATPart приложен.      
    • ALASK