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

羅蓋仙

6 v$ L" h1 ?$ N. B0 ~; ?
共同位置孔(不重複钻)會跳

5 I, C% ~  n8 x& S4 k最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
8 _! N. b+ l; I" y但是你會發現最後一孔重疊孔，不钻它.因為有钻過了

一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
, Z( I8 I. K* V' _5 {再去钻50mmX3孔
我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次
7 O; Z. z4 \; d
, @, v% n! r5 x, G. N3 g# h
O1234
G81 K0(FANUC)L0(三菱)
0 a  r0 d' u* V* n; P$ C$ jG65P1A0.B0.I50.J40.K8.H10.Y10.
* q+ ]) V- ~3 t! y& KG80
4 {9 a- o" l+ N  e9 U9 s1 M
A.B起始點(起角.X分為兩個)
4 o! z0 C+ o* u0 D. fI.J(孔距增量)
$ u% x3 n; f4 k$ z; M' wK.H(孔數)
6 G: q0 i/ d, C3 sY(高度)
1 q( T3 Z/ v6 h3 u5 ]$ z6 M
#13=#6(孔轉移)
: H  E, ~$ P0 D# g#23=#11
( ?' N% G! X+ f0 C  `#31=#1(起點轉移)
#32=#2

8 P/ G1 H6 d% `' A, f3 V1 iIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
5 O+ y: i$ D: K, c8 s* A' z% A" }
# K. j, ?+ O& J5 V- J4 A& }! xN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
#13=#13-1.
; P; S. x/ p( v1 D#31=#1+#4*[#6-#13] (A+I起角更新)
  ^. L3 N3 ^; r0 SIF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
0 c3 m( m5 V) UN15 END1

, Q" L! E% Y, HN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
7 f6 n& D7 D- u' Q& m8 L) U- O# [G90 X#32 Y#25
  B/ m1 w: F# q" P8 k" M#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
' D7 B. h& e2 H; j. p+ @#13=#13-1. (A孔數-1.孔)
( d- x  d. N% \#31=#31+#4 (A距離更新一個I增量)
N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
% F4 u* p" v9 ]! Z7 M1 WM0

3 M( P  u! a, a3 ?1 x適用於
" }4 t) Q" T% |; S9 Y夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
3 ^" F; w3 n' F5 e5 ~1 x' \
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521

: w7 g$ ^1 N* U; y2 Z2 w3 ^
謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

9 L% m+ [  q. b6 {8 rLZ脑子真好使，研究宏程序研究的不错。