自己寫了一個梯形外螺紋的宏程序，請大俠們指教

lbgwll

M03 S400 T0101
#1=(刀尖寬）        
#2=（螺紋大徑）
#3=（螺紋小徑)
#4=（進刀量）
#5=（螺紋底寬）
: C0 j- h) p+ t0 m8 V; j. I#6=（進刀點）
#7=#2-#3
#11=（螺紋終點）
) r& U1 d* A/ T4 t! Z, O  u#12=（螺距）
#13=（螺紋角度的一半）
G0X[#2+10]
Z#6
WHILE[#7GT0]DO1
& a) b: T4 c: ?% O" h: M$ \G0X[#2+2]
9 D  L) d9 `, l' CZ#6
X[#7+#3]
- ^$ s& Y) m# e+ p: XG32Z#11F#12
G0X[#2+2]
4 g5 @( f, e2 A; OZ#6
: |+ i- w. {0 d8 s4 H: T4 v#9=#6
8 N# b2 H. C* h9 U/ a1 X: L3 V#8=[#7/2*TAN#13*2+#5]
#10=#8
( Z" @2 [7 v) ~' _. I" w#10=#10-#1
WHILE[#10GT#1]DO2
8 O4 h7 {4 g$ A#9=#9+0.9#1
: `8 G/ Q2 o/ O' Y3 F- f# GG0X[#2+2]
Z#9
$ n2 Y8 |5 B$ d. p" hX[#7+#3]
4 p3 R+ S8 G" z  I! {( ]G32Z#11F#12
G0X[#2+2]
Z#9
#10=#10-0.9#1
) }$ \' N- M7 c+ j1 O3 C0 H! ^END2
G0Z[#8-#1+#6]
1 i+ d5 }+ x3 TX[#3+#7]
7 f* n2 }1 l3 ^; C" l& o5 @G32Z#11F#12
& c9 c, o3 Y, P+ E8 g#7=#7-#4
#6=[#4/2*TAN#13+#6]
END1
# U1 L9 ?. C2 t6 |6 }8 X& RG0X[#2+50]
  R0 ~" ?. `; \# mZ100
) I& C/ ]5 o9 S: s( wM30

duanyz

頂下樓主，菜鳥看不懂啊，再注釋一下就好了！
, B  _) g! N, Z! c2 i# qdo1 do2是在哪里呢？

lbgwll

duanyz 發(fā)表于 2014-9-20 21:04
* p, }: P% q1 ]3 O  ~: B2 h頂下樓主，菜鳥看不懂啊，再注釋一下就好了！
do1 do2是在哪里呢？

& m/ @1 H0 f" G' I) P+ Cdo1和do2不是跳轉(zhuǎn),你說的可能是GOTO.

duanyz

lbgwll 發(fā)表于 2014-9-21 23:51
& ]* M" W1 y& ]- K  @# I# ?do1和do2不是跳轉(zhuǎn),你說的可能是GOTO.

2 k6 W5 N, m( j, S- G那o1、o2是子程序嗎？

0 z6 L% v; S8 b% R! K9 c你也給點注釋?。∧憧创蠹铱戳硕紱]什么熱情。
8 }$ W6 j& D8 j8 a
" K4 o% J2 r  k& o" a4 i' o. S) c6 w

lbgwll

duanyz 發(fā)表于 2014-9-22 14:13
" C0 Q/ o0 g4 L* G' t. a7 v那o1、o2是子程序嗎？

你也給點注釋??！你看大家看了都沒什么熱情。

1 h7 r2 @( n- s你是做數(shù)控的嗎

  s$ U+ N* z: V8 t% @; \4 I6 @6 t

lbgwll

lbgwll 發(fā)表于 2014-9-22 21:32
9 M. d# X0 k( s你是做數(shù)控的嗎

只是隨便問一下，
4 V  u* [% l9 G, ^如果真的對你有用的話可以幫你解釋一下

合肥2003

lbgwll 發(fā)表于 2014-9-23 19:16
, u3 j: D  v& A只是隨便問一下，
如果真的對你有用的話可以幫你解釋一下

, @' t9 n5 r" h9 z# X程序好壞試了才知道只有掌握要領(lǐng)才會進步

nchyl520

你上機試過嗎？好像有點小問題也。低徑最后一刀沒有吧，x分刀也有點問題。控制方式不太好。

nchyl520

有有需要我可以發(fā)一個給你

duanyz

nchyl520 發(fā)表于 2014-9-27 05:28
有有需要我可以發(fā)一個給你

9 y$ k: B1 Q" ^, S( }7 y:兄弟直接貼出來吧，讓我們也學習下