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

羅蓋仙

共同位置孔(不重複钻)會跳

4 C: L) \0 c4 Z: v' w6 O最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
( F' a% a# ?1 ]& k- [但是你會發現最後一孔重疊孔，不钻它.因為有钻過了

一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
! q7 ]! Q! x& e5 g9 Q再去钻50mmX3孔
' u) j. c- V" L8 w- j我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次
9 S* j: }) V8 p6 s: F; p

, J1 ^, q; f3 t' U( ]% t6 `5 ZO1234
. d" i. \5 A/ |9 FG81 K0(FANUC)L0(三菱)
% E0 P6 T8 M: i5 f; `  gG65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
7 K5 D% z$ [2 L' ?/ vI.J(孔距增量)
" T' d, g, g& ^K.H(孔數)
' C; Y1 U/ N- P5 ?$ p( AY(高度)
3 [* x7 L2 l7 w* M
- {8 i3 e7 y9 n4 w7 n( R#13=#6(孔轉移)
# [8 z  [* G! y& T#23=#11
& O) _) V$ a7 ]- E( k) a#31=#1(起點轉移)
4 c5 L. Z' Q/ D6 H/ n3 ^' X#32=#2

IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
# b" i8 x/ `7 W% ^1 s& j- d# N
: R! x; T2 B  z4 m% T8 o$ ^N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
& T9 ?& J) X7 s' [' s#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
#23=#23-1. (B孔數-1.孔)
3 W/ t( e( M$ _% s6 t5 j. O& ]#32=#32+#5 (B距離更新一個J增量)
N15 END1

# b( I2 P! ~8 U6 m. }" y, dN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
) g$ v  C; Y$ e' a/ I! d#32=#2+#5*[#11-#23] (B+J起角更新)
/ ?- W( j4 r: N  kIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
3 d8 ~) \. y$ e6 U+ l; MN25 END2
2 k  r( @$ u  N$ SIF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

適用於
8 `) ?0 D) {5 }0 [+ F, u; H4 S6 W. T夾杂兩種角度的圓周孔(在同一半徑上)或
. `4 q* o; Z" `8 a夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
8 C9 d# Q* J: `0 X' g8 N' o3 G3 M
9 ~& u" t$ |1 T+ D) M, v有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521


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

vinney777

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

1426437527

不错，学习一下啊

744439842

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