Stożki

Witam jestem nowy i szukam pomocy ostatnimi czasy mój konstruktor wprowadza na rysunkach otwory stożkowe. Staram od pewnego czasu napisać na to cykl ale niestety nie wychodzi mi to a latac za kazdym razem do programisty po program tez nie wypada. Macie jakis pomysł jak zrobić przykladowo 3 otwory stozkowe obojetne na jakich współrzednych i przykladowo srednica od góry ma być fi 50 a od dolu fi 30 ? (grubość detalu obojetne )

Witam ja to tak zawsze pisze stożek idzie po spirali bez zbednych powrotów do zera po każdym obrocie
dzieki temu cała obróbka idzie o wiele szybciej
0 BEGIN PGM FAZA NA OKREGU PO SPIRALI MM
1 BLK FORM 0.1 Z X-65 Y-65 Z-60
2 BLK FORM 0.2 X+65 Y+65 Z+0
3 TOOL CALL 20 Z S3000
4 L Z+100 R0 FMAX
5 L X+0 Y+0 R0 FMAX M3
6 L Z+0 R0 FMAX
7 CALL LBL 1
8 L Z+100 R0 F MAX M
9 CYCL DEF 7.0 PUNKT BAZOWY
10 CYCL DEF 7.1 X+60
11 CYCL DEF 7.2 Y+0
12 L X+0 R0 F MAX
13 L Z0 R0 F2000
14 CALL LBL 1
15 L Z+100 R0 F MAX M
16 CYCL DEF 7.0 PUNKT BAZOWY
17 CYCL DEF 7.1 X+120
18 CYCL DEF 7.2 Y+0
19 L X+0 R0 F MAX
20 L Z0 R0 F2000
21 CALL LBL 1
22 L Z100 R0 F MAX M30
23 LBL 1
24 FN 0: Q1 =+30 ;GLEBOKOSC STOZKA
25 FN 0: Q2 =-20 ;SREDNICA NA DOLE
26 FN 0: Q10=+60 ;ILOSC POWT.
27 FN 0: Q4 =+50 ;SREDNICA NA GORZE
28 FN 3: Q10 =+Q10 * +2
29 FN 4: Q1 =+Q1 DIV +Q10
30 FN 4: Q2 =+Q2 DIV +Q10
31 FN 4: Q2 =+Q2 DIV +2
10 FN 4: Q4 =+Q4 DIV +2
32 CC X+0 Y+0
33 LP PR+Q4 PA+90 RR FMAX
34 CP IPA+360 DR- RR F1000
35 LBL 2
36 CC X+0 Y-Q2
37 CP IPA+180 IZ-Q1 DR- RR
38 CC X+0 Y+0
39 CP IPA+180 IZ-Q1 DR- RR
40 FN 2: Q10 =+Q10 - +2
41 FN 10: IF +Q10 NE +0 GOTO LBL 2
42 CC X+0 Y+0
43 C IX+0 IY+0 DR- F1000
44 LP PR+0 PA+90 R0 F2000
45 LBL 0
46 END PGM FAZA NA OKREGU PO SPIRALI MM