夾雜兩種孔，當共同位置時，不會重複鉆會跳

羅蓋仙

3 k3 h0 f$ Q! f2 l+ w
% V9 {6 G: R  c" x8 Z共同位置孔(不重複鉆)會跳
& G* j3 R2 x# b. S: T9 o
% L0 v: |- V6 @2 u+ T5 K1 T2 {最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
；夾雜了每40mm鉆一孔共鉆5孔，
1 |4 }: |. m3 n: ~9 r% @" l但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
+ y0 Z0 u: g  P1 f
一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

5 ?$ n, b: ~( r( R/ [3 D; T  T  r9 U3 GO1234
3 d/ E! y8 H7 J* j+ ^, s  Y3 V7 \; m. vG81 K0(FANUC)L0(三菱)
% ^- [) o) z8 l3 U2 i  {G65P1A0.B0.I50.J40.K8.H10.Y10.
7 ?7 A% I$ U" x) g/ J) nG80

5 `2 `" A3 v/ k) L; j) zA.B起始點(起角.X分為兩個)
$ W) e5 N( j' k7 @0 AI.J(孔距增量)
$ ]1 a: i% @% ]9 Z( N4 ]K.H(孔數)
4 n8 _2 G( y- c0 C8 N/ VY(高度)

  s" n; }$ l, _2 O#13=#6(孔轉移)
#23=#11
/ w+ A, i+ y6 W% x& H; e#31=#1(起點轉移)
#32=#2

0 `3 U  I' F2 E: V0 iIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
8 G7 R7 d4 W7 z6 S% A0 p' o
N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
, V$ I1 `( T. G. [7 l#13=#13-1.
. p" Y- X$ v& u1 E# h, ?- @#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
; j6 `/ L) f: A( [+ A$ c  l5 A1 y#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1
- P5 D! ^& Q3 @" i$ {$ n7 {
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
' }" Y; |. A% i' \G90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
0 W; \! \: B( Y4 G$ ?IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
/ A4 W4 B$ G$ l% s% Z( y#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
5 v1 k/ t& M& |4 [+ ]  l0 Y2 p4 BIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0
& G. g5 x# l+ g6 B3 i4 K0 r* I
  P% V, K0 X$ T8 g( \1 f8 ?適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
+ W7 p$ B7 Z+ |$ `: }6 F夾雜兩種孔距的直排孔(在同一水平線上)皆可參考
& d9 X: p6 n" t4 A2 ?3 A
  A, ^! Y- [+ A/ \有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

LZ腦子真好使，研究宏程序研究的不錯。

羅蓋仙

回復 2# xinsuixue521


謝謝啦！小弟不敢當...不敢當

vinney777

不錯，學習，不過此種想法很難在軟件上自動實現

1426437527

不錯，學習一下啊

744439842

LZ腦子真好使，研究宏程序研究的不錯。