多把刀分粗,精加工大螺距梯牙,蝸桿,鋸齒牙等異形螺桿的自動計算對刀誤差的程序

jiangssli

: w, k1 R  O$ `* U%
$ ]- }9 T3 V+ h5 z2 v* OO0022
G65 P28 A1 B2    此處的A是第一把刀的后兩位數(shù)字,例如T1011那么A就是11,，B是第二把刀的后兩位數(shù)字，A和B只能是刀補號
M30
7 Q, e0 d8 [* f: r(***********)
%
" M' u3 x" [8 z  D2 dO0028
#100= #[ 2100 + #1 ]  
  @7 Y1 D" ?' {. A#101= #[ 2100 + #2 ]
2 K/ m4 I! T$ k' O& [) WIF [ [ #1 EQ #0 ] OR [ #2 EQ #0 ] ] GOTO3002
IF [ #1 EQ #2 ] GOTO3001
IF [ #100 EQ #101 ] GOTO99
$ ~% B7 ?; B. w- Y- M) s/ s#100= ABS[ #100 ]
4 d$ _& s6 p& i. G) o$ u' Z0 e#101= ABS[ #101 ]
0 x7 `+ T0 a/ N#110= #[ 2800 + #1 ]  
#111= #[ 2800 + #2 ]
9 f, v. T1 y# r1 p/ t#102= #101 - #100
#102= ABS[ #102 ]
IF [ #101 GT #100 ] THEN #[ #111 ]= #102
0 T+ ?, W8 f/ ]0 x5 }IF [ #101 LT #100 ] THEN #[ #111 ]= - #102
N99 M99
N3001
) x" [* i' H; N  #3000= 1
- {% |$ R/ g: `; ON3002
  #3000= 2 )
7 M/ f" q" [7 a* b: [%
9 h9 b5 R8 ^* b7 z+ W* v   本程序的用法:在你把刀對好以后,把本程序調(diào)出來運行一次,運行本程序的前后你看看刀具磨損補償是不是有變化...
( b' b. j$ _, ]; N5 m& G如果程序有問題或者使用以后有什么效果的話,請及時把信息回饋給我,以便我做出優(yōu)化或者改進.謝謝....
- N8 l7 d4 `1 L# Q1 r5 C$ o下一步我準備做一個自動在加工程序中就計算好兩把刀之間距離誤差的程序!!你們的支持是我進步的動力和關(guān)鍵所在!!!!!
$ B' o1 J; q% v9 f; b) z
+ p6 j  E. j8 |' x

2010dengkai

你那程序太高深了,，不懂的人當然不知道其中的價值,。

jiangssli

哪里高深了,我知道論壇有很多宏高手,也許是他們不像我這樣喜歡顯擺吧!!!!

昊天大帝

我是宏高手~,！~！~你等著吧 到20**年 我絕對是個宏高手

jiangssli

回復 昊天大帝 的帖子
" j6 S; E( B3 T0 x4 S1 l
我相信!!!!!呵呵...祝你成功!

zgsdjinan

沒看懂�,�,！樓主！

jiangssli

順便發(fā)幾張公司的照片 呵呵  

qingzhisong

回復 jiangssli 的帖子
3 e% u. u& G" p! G6 X
9 D) G3 v6 g4 k現(xiàn)在都是什么系列了,，還#2000和#2800,16I已經(jīng)是#12000和#13000了，

jiangssli

回復 qingzhisong 的帖子

1 \/ R  y% V! u3 c; c( |; b數(shù)控車上面用不到這些!

ymf381241440

支持你    我最近也要車削梯形螺紋     我是用調(diào)用子程序的車的       不知道你可以教下我宏程序嗎,？              謝謝 [email protected]