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

羅蓋仙

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

最近小弟我在研究钻孔，假設在水平上每50mm钻一孔共钻4孔
；夾杂了每40mm钻一孔共钻5孔，
但是你會發現最後一孔重疊孔，不钻它.因為有钻過了
0 k( Z/ d, R8 V+ z5 Z& b
一般人會先钻50mmX4孔之後再钻40mmX4孔....或者先钻40mmX5孔
再去钻50mmX3孔
! C; k( q/ J' M2 R我有個怪胎的想法，先到先钻....有重複它會判斷去钻下一孔
0 S0 M# f+ a  o$ V無論要钻幾孔兩者相遇幾次不會1孔钻2次
" Z5 p; \% t0 t  N/ ?8 M. [
' ?5 f) B1 t# e' a- o2 {( ?9 ^' Y8 s
! t3 ~4 _: [+ w6 r( U7 _O1234
; a4 R1 F3 ]6 w" T; [! j# }G81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
+ Z5 G! L. p  G9 ]* n- h# a  z) jG80

A.B起始點(起角.X分為兩個)
) z& k' R  w- d4 g) g  m6 f0 HI.J(孔距增量)
& m+ @: @3 e$ l% Y6 ]2 GK.H(孔數)
Y(高度)

+ F; D# i, d; L. X5 [2 H0 Y#13=#6(孔轉移)
  ~% a4 t9 r7 a5 c  Q5 i' O4 \, V#23=#11
) W6 o  |4 k0 y- N* h. W#31=#1(起點轉移)
' U/ e. ~! y3 C# j  s" ~8 S! b#32=#2

# p2 H5 V) m  m7 {, {IF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
* @2 E% j) u( X( ~6 y0 r5 s
" E7 m' J" ^: U3 E* f8 O& [6 WN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
G90 X#31 Y#25
#13=#13-1.
" t7 I6 u- G; d#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要钻的點.與當前A钻的同點.B演算下面.A判斷是否繼續钻)
  O& p, E8 i6 E6 @( X#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1
) S, S( p. X* m; u$ Z& E
N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
#23=#23-1.
1 e0 Y. z: x: h, [; w#32=#2+#5*[#11-#23] (B+J起角更新)
8 h! ^+ w+ p5 ~! H7 g4 t' JIF[#31NE#32-#5]GO25 (如果A等下要钻的點.與當前B钻的同點.A演算下面.B判斷是否繼續钻)
* T6 W0 \$ t9 w5 o6 f2 U#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
# X& `4 P' q7 Y$ X; E' h8 ~N25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
* g. Q) s& d5 K* vIF[#23GE1.]GO20(B孔數未到跳回去N20)
, @% a. W+ l) l7 w" _M0
8 g$ a, B2 K6 m. N# Q2 A; H
# r- t# {3 i( r: H適用於
夾杂兩種角度的圓周孔(在同一半徑上)或
& S, C% o- ?, {$ M+ w  ]: Z夾杂兩種孔距的直排孔(在同一水平線上)皆可參考

有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回复 2# xinsuixue521

1 \# Y& V2 O8 y7 h; K, a
' J+ D  [$ q) y' J- i& A! `/ U0 |6 [! d謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不错，学习一下啊

744439842

3 ]2 B3 P( E2 ]' iLZ脑子真好使，研究宏程序研究的不错。