小魚老師智能鉆孔程序——我的另外一種實現方式

wslaoa

8 k. G5 J+ V' W7 }  u以前讀到小魚老師寫的智能鉆孔程序，就想自己換種思路寫寫，但一直寫不出來，今天讀到 羅蓋仙寫的智能鉆孔程序倒是給我一些啟示，自己就試著寫了一個，不足之處，希望大家不吝賜教。
7 N/ T& y. b0 v# L5 rO;
1 f5 a+ w$ k, `! H；
- U* ]; d8 X7 r, R7 z- p#110=（加工模式）；
;
#11=-234./2.;
#21=-234./2.;
5 `/ E" W. r6 a! |$ X;
#12=-234./2.;
% W2 N( H$ m0 C1 U#22=234./2.;
+ M; L4 z6 z: k8 N+ Z* j) `;
$ o& U- o( G8 g#13=234./2.;
#23=234./2.;
* l7 l) v5 {' y# j;
#14=234./2.;
2 R9 B! R2 J5 A" N! n0 }1 l#24=-234./2.;
$ ?/ J, `) H6 ~7 O;
# `1 T; v8 }3 y) w7 }+ M1 \#31=1.；
0 l$ P1 Q) k, Q# f& L9 O+ X% {#33=4.；
% C. g- ~- _, w5 R8 b# @;
IF[#110EQ#0]TH#3000=1.;
IF[#110LT0]TH#3000=1.;
#100=#110;
IF[#100EQ0]TH#100=1234.;
#111=FI[#100/1000.];
#100=#100-#111*1000.;
+ d0 G) I* e2 _% b) K#112=FI[#100/100.];
#100=#100-#112*100.;
#113=FI[#100/10.];
' i! [9 q* r! i" p& ]: P#100=#100-#113*10.;
#114=FI[#100/1.];
/ Q- p2 d' o% V4 A2 q& w;
G98G81RQZFK0L0(鉆孔模式）;
N100;
#32=1.;
0 e: F/ g/ i" U" |' @' ?N200;
IF[#[#32+110.]GT#31]THEN#3000=1.;
& G. y3 u( c. d$ P4 A1 I( uIF[#[#32+110.]EQ#31]GO300;
#32=#32+1.;
IF[#32LE#33]GO200;
* y( C( w: X: b+ HGO400;
N300;
7 h% A. K4 t1 t, w; E: z. VX#[10.+#31]Y#[20.+#31];
N400;
$ n- i* W% C: Y#31=#31+1.;
IF[#31LE#33]GO100;
G80;
M30;

jiangssli

回復 7# 空氣中的小魚
6 [* g  H( I6 q

    數控中國論壇中有個人用的就是這樣的方法，當初我也看見過，不是老千和飛仙寫的。

baizhaoxue

高手，看著挺復雜的··

淵源灼

高手啊  高手

篤之福良

大家頂啊，這么好的帖子，樓主辛苦了

1365944322

回復 1# wslaoa
8 ]9 L- Y! h) Q% {
5 h0 q' a$ p1 g' t: }' N, q2 i
! _' @( p" I- c2 Y9 a, R2 ^高手呀，謝謝

空氣中的小魚

回復 1# wslaoa
, v( h/ V7 p$ U星期八，好久不見、
我也很久沒來了，現在做軟件系統太多事了，宏程序也很少搞了，不過最近剛為一家公司搞了五點碰書探針測量程序，剛調試好幾天，這個東東以后我也會分享給大家，不過使用了此動能，將造成很多程序為了解決旋轉遺留下種種問題，所以，加工程序需要很多優化措施。有時間也和大家分享下我的實現方法和優化措施。
- D  }8 [! A5 X3 p3 h另外，你這個帖子是個不錯的方法，當時此方法我記得群里不知道是老千還是天外飛仙，不記得是他們哪一位，和你這個有異曲同工之妙。

羅蓋仙

回復 1# wslaoa
1 o2 [. Y( ]1 p9 v9 T6 h: u
0 L3 _, p2 A. U! l! U$ C0 awslaoa先生謝謝，我今天才認真的認識你
1 E7 T6 `0 q. F我還在看懂中

vinney777

謝謝分享，呵呵

lixuejin

高手啊        宏程序