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

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



  • Сообщения

    • Guterfreund
      можно попробовать, но при десяти пристеночных элементах как бы не схлопнулся диаметр пристеночной области, а еще и ядро хотелось бы заиметь :). Все-таки для K-E размер первого элемента уже исчисляется миллиметрами, а не их тысячными долями...
    • ДОБРЯК
      Вы аккуратнее переходите из 3-х мерного пространства в 2-х мерное. Поверхность сферы нельзя с деформировать в плоскость без разрезов и склеек. Точно так же З-х мерный объект о котором вы говорите нельзя с деформировать в шар, тор и т. д.   И сама бесконечность получается мягко говоря странная.  Если 20 раз пробежать по кругу, от этого длина окружности не станет длиннее в 20 раз.))      
    • Вне зоны доступа
      это ничего. перетопчетесь
    • zhitov_vm
    • ДОБРЯК
    • etcartman
       О да. Спасибо. Обнаружил сегодня что если дать сначала небольшую V_y для  inlet   то вихри срываются легче гораздо. То есть я так и понял - что грубая сетка в данном случае также провоцирует неустойчивость и тем и лучше регулярной. Причем при срыве вихрей решение сходится гораздо быстрее, на грубой сетке - в чем и парадокс. А как в таком случае (в узком канале) считать Рейнольдса. Я считал  dU/v причем d брал как диаметр круга, а U -  среднюю. Но по моему в данном случае это не верно - у меня картинки все те же а значения отличаются в разы если не на порядки.    
    • Aleksey_I
      Добрый день! Зажмите клавишу shift и нажмите пкм по прозрачной грани, откроется меню выбора и выберите в разделе грань изменить прозрачность. Прилагаю две картинки, на первой картинке курсор наведен  на прозрачную грань без зажатой клавиши shift, а на второй с зажатой. 
    • MFS
      Если хорошо присмотреться к армированным изделиям, то можно увидеть, что там есть маааленькие такие прокольчики, через которые значки удерживают/центрируют арматуру в форме:  
    • раздватри
      После не очень тяжелого недуга в 15 суток , продолжим, но очень медленно и начнем с этого: дерьмо это все, DFBI в Star-ccm+, если сравнивать с DFBI в Flowvision.  Star-ccm+ , в сравнении, стар и непрозрачный как полярная ночь, накладывающий на все движения и своими накладными сетями включительно, сплошные ограничения и вяжет творческий труд и по ногам, и по рукам. Программа для консерваторов - немецких пенсионеров периода загнивающего капитализма и современных Российских реклам-(ям)-щиков и просящих манетку, но ни как для творческого мгновенного труда, а без него никуда. Я представляю, какие бы корабли производила немецкая промышленность, если бы упор был сделан не на знания специалистов в гидро и аэродинамике, на их опыт, а на труд кучки математиков без творческого начала и без контакта с развитым социал-(измом)-ьным обществом. Кто еще не начал осваивать в Stare движение с шестью степенями свободы в системе со свободной композитной поверхностью, лучше и не начинайте. Уходите сразу в FlowVision и творите, творите чудеса и чудесные корабли. Вам только и останется этим заниматься, если туда уйдете. Не верьте в рекламные трюки рекламщиков и просящих манетку за достоинство вне-(е)-дренных накладывающихся сеток. Все это есть попытки исправить труд бездарных математических ячеек, не глядящих вперед и не бегущих туда. Не спасают и не предоставляют возможности для творческого труда и они. Это лишь ширма всего, как и виртуальные диски для вращающихся вентиляторов и винтов, от безвыходности в ситуации, но умело прорекламированные, как рывок - в куда бегут, но не бегут туда. Вас обманывают, когда говорят: все для компьютеров меньшей производительности, чтобы справлялись с расчетом и довольно быстро. Вранье все это. С таким же числом и вокруг винтов, ячеек, "винты" прекрасно распознают всасывающую и нагнетающую стороны лопастей и выдают еще более точный расчет без таблиц для винтов и контуров для лопаток. Это могло бы позволить творить чудеса, но не позволит из-за той, математической ячейки еще в зарождении программы. Уходите от сюда, уходите в Flowvision, а я пью лекарство... пока.  
    • error1412