Pomo Parametrizado

Esta es la pieza que se ha desarrollado en clase. Queda al alumno realizar su propia visión de este tirador y generar la programación a 8050. Programación CNC 8025. Dadas las dimensiones D, d y L obtener la programación del tirador:
001 N0010 P20=K38 (DIAMETRO MAYOR) N0020 P24=K19 (diametro menor) N0030 P26=K50 (LONGITUD DE POMO) N0040 P21=P20 F4 K2(Radio Mayor) N0050 P22=F16 P21(F16 cambia el signo. Ahora negativo para las z) N0060 P23=K40 (DIAM. BRUTO) N0065 P100=P23F1K1(Alej en x=diam brut+1) N0070 P25=P24 F4 K2 (radio menor) N0080 P27= P21 F3 P21(R2) N0090 P28= P25 F3 P25(r2) N0100 P29=P27 F2 P28(I2 = R2-r2) N0110 P30=F5 P29(I=(R2-r2) proyec sobre z del radio en el 1er parte a  mec) N0120 P31=P26 F2 P21(L- R. Mayor= long. 1er tramo a mec) N0130 P32=P31 F2 P30(Long. recta del pomo) N0140 P33=F16 P32 (cambio signo para obt z negativa) N0150 P34=P32 F1 P30(long recta pomo+I = Long total - Radio Mayor=P31, este P34 sobra, puedes poner P31) N0160 P35=F16 P34(cambiar el signo para neg.= cota z del centro del arco curvo a partir del tramo recto del pomo) N0170 T3.3 N0180 M6 N0190 G90 G0 G7 G95 G96 F0.2 S125 M3 N0200 G0 X60 Z20 N0210 XP100 Z2 N0220 (G25 N0310 (SALTO CARA ESF. PONER/QUITAR APERTURA PARENT ANTES G25) N0230 G66 P0=P24 P1=K0 P4=K10.5 P5=K0.5 P7=K0.2 P8=K0.1 P9=K0.5 P12=K4 P13=K0250 P14=K0270 N0240 M30 N0250 G1 Z P33 N0260 G93 I0 K P35 N0270 G3 A91 N0300 M30
N0310 G84 P0=K0 P1=K0 P2=P20 P3=P22 P5=K0.5 P7=K0.2 P8=K0.2 P9=K0.5 P18=K0 P19=P22 N0320 G0 X40 Z30 N0330 M30