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