锥面上的变距螺纹，求大侠们指正

小姐，离②远点

      角度30度，小径为30长度为40的圆锥        
   T0101
   M03 S400
; {0 B- N3 k) h0 Z/ q$ `2 q   G0 X60 Z5
0 Y$ @' ]# h9 @5 s1 R  K1 h   #1=15
* v/ q# s# b6 G( q0 E. z   #4=0
- [" e" C9 q' R& Q* o   #5=0
$ n& ?5 X8 q3 n9 W   N2 #2=2*tan[#1]*#4
9 j. Z$ G+ B2 E$ W( a   G32 X[27.32+#2] Z[-#4+#5] F[#5+5]
* z( H+ l1 X/ h/ H* a% ]  _+ W- `   #5=#5+1
$ e0 h& B+ ^0 s+ a/ l   #4=#4-5
0 ]* w$ O* g8 Z7 C! P# \! |   IF[#4 LE 40] GOTO2
   G0  X100  Z100
   M30

数控之巅

{:soso_e102:}   我来帮你踩踩

lukexc

顶起！{:soso_e113:}现在的机床貌似有专门的指令吧！
不过自己编也还是挺好的！