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

羅蓋仙

/ l, {! d! \1 j6 I9 e/ {共同位置孔(不重複钻)會跳
8 E, V! _  N" |( z* d; h) V
最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
% p6 E: Z$ K5 p1 r
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
4 Z; X& G# e2 K( K; d: a我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次
; L- U' I7 U5 Q1 Z2 R2 r4 T+ y

6 E$ S. w+ e3 t1 \: B& Y; F9 I" nO1234
; u  P( O9 F% |; bG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
3 `* ~+ P" n. Q4 G0 R4 O; ZG80

# i- }9 @( A& q9 C7 iA.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
  a8 x, B# {! yY(高度)
. C/ k5 h: v# m+ o* ]/ _" F
1 j7 \% r8 t1 h' K#13=#6(孔轉移)
#23=#11
#31=#1(起點轉移)
#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
$ U5 c/ I" Z6 y
* K: Q. W9 A( @8 h; HN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
, l4 M/ u; v! B5 P! ~6 f1 t  rG90 X#31 Y#25
+ v$ `/ r4 w& j3 c#13=#13-1.
  u/ j6 v! C/ U9 u8 I#31=#1+#4*[#6-#13] (A+I起角更新)
( p# j- U* a6 x' H, K4 ?IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
9 J1 |0 P$ Q6 I6 g. ~2 g/ j#23=#23-1. (B孔數-1.孔)
; s) r- z) Q/ |; B9 P5 @#32=#32+#5 (B距離更新一個J增量)
  s3 ]; Y  j2 K) L) {* w/ ^5 y- ZN15 END1
& z! g! V9 d8 ~" O/ p1 {
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
* ~3 f7 H; P! ^" G#23=#23-1.
" o; I; W# L+ M' n) d#32=#2+#5*[#11-#23] (B+J起角更新)
/ z0 @; h% Q- H! mIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
6 U. o$ e" [5 V) Q#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
* G% v5 o; i4 M7 e% ^IF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
0 w4 t* ^! g* ?. _1 t
" ?* n! h6 g* \) R4 i0 M+ g有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521


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

vinney777

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

1426437527

不错，学习一下啊

744439842

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