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

羅蓋仙

( ^/ s: }# b. g! V. l! n* y8 ^/ ^0 Y
# Q% I0 s  |; x& f* K. a5 q* }共同位置孔(不重複钻)會跳

: A$ _; D' ^; G# V6 V- |最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
9 U. L* Y+ N' N6 I6 Z
, @4 \  L/ V, q; x一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
! W) h" J. w; @# i' [再去钻50mmX3孔
我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
# P4 h) ?1 I$ H' ~  s, P( F0 Q; K1 [無論要钻幾孔兩者相遇幾次不會1孔钻2次
: |4 n8 `& e! J, [  W& V

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

A.B起始點(起角.X分為兩個)
! D- ?  p2 ~) GI.J(孔距增量)
2 z% q; n6 Y* _  G$ [# `5 x  `K.H(孔數)
6 q- `" m+ @) I  GY(高度)

# q* ?2 V1 X$ T7 Q* C; O$ H#13=#6(孔轉移)
' z: N; y7 v& o$ V" E6 [#23=#11
#31=#1(起點轉移)
#32=#2

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

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
$ s+ f" C# g3 r: K4 K4 M9 _#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
% b' t) f$ h: R; ?5 w$ J#32=#32+#5 (B距離更新一個J增量)
N15 END1
! h; X, i' A* G" ?
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
+ w% U4 t+ Q/ k- u8 u#32=#2+#5*[#11-#23] (B+J起角更新)
; o* c1 h: o! D; ~IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
: m; a0 M9 b, m( G5 K( zN25 END2
$ I7 [8 a) c8 y" RIF[#13GE1.]GO10(A孔數未到跳回去N10)
! Q* X, A- U0 lIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

% g* \6 V2 e* B7 B7 k1 y適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
- `, i  c3 ^' E& P夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
& ?, s1 E$ R3 B# l8 C- Q
. w+ a& M" \  W有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
2 R6 b2 W' ?6 m1 c" Y2 d* r$ J* \; w
$ ^8 O# p+ r' S4 E) \
5 U7 [  L0 a+ S' _/ ^/ t9 Q4 M& m謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

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