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

羅蓋仙

* z! p6 B' O% t, Q5 h  e( W! i
共同位置孔(不重複钻)會跳
1 w; S+ z" ]4 F3 L, W8 M  M
最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
+ T, t% H7 T  n3 T( L& i: n；夾杂了每40mm钻一孔共钻5孔，
: i! P( g# g& p0 V3 J: `, k但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
( _- l$ ~# q6 Y: h1 |
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
' x/ f/ w' s5 |無論要钻幾孔兩者相遇幾次不會1孔钻2次


O1234
G81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
6 [8 x. @  t' T% f# D. X' r. M# }K.H(孔數)
Y(高度)
: \4 |! k( c/ p1 x
1 @* {. i9 Y! R& }; O) v' h#13=#6(孔轉移)
#23=#11
5 l) ~& L% A- I  D5 U! [7 \#31=#1(起點轉移)
6 i* m) A0 X6 j, x, ^- L/ r9 P#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
( z! p- G; f6 @7 P+ {' @G90 X#31 Y#25
3 y; W$ N. P% _; M- f#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
7 x. S; A9 B5 |#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
4 A6 N+ h: z0 k; z7 Z2 L% F% t+ a' DN15 END1

  v* j6 k+ q7 M4 k% O6 KN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
2 N/ B) B  F' F0 |0 x; F7 s, hG90 X#32 Y#25
1 C9 v6 R: j# S% _3 L3 `; S* M#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
+ b0 _$ x8 u  f2 D- BIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
+ N+ g3 r$ i( Q' D$ y#31=#31+#4 (A距離更新一個I增量)
0 k0 F$ F5 D8 b" r" GN25 END2
  v" p& _5 `; I. B" WIF[#13GE1.]GO10(A孔數未到跳回去N10)
1 c8 B# R* }3 g& W/ DIF[#23GE1.]GO20(B孔數未到跳回去N20)
" K0 O( y# S5 s. ^0 i( ~M0
( ^5 i0 X5 f$ b0 q
適用於
% s3 {+ x& b  x& w! A# V夾杂兩種角度的圓周孔(在同一半徑上)或
/ Q' x) ?: N& Q6 Y' k6 l1 b- R夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
! L/ D3 j* C# q- A9 {
, Q0 O& k- D$ C( V% L( B* k, H+ n有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

LZ脑子真好使，研究宏程序研究的不错。

羅蓋仙

回复 2# xinsuixue521
* L( l3 l1 V) ]. v* D
1 j: t* H6 L. Q& H" Q9 n. i
謝謝啦！小弟不敢當...不敢當

vinney777

不错，学习，不过此种想法很难在软件上自动实现

1426437527

不错，学习一下啊

744439842

LZ脑子真好使，研究宏程序研究的不错。