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

羅蓋仙

/ p, p" n* n) t9 c
( C+ J5 `& G' c0 S5 {$ H7 W" P共同位置孔(不重複钻)會跳

7 F( v' P5 O9 W* H最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
( _8 P: K$ d6 W% g# ~；夾杂了每40mm钻一孔共钻5孔，
8 i; b% o( \% X- Q但是你會發現最後一孔重疊孔，不钻它.因為有钻過了

一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
) l/ X7 T+ B3 Y再去钻50mmX3孔
- f# F- [6 F0 ]9 e# [" e我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
無論要钻幾孔兩者相遇幾次不會1孔钻2次

! O) V) g- [+ I& u# r. y
' m! g* A. {, R! p# x2 v) qO1234
( ^5 Q* {- r' j  [  K8 t) C% L- ~G81 K0(FANUC)L0(三菱)
( n0 K4 p9 ^4 s  V: u/ sG65P1A0.B0.I50.J40.K8.H10.Y10.
# i8 Q$ r, [+ d  mG80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
) r, X/ A1 m  ~6 q1 QK.H(孔數)
  X8 g; X) H) V; {Y(高度)

5 F' Q! |& L, i#13=#6(孔轉移)
#23=#11
- V# I- ]# Y% `- I. }9 a% ]# T#31=#1(起點轉移)
#32=#2
  X4 V; ?! h$ ~" {: r. A- ]
IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)

N10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
/ A0 [* l3 ~; {; D3 c8 T#13=#13-1.
  L2 R2 i. W  O: s$ S3 b& O#31=#1+#4*[#6-#13] (A+I起角更新)
3 Q. F* I+ o3 o6 LIF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
8 m, [9 H1 z( M  w! Z#23=#23-1. (B孔數-1.孔)
' f) P( x" z! B+ k#32=#32+#5 (B距離更新一個J增量)
) _. N' ?+ l) T) hN15 END1
! j0 N2 A5 _0 g7 k
N20 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起角更新)
" p+ R; ~* E# F, [IF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
/ b% `, ]% ^$ P+ [4 v5 F$ wN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
( q5 N7 a! }' T) q; H  WIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

適用於
6 i% x- f  U6 _8 ^夾杂兩種角度的圓周孔(在同一半徑上)或
夾杂兩種孔距的直排孔(在同一水平線上)皆可參考
2 w  n: z7 ]3 z+ A- s. E
有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521
- S% u0 j, Q/ O% G8 K0 z
0 d5 ]! A: N8 f; l
/ a# g, H$ _! k謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

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