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

羅蓋仙

% Z/ R, K9 U* q
共同位置孔(不重複鉆)會跳
9 Q6 S" D' g6 m2 H
2 N4 a' V0 ^+ f$ Y8 ~1 d最近小弟我在研究鉆孔，假設在水平上每50mm鉆一孔共鉆4孔
- H, h2 ~$ v- i; b; |1 _；夾雜了每40mm鉆一孔共鉆5孔，
) r+ L! a* a' V& q但是你會發現最後一孔重疊孔，不鉆它.因為有鉆過了
( P1 N- d) Y% X
) Q7 P5 H7 b/ M. l( W7 \  B" D一般人會先鉆50mmX4孔之後再鉆40mmX4孔....或者先鉆40mmX5孔
再去鉆50mmX3孔
我有個怪胎的想法，先到先鉆....有重複它會判斷去鉆下一孔
無論要鉆幾孔兩者相遇幾次不會1孔鉆2次

登錄/注冊后可看大圖

* I) z7 q# z( r) }# O; m6 ZO1234
. D) K8 `# f) ^" R/ i( v/ ?G81 K0(FANUC)L0(三菱)
8 j- r- @2 C% v/ d( n3 rG65P1A0.B0.I50.J40.K8.H10.Y10.
G80

A.B起始點(起角.X分為兩個)
I.J(孔距增量)
* h+ W% x5 H9 \: t7 NK.H(孔數)
& L+ t$ O' C7 x0 eY(高度)

0 U  }; Q% ?4 I#13=#6(孔轉移)
. f1 Z$ I: Y* \+ v0 S$ E#23=#11
#31=#1(起點轉移)
#32=#2
7 _3 K; j* r7 c% [% Y) \
& K( I5 q$ h9 p+ o/ E' D) l' gIF[#1GT#2]GO20(如果A的起點(角)大於B.先做小B)
) O* [* B% Q) r
6 b6 Z6 R6 Y) W" N9 x# dN10 WH[[#13GE1.]AND[#31LE#32]]DO1(A孔數 AND #1小於或等於#2在此層次循環)
! g/ S8 y/ n$ x' [3 _$ _8 q2 zG90 X#31 Y#25
2 ^6 J" y$ `/ P7 Y1 R# P9 _/ N#13=#13-1.
#31=#1+#4*[#6-#13] (A+I起角更新)
IF[#32NE#31-#4]GO15 (如果B等下要鉆的點.與當前A鉆的同點.B演算下面.A判斷是否繼續鉆)
#23=#23-1. (B孔數-1.孔)
#32=#32+#5 (B距離更新一個J增量)
N15 END1
( g, N0 \( w& d) K& r6 c$ H! W' H
, D# |( s; l0 W' {* F, o+ aN20 WH[[#23GE1.]AND[#32LE#31]]DO2(B孔數 AND #2小於或等於#1在此層次循環)
/ R% l6 h5 C4 T8 w" }" v. a* p0 e8 PG90 X#32 Y#25
" r% j! I: i! E1 P  D#23=#23-1.
#32=#2+#5*[#11-#23] (B+J起角更新)
IF[#31NE#32-#5]GO25 (如果A等下要鉆的點.與當前B鉆的同點.A演算下面.B判斷是否繼續鉆)
#13=#13-1. (A孔數-1.孔)
#31=#31+#4 (A距離更新一個I增量)
6 f( e* V( A5 J$ v2 U' KN25 END2
IF[#13GE1.]GO10(A孔數未到跳回去N10)
1 V- R. C! D1 j5 }. d* UIF[#23GE1.]GO20(B孔數未到跳回去N20)
M0

/ f" X' W% ^+ d+ F適用於
夾雜兩種角度的圓周孔(在同一半徑上)或
夾雜兩種孔距的直排孔(在同一水平線上)皆可參考

" o7 T" g5 D, U2 L4 i9 E有沒有懂，懂之後有更好的方式，請您指點

xinsuixue521

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

羅蓋仙

回復 2# xinsuixue521
5 U( P& G2 v8 E# S5 O7 C
( ^5 J6 d! q6 T$ \5 V! ~9 M/ y/ W3 \0 E
, U8 i8 Y4 C0 C( v# K謝謝啦！小弟不敢當...不敢當

vinney777

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

1426437527

不錯，學習一下啊

744439842

  }$ |' Q7 s7 M# iLZ腦子真好使，研究宏程序研究的不錯。