TpaCAD Параметрическое программирование отверстий.

[@ВладимирБровин-б1б]

Tpa программа хорошая если знать параметрическое программирование, а так не вижу смысла. Даже визуализации нет

[@adir_bor]

На всякий случай
Привязка центр.
Фанук/смк.
% (РАСФРЕЗЕРОВКА ОТВЕРСТИЙ 12)
G17G21G40G49 G54G80G90G94 G69
G52X0Y0Z0
#24=186.(МЕЖЦЕНТРОВОЙ ДИАМЕТР)
#25=12.(КОЛ-ВO ОТВЕРСТИЙ)
#26=[360./#25]
#27=[180./#25]
#19=2400(ОБОРОТЫ В МИН)
#29=[#24/2]
#30=0.
#20=1(НОМЕР ИНСТРУМЕНТА);
T#20M6
S#19M03 (M08 )
G43 H#20 Z0
G0 X0 Y0
WHILE [#27LE360.] DO1
G68 X0 Y0 R[#27+#30]
G0 X[#24/2] Y0
G43 H#20 Z5.
#1=25 (ДИАМЕТР РАЗФРЕЗ)
#2=12.(ДИАМЕТР ФРЕЗЫ)
#3=12.(ДИАМЕТР ОТВЕРСТИЯ)
#4=6(БОКОВОЕ ВРЕЗАНИЕ)
#5=[#3/2-#2/2](НАЧАЛЬНОЕ ПОЛОЖЕНИЕ ФРЕЗЫ)
#6=[#5+#1/2-#3/2](КОНЕЧНОЕ ПОЛОЖЕНИЕ ФРЕЗЫ)
#9=2400(РАБОЧАЯ ПОДАЧА MM/MIN)
#21=0.8(ГЛУБИНА ПРОХОДА)
#22=21.(ГЛУБИНА ФРЕЗ-НИЯ)
#23=0.8(НАЧ ГЛУБИНА)
WHILE[#23LE#22]DO2
G1 Z-#23 F#9
#8=#4
#7=-[#5+#5+#8/2]/2
IF[#5EQ0]GOTO1
G2Y#5J[#5/2]F#9
N1#5=-[#5+#8/2]
WHILE[#5LE#6]DO3
G2Y#5J#7
#8=[#8]*[-1]
#11=#5
#5=[#5+#8/2]*[-1]
#7=[#7+#8/2]*[-1]
IF[#5LE[-#6]]THEN #5=[-#6]
IF[#5EQ[-#6]]THEN #7=[[-#11+#5]/2]
END3
#12=[-#7-#8/4]
IF[#11LE#6]THEN#12=#6
G2Y#6J#12
G2Y#6J-#6
G2Y0J-[#6/2]
#5=[#3/2-#2/2]
#23=[#23+#21]
END2
G0Z5.
#27=[#27+#26]
END1
G0Z5.
G69
M05
M09
G91G28Z0.
G28Y0.
G90
M30
%