Как писать измерительные циклы

[Zelder 0]

Читал руководства не могу понять как правильно писать измерительные циклы.  Я так понимаю это программа для измерения внешнего диаметра, подскажите как читать и писать циклы. Заранее спасибо 

 

DEF REAL _A1, _A2, _MR, _MR1, _X0, _Y0, _Z0, _RDIAM
_MR=R1-10
_MR1=R1+10
 ROT Y=$AA_IW[B1] 

_X0=$AA_IW[X] , 
_Y0=$AA_IW[Y] 
_Z0=$AA_IW[Z] 

M120 

G1 F1000 X=_X0+_MR1 

G1 F1000 Z=_Z0-15. 

L770("X” ,$AA_IW[X],_X0-_MR,0) 

_A1=R50

G1 F1000 Z= Z0

G1 F1988 X=_X0-_MR1

G1 F1000 Z0=_Z0-15.

L770("X" ,$AA_IW[X],_X0+_MR,0)
 _A2=R50
XO=(_A1+_A2)/2
G1 F1000 Z=_Z0 
G1 F1000 X=_X0
G1 F1000 Y=_Y0+_MR1
G1 F1000 Z=_Z0-15.

L770("Y",$AA_IW[Y],_Y0-_MR,0)
_A1=R50

G1 F1000 Z=_Z0
G1 F1000 Y=_Y0-_MR1
G1 F1000 Z=_Z0-15.

L770("Y",$AA_IW[Y],_Y0+_MR,0)
_A2=R50
_Y0=(_A1+A2) /2

G1 F1000 Z=_Z0
G1 F1000 Y=_Y0

G1 F1000 X=_X0+_MR1
G1 F1000 Z=_Z0-_15.

L770("X",$AA_IW[X],_X0-_MR, 0)
_A1=R50
G1 F1000 Z=_Z0
G1 F1000 X=_X0-_MR1
G1 F1000 Z=_Z0-_15.
L770("X"), $AA_IW[X], _X0+_MR, 0)

