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

羅蓋仙

) ?0 Z  z& j# t. q4 N
共同位置孔(不重複鉆)會跳

  ?. Y; k* x* Q% @8 f最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
) u: ~' r9 [  D) T；夾雜了每40mm鉆一孔共鉆5孔，
3 y6 r% q- ?9 t/ Y; h3 |但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
9 v2 F8 d' N6 r5 h
. I0 S9 I0 H2 ?一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
, s" N! c" B0 }) Q' m+ K' S; z再去鉆50mmX3孔
3 ^  L2 q9 u" W6 d5 V! G8 n& P我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

- x. i* F, K% H/ b3 b1 {$ \
O1234
G81 K0(FANUC)L0(三菱)
G65P1A0.B0.I50.J40.K8.H10.Y10.
G80
8 s; x0 B0 y/ g- f' |7 z
! w$ E8 c: J; C8 gA.B起始點(起角.X分為兩個)
/ s! g1 Y* ?6 l- cI.J(孔距增量)
0 a$ p$ w% A# V. _' ^) a2 VK.H(孔數)
Y(高度)

- Y$ d$ F' P: t- R4 K& ^+ B#13=#6(孔轉移)
8 y  L. }) q: l6 n#23=#11
#31=#1(起點轉移)
+ k8 \' w% O! R" h#32=#2

) ]$ Z3 I  r# H5 \' RIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
4 ~" {5 L% S1 U* W" L
% ~3 c% W9 o3 VN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
2 \# \4 N  H5 n" F4 [4 kG90 X#31 Y#25
#13=#13-1.
" F: \, p6 @" Y0 R( n9 }( q3 i6 W#31=#1+#4*[#6-#13] (A+I起角更新)
5 O1 N1 z6 K, c' W- IIF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
) F% Z: q4 {2 b/ u+ n#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
) @8 j% h9 p7 d3 Z1 l- Y7 dN15 END1
! y# U, o$ _' _- Q% @: w, _/ e. m' I
8 Y1 r1 E& h" M. Z% _N20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
G90 X#32 Y#25
8 @, d/ b. j/ _#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
, n4 i* E) u' D7 b( c# cIF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
: J% T  J5 j6 b; z#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
! E) y0 b4 H0 mN25 END2
4 u7 A( l& i+ h1 p5 n0 \IF[#13GE1.]GO10(A孔數未到跳回去N10)
IF[#23GE1.]GO20(B孔數未到跳回去N20)
6 L! S8 a5 s4 Q% L+ }5 aM0
* W0 L( p, E$ u
適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考

. b* r" f7 F/ ]0 @. ~; F0 Y有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521
% e3 v0 z8 ^  s8 J1 d. r
# V  V0 n- U$ ]! y5 O% I+ c
, \; `. G" M& U% z( `謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不錯，學習一下啊

744439842

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