Круговой массив и подпрограмма. Как?

[Nikomas 0]

Господа, есть некий фланец с отверстиями лежащими на окружности 250мм. Сначала сверлим:

...
MCALL CYCLE83()
	HOLES2(0, 0, 125, 0, 45, 8)
MCALL
...

А как потом вызвать подпрограмму растачивания фрезой в этих отверстиях? Для себя временное решение нашел в TRANS (предварительно координаты отв. прорисовал в Автокаде):

...
TRANS X125 Y0
L115

TRANS X88.388 Y88.388
L115

TRANS X0 Y125
L115

TRANS X-88.388 Y88.388
L115
...

Но, наверняка, должно же быть решение проще чем прописывать каждое отв. Смещение полярных координат (G110, G111, G112) не прошло.

Edited September 16 by Nikomas

[A_1 243]

59 минут назад, Nikomas сказал:

А как потом вызвать подпрограмму растачивания фрезой в этих отверстиях?

Добрый день.

Попробуйте так:

MCALL L115
HOLES2(0, 0, 125, 0, 45, 8)
MCALL

а в L115 дописать в начале и в конце:

DEF REAL _X, _Y
_X=$AA_IW[X] _Y=$AA_IW[Y]
TRANS X=_X Y=_Y
...
TRANS
M17

 

Edited September 16 by A_1

[Nikomas 0]

1 час назад, A_1 сказал:

DEF REAL _X, _Y _X=$AA_IW[X] _Y=$AA_IW[Y] TRANS X=_X Y=_Y ... TRANS M17

Из вашей формулы я не получу список координат.

 

Очень жаль что для TRANS нельзя использовать полярные координаты (TRANS RP=125 AP=45). Было бы в разы проще. Первое отверстие я нашел с помощью:

R1 = SQRT(2) / 2 * 125

А вот второе добавить (+45град на радиусе 125мм) я без понятия как.

[A_1 243]

16 минут назад, Nikomas сказал:

Из вашей формулы я не получу список координат.

Станок получит список координат осей отверстий по программе HOLES2. Эта программа позиционирует инструмент к центрам отверстий, а изменённая программа L115 с помощью команд TRANS X=<текущее положение по X> Y=<текущее положение по Y> устанавливает в этих точках начало системы координат для расфрезеровки.

 

Если не хотите модифицировать подпрограмму L115, то можно сделать "по формулам":

def int _i, _n=8; количество отверстий
def real _r=125; радиус окружности
def real _a=45; угол первого отверстия
for _i = 1 to _n
trans x=_r * cos(_a) y=_r * sin(_a)
L115
_a = _a + 360 / _n
endfor
trans

 

[mannul 344]

@A_1 @Nikomas Господа, зачем такие сложности?

 

MTK1:
AROT RPL=45
ATRANS X125
L115
ATRANS X-125
REPEAT MTK1 P=7
TRANS