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

羅蓋仙

4 b; C  U: f" H: P
+ G$ D3 M2 ^! c+ J共同位置孔(不重複钻)會跳

9 C" c9 r! j+ S) j& K3 e最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
( x* H4 S8 Z1 |  y；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了

一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
" C5 O1 u# s* r4 t再去钻50mmX3孔
% z9 x' m$ @! n. k我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次
1 C: L4 F6 h6 V/ R3 o3 z) l
: ~' F* s0 g$ I4 ~' d
& a4 G2 ~, ]* r4 M0 ^+ IO1234
6 @2 [$ t2 m0 t3 Q& a# BG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
6 k! I3 B5 k1 v  R: ^/ O7 lG80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
K.H(孔數)
& o! g0 u6 |# ^. I9 RY(高度)
: V6 ]) z$ q6 H% N1 S+ g
#13=#6(孔轉移)
! V+ Q1 i- K0 j, e3 q7 |8 m#23=#11
#31=#1(起點轉移)
#32=#2

8 p5 k) M, ^# Q. ]% A$ I: r" I; MIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

5 e0 z, e- L' n' w5 }: ZN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
2 y( X' k4 S9 g, d; `2 ^! t6 z5 GG90 X#31 Y#25
3 e* n  Q7 i7 I4 ]1 Q  I* u, t( X#13=#13-1.
* i4 x- y+ l, d. x- G( M#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
/ b# d8 z/ _3 `, T" p#32=#32+#5 (B距離更新一個J增量)
# Z  M8 M: |: s  A2 XN15 END1
5 y; U( T1 x% J
: \6 s8 h$ X9 D, }7 v& _. gN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
; O$ n/ v" E2 N  _; h: g/ uIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
! G9 ?4 R0 d% b( y$ y#13=#13-1. (A孔數-1.孔)
$ M8 x! I7 {9 V+ P) v& F0 U9 A1 K, E7 e#31=#31+#4 (A距離更新一個I增量)
4 Y% ~# D. C* P; {* Y3 lN25 END2
# j: l8 K; I$ W1 mIF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

( H9 L+ s* P6 ~) h( r4 z適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
7 I" r; i# v  ]  A" A8 {+ a% w
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
: m( ~( E) J* N$ X* C, [. H3 y
/ Y$ D8 @7 {) [: M# S. u( i
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

) p* i- X0 L: c* f9 F5 `; }& ~4 LLZ脑子真好使，研究宏程序研究的不错。