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

羅蓋仙

共同位置孔(不重複鉆)會跳
7 R$ n, p5 M- j, F: D# {" j
- d. h2 i7 b/ t5 g5 {最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
3 M) L/ V0 U7 M, _6 G- R；夾雜了每40mm鉆一孔共鉆5孔，
但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了

一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
- y. h3 ^9 ~0 g4 ?1 W我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

$ _- P$ Y3 P5 P: kO1234
2 k% k$ z  ?+ F2 H' O7 iG81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
! [" P1 r; i2 a( g" z, }! b7 SG80
+ c  _) s0 `0 p
A.B起始點(起角.X分為兩個)
" g. e& y5 s& a/ HI.J(孔距增量)
9 m$ G7 ^% @7 G9 U+ G4 b  iK.H(孔數)
8 H  w! u! n; g$ W1 l0 ~& d; eY(高度)

$ r6 R8 K) c! j% [* |7 K#13=#6(孔轉移)
#23=#11
5 x4 D/ |' e9 y* H! W$ ?. R% y#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
#13=#13-1.
8 f7 |4 |$ ?  y. j, T5 ~#31=#1+#4*[#6-#13] (A+I起角更新)
7 B% [+ O% J( B$ sIF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
#23=#23-1. (B孔數-1.孔)
- u& E. u2 s# }3 w  A$ W' g5 R5 [#32=#32+#5 (B距離更新一個J增量)
( ?# u5 {, ~* I% t, q4 x1 y* BN15 END1
/ e& Q9 i! h/ T- G
) L# K% y- u' [) d  N# [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起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
#13=#13-1. (A孔數-1.孔)
7 m5 v' T2 F1 }#31=#31+#4 (A距離更新一個I增量)
9 v& Y& ?5 h# F9 F, g0 D" j: lN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
6 ]$ a) R1 S. G" j: S. g+ C1 K* H: V. DIF[#23GE1.]GO20(B孔數未到跳回去N20)
( R; H9 }) N5 C' k/ mM0

& z: \+ L/ Z4 u3 i適用於
% W! T3 u( z5 V9 D8 G夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考

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

xinsuixue521

LZ腦子真好使，研究宏程序研究的不錯。

羅蓋仙

回復 2# xinsuixue521
( H3 ^+ h$ c" M& f
( ~) t# E! ^' o$ n
" Z' k7 s: P9 b4 x8 Y6 v謝謝啦！小弟不敢當...不敢當

vinney777

不錯，學習，不過此種想法很難在軟件上自動實現

1426437527

不錯，學習一下啊

744439842

* q/ m( `5 D8 ?% m; DLZ腦子真好使，研究宏程序研究的不錯。