Konturbeispiel
Programmierbeispiel
Profilrohrtransformation
(* Profilrohrtransformation *)
%L SUB_CONT
N[10+P30] G00 G90 X0 Z100 U0
N[20+P30] G162
P1=5 (* Radius Innenkreis *)
P2=25 (* Radius Aussenkreis *)
P3=22.5
P4=2*P3
$FOR P10=0, 8 , 1
P6=P10*P4
P7=SIN[P6]
P8=COS[P6]
N[40+P10] G01 X[P2*P8] U[P2*P7] F5000
P20=SIN[P3 + P6]
P21=COS[P3 + P6]
N[50+P10] G01 X[P1*P21] U[P1*P20] F5000
$ENDFOR
M29
%t_tube_prof.nc
N10 #SLOPE [TYPE=STEP]
N20 G00 X0 Y0 Z100 U0
N70 #CYL[EDGES=4 ROUNDING=5 LENGTH1=20 LENGTH2=20]
(* Profilumfang ca. 111.41592653589793 mm *)
P30=2000
N35 G92 X30 U30
N40 LL SUB_CONT
N45 G92 X-30 U30
N50 LL SUB_CONT
N60 G92 X30 U-[-30]
N70 LL SUB_CONT
N80 G92 X-30 U-[-30]
N90 LL SUB_CONT
N100 G92 X0 U0
N110 #CYL OFF
M30
