一個通用鉆孔宏，求批評，求教育，求幫助

onelee

2 r8 k7 c4 T! G* l7 e
. L8 u  K; Q' W, C; V#1=(鉆頭倍徑長度)
0 R1 f: o, j( {) A5 B#2=(孔口距離)
#3=(排屑刃長)
#8=(進給速度)
+ X9 H' Z: o4 H. o: L#9=(初始進給速度)
#11=(孔總長)
7 w2 e+ ~/ M- K/ B/ Q2 Q#20=(退刀增量)
" c1 u: i: L8 u$ ?' T; ~#21=(鉆削增量減少)
0 o' S4 J, `' H) h#22=(初始退刀)
#23=(鉆削增量)
3 c4 N1 z, _7 ]#26=(鉆深初始值)
- t, h( F2 L; b0 W4 BG0 z#2
" B+ @- D) Q9 I& E* l9 gWHILE[#26LE#11]DO1
G1 Z-#26 F#9
IF[#26LE#1]GOTO100
" q1 s/ y  ~2 VG0 Z#2
5 H7 o- G0 H" q, [8 FIF[#26EQ#11]GOTO200
2 f+ m6 v4 S2 f; `( O* w  fN100 G0 Z-#22
#9=#8
IF[#26GE#3]TH#23=#21
6 Y) w9 x& v* o#26=#26+#23
- n6 V! Z0 x0 s" P0 j8 \1 ]+ D#22=#26-#20
) d+ y5 i4 P$ N9 o0 C6 f* B0 J( yIF[26GE#11]TH#26=#11
( F, R) t1 g4 l: g. ^END1
8 d- q. H! X, O: V. PN200

風隨意

。。。條件太多了。。。看起來有些反鎖。每次鉆孔深度加目標深度就好了。

lukexc

不錯，大壞蛋的宏程序也不錯！

jxsk

來打醬油了。。。。

菡龍2009

蛋哥的“通用鉆孔宏”。頂。！

HC小丁

jxsk 發表于 2012-8-7 20:14
來打醬油了。。。。

: x" b$ P* @" X3 F* n' z; W7 ~

onelee

172288625 發表于 2012-8-7 16:03
。。。條件太多了。。。看起來有些反鎖。每次鉆孔深度加目標深度就好了。

172288625  IF[#26NE#11]GOTO200是不是要改成IF[#26EQ#11]GOTO200       這個錯誤居然172288625發現了，不愧為是高手呀，在幫我看看還有什么地方不合理

被遺忘的一族

感覺很繁瑣

onelee

請大家說說，怎么才能覺得不繁瑣

foxfly198311

鉆個孔用個g74不就行了