_RDIAM=_A1-_A2
M121
ROT
R41=_X0
R42=_Y0
R43=_RDIAM
MSG("SPIGOT DIAMETER:" <<_RDIAM<<"X0=" <<"X0="Y0" <<_Y0) 
RET

[s_liam 66]

Циклы измерительные писать или писать программы для измерения чего-либо с использованием измерительных циклов? Если программы писать с использованием циклов, то надо читать документацию со стойкой станка, какие измерительные циклы у вас доступны.

Изменено 1 августа 2022 пользователем s_liam

[ShadoWofXaoS 13]

28.06.2022 в 11:53, Zelder сказал:

Читал руководства не могу понять как правильно писать измерительные циклы.  Я так понимаю это программа для измерения внешнего диаметра, подскажите как читать и писать циклы. Заранее спасибо 

 

DEF REAL _A1, _A2, _MR, _MR1, _X0, _Y0, _Z0, _RDIAM
_MR=R1-10
_MR1=R1+10
 ROT Y=$AA_IW[B1] 

_X0=$AA_IW[X] , 
_Y0=$AA_IW[Y] 
_Z0=$AA_IW[Z] 

M120 

G1 F1000 X=_X0+_MR1 

G1 F1000 Z=_Z0-15. 

L770("X” ,$AA_IW[X],_X0-_MR,0) 

_A1=R50

G1 F1000 Z= Z0

G1 F1988 X=_X0-_MR1

G1 F1000 Z0=_Z0-15.

L770("X" ,$AA_IW[X],_X0+_MR,0)
 _A2=R50
XO=(_A1+_A2)/2
G1 F1000 Z=_Z0 
G1 F1000 X=_X0
G1 F1000 Y=_Y0+_MR1
G1 F1000 Z=_Z0-15.

L770("Y",$AA_IW[Y],_Y0-_MR,0)
_A1=R50

G1 F1000 Z=_Z0
G1 F1000 Y=_Y0-_MR1
G1 F1000 Z=_Z0-15.

L770("Y",$AA_IW[Y],_Y0+_MR,0)
_A2=R50
_Y0=(_A1+A2) /2

G1 F1000 Z=_Z0
G1 F1000 Y=_Y0

G1 F1000 X=_X0+_MR1
G1 F1000 Z=_Z0-_15.

L770("X",$AA_IW[X],_X0-_MR, 0)
_A1=R50
G1 F1000 Z=_Z0
G1 F1000 X=_X0-_MR1
G1 F1000 Z=_Z0-_15.
L770("X"), $AA_IW[X], _X0+_MR, 0)

_RDIAM=_A1-_A2
M121
ROT
R41=_X0
R42=_Y0
R43=_RDIAM
MSG("SPIGOT DIAMETER:" <<_RDIAM<<"X0=" <<"X0="Y0" <<_Y0) 
RET

 

[ShadoWofXaoS 13]

Если я правильно понял, это пользовательская программа используется для измерения некоторых точек в пространстве с кинематикой станка 4D. Если быть точным, данный алгоритм измерения напоминает алгоритм измерения и определения габаритных размеров геоэлемента (круг/цилиндр/сфера, цапфа/прямоугольник) и координат его середины/центра по осям X, Y. Думаю, в данном случае речь идёт о детали/геоэлементе с цилиндрической/сферической формой. 

 

А логика измерения вроде бы такая:

 

1. Выравниванием плоскость СКД относительно актуальной позиции изм.инструмента/щупа/тестера по оси Y;

 

2. Определяем положение кромок геоэлемента (кромка/плоскость/грань/ребро) на детали по оси X относительно актуальной позиции изм.инструмента/щупа/тестера в режиме двунаправленного измерения с последующими определением половинного расстояния между этими точками, то бишь середины полученного отрезка, и корректировкой актуального положения щупа относительно измеряемой оси (ось X); 

 

3. Делаем то же самое, что и в шаге  N2, но по оси Y.

 

4. Перепроверяем полученные значения измерения на этапе 2 повторным его прогоном;

 

5. Получаем некое значение некоего диаметра с координатами его центра в плоскости  X/Y.

Изменено 3 августа 2022 пользователем ShadoWofXaoS

[ShadoWofXaoS 13]

На мой взгляд программа написана не очень грамотно, т.к. элементов параметрического программирования в ней очень и очень мало, а адаптивный алгоритм работы и вовсе отсутствует, что может привести к получению некорректных результатов или вовсе к поломке оборудования в процессе измерения. Кстати, наблюдаются некоторые синтаксические ошибки в коде:

1. Строка 6 ( счёт идёт от строки с объявлением переменных - Def): в конце кода стоит ", " (запятая), хотя в рамках логики и синтаксиса она там не нужна;

2. Строка 19: вместо "X0" используется "XO".

Кстати, а для чего нужна подпрограмма  L770? Это она отвечает за сам процесс измерения или в её теле есть обращение к стандартному циклу измерения Sinumerik?

[Zelder 0]

03.08.2022 в 21:04, ShadoWofXaoS сказал:

На мой взгляд программа написана не очень грамотно, т.к. элементов параметрического программирования в ней очень и очень мало, а адаптивный алгоритм работы и вовсе отсутствует, что может привести к получению некорректных результатов или вовсе к поломке оборудования в процессе измерения. Кстати, наблюдаются некоторые синтаксические ошибки в коде:

1. Строка 6 ( счёт идёт от строки с объявлением переменных - Def): в конце кода стоит ", " (запятая), хотя в рамках логики и синтаксиса она там не нужна;

2. Строка 19: вместо "X0" используется "XO".

Кстати, а для чего нужна подпрограмма  L770? Это она отвечает за сам процесс измерения или в её теле есть обращение к стандартному циклу измерения Sinumerik?

Я так понял что L770 это цикл измерения (GILDEMEISTER)

1. Запятая там случайно поставлено когда переписывал программу, так как в на самой стойке ее нет, в программе 

2. Да, нужно поставить Х0

Получается подвожу к центру цапфы, а после запускаю программу. Это кстати полпрограмма, в MDI нужно дописать нормальный запуск для этой программы