Buscando el programa macro para fresado elíptico en el sistema Siemens 840d...gracias

DEF INT AA

G54 G90 G0 X90 Y40

S600 M3

Z5

G1 Z-2 F200

G41 D1 G1 X50

Y0

PARA AA=1 A 360

G1 X=50*COS(AA) Y =-30*SIN(AA)

ENDFOR

Y-40

G40 X90

G0 Z100 M5

M30