機(jī)械社區(qū)

標(biāo)題: 改寫的jiangssli大俠的梯牙程序………… [打印本頁]
作者: 凌晨一點(diǎn)    時(shí)間: 2012-1-25 01:02
標(biāo)題: 改寫的jiangssli大俠的梯牙程序…………
本帖最后由 凌晨一點(diǎn) 于 2012-1-25 01:02 編輯 ! e) [& k* x5 K- b2 }* _# `

0 y* A7 Y# \$ t- t& F辭舊迎新，已經(jīng)在壇子里潛水一年。平常沒條件上網(wǎng)。過年回家，發(fā)此程序用以回報(bào)各位大俠的資料分享。% ^) S4 P6 L0 [& |
回想這一年來，從一普車操作工到學(xué)會用宏程序分層加工大螺距梯牙的日日夜夜，倍感心酸。但同時(shí)也感到很欣慰，畢竟自己的付出終有收獲。在此特別感謝jiangssli大俠分享的程序�。�！& L1 V, w' i% u+ J
這個(gè)程序由[backcolor=transparent !important]jiangssli大俠的大螺距外梯牙程序改寫而來………………
/ N* o2 @& ]" d加工方式有所不同：1）本程式是內(nèi)梯牙螺紋加工程式。2）本程式加工方式并不是左右分刀加工，而是從右向左趕刀加工。3）這個(gè)程式本是加工絲母(黃銅)內(nèi)梯牙的程式，其中包括最后精車光刀，所以刀具應(yīng)為梯牙成形刀。4）此程序; P+ m) W- E3 Q2 S  W8 e
并不完美，有不足之處還請各位大俠多多指教。  O( x% |% V! c5 T
O8011 (絲母螺紋面加工）
; X" @2 _4 l" h3 _$ r$ ^T0101 M03 G991 G6 W9 K% I% D. o
G65 P8015 C65 D40 F7 M0.25 Q0.071 R0.1 S0.1 T1.75 U0.5 V15 W1.2 K12
; n  C; [* s& CG00 Z300
( b: t/ w: J' d! p- s1 y2 YM05
! Y: q. ~+ ?. J. nM30
4 G1 E" J0 f# l; ~  {1 H×××××××××××××××××××××××××××××××××××××××××××
- r' ?, _1 R$ v5 ]! t7 wO80157 W% C2 |* v& e0 ]9 F7 p( w  \
#2=#7-#9$ R, V! N9 W4 J, K/ t% G
#4=#2-1
! y. e. l0 g& X, I" |#5=#9/2+#21
+ [+ x. B8 ~; m0 v% f#8=0.366*#9
- a( H6 X1 Q9 W8 Q  s# J. X: l  P% F#10=#7+#21*2
% W. {! E$ k. u* h! X% O#11=0
7 t  P: h" f, T#110=#11
4 m3 h# a5 K' q#12=#5/ H1 l; _: Z/ ?5 r
WHILE[#11NE1]DO1
+ d3 Z/ \% h; j* N7 ^9 c5 Y#12=#12-#13
  Y+ U& {! N: r: R6 n#14=#10-#12*2+ h" m. e; @8 H; ]4 A; V
IF[#14GE#10-#18]THEN#14=#10-#181 N4 p" S6 `& X$ a" V
#15=TAN[#22]*#12
( `8 X+ M9 S. E  Y* v) ~#16=[#8-#20]/2
- S# ?# t) L- K( y; z#24=#15+#161 K; A. h1 f' @* o/ d% ]- q# b/ _
#25=#20*#23
# z! C5 e+ ]+ d+ I. h#27=#6+#24
( L5 R" }) q' I+ {9 i, G8 q" {* q#28=#6-#24! G' F( n( n, I/ u
#101=#27-#19$ w5 V2 I* U! e& Q( ~5 d
#102=#28+#199 c" _" S: _- _+ f" C
#29=#101; J; h- z% v- `* `3 j5 Y
#109=#14
9 G7 \) W/ H4 L% q4 AWHILE[#29GT#102]DO2$ ~$ B8 o2 z. Q
G00 Z#29
. @! i( e! |! LX#14
0 C2 B# y$ z* C" U& U- f. \G32 Z-#3 F#98 z  i3 d; h& r. s' @
G00 X#4' ?; f# R5 f0 d6 |/ u  h
#29=#29-#252 ]( |1 d' K) P9 R3 n- J" _2 |* m
IF[#29LT#102]THEN#29=#102
8 `$ A( M/ p  ]IF[#29NE#102]GOTO1
1 \. H9 l8 f6 ?; i/ X/ yG00 Z#29
7 e: v, c/ w2 G) D7 n% iX#146 z8 {; ^/ L) ^. ~
G32 Z-#3 F#9
- W, T# J% s9 g& h8 m" Q5 hG00 X#4# R, P6 \  L# h
#29=#1026 F" f; ^* H1 A4 C" C/ O7 W
N1 END28 ?$ C; X5 f8 d! y% b5 {2 M5 N
IF[#14EQ#10-#18]THEN#11=14 y0 K( q. \( S
END18 v; F. j: f) H
IF[#8EQ#20]GOTO2
& \8 \( C/ z. b; @; R#12=#182 |  I) k* ~" d& i
#103=0
9 K) ]- e3 i  w: _3 R#104=1
0 ?- J' k' r3 r+ gWHILE[#11NE2] DO11 l5 E. r3 F3 h. r: U
#12=#12-#17
4 m: ~" y; ?% o& N- L. v#15=TAN[#22]*#12
& p( |$ O  h2 I" X  s) f2 ]#24=#15+#16
; t% y+ N6 m  \6 D#30=#6+#24+#17& F: K" v; m! X& f
#31=#6-#24-#173 t6 S6 c8 G$ l; e
#32=#10-#12*2
9 u/ P* Z6 ]5 M2 x. Q6 O* e1 t#105=#30
# K9 N0 n6 l" d" N; I( @& y+ _#106=#31: l! {; m  x5 K5 o* P" R0 \
#109=#32
4 A! }  H9 s5 D. }IF[#32GE#10]THEN#32=#10
" z" a3 z' |4 R) k" [IF[#30GE#27]THEN#30=#27" m' t1 _1 D& O* R: z9 j' t; ~% I
IF[#31LE#28]THEN#31=#28
5 w5 |2 k/ K! z% @G00 Z#309 Q  }9 y  X/ S& y
X#32
  x3 Q' @6 o" {! l: s4 Y; E$ L- u" kG32 Z-#3 F#9
6 J: n( R1 J- `* kG00 X#42 c* u; M$ h9 B! G6 o
Z#31" l8 f" Y! }: D: ?( P1 X6 M
X#321 @# I8 {* S/ s) g6 t
G32 Z-#3 F#9
8 Q/ j# L, F2 X' u9 RG00 X#4
/ W) V, ?- l" [; k2 m$ JIF[#32EQ#10]THEN#103=2
5 s) }) c$ A$ x( YIF[#30EQ#27]THEN#104=2
& S- g: d4 I5 x7 H% g! a3 YIF[#103EQ#104]THEN#11=25 o1 C) Y* j# F2 k2 H: l- k# u
END1) f. t- }$ Z5 o) W6 J
G00 Z#68 |: ?! ~- g) n$ w
M99# E3 s) o0 Q; B1 [
  ^% _) W) M2 D& o

# b9 O+ h7 O8 R: X! I. J
6 O8 N3 w  R- C* _0 n0 t
作者: yukunv6    時(shí)間: 2012-1-27 23:41
{:soso_e118:}{:soso_e118:}好像很復(fù)雜啊
作者: 風(fēng)隨意    時(shí)間: 2012-1-28 10:30
看不懂
& s0 f5 z" ^  P5 M{:soso_e118:}{:soso_e168:}
作者: jiangssli    時(shí)間: 2012-2-4 16:20
呵呵,樓主很有前途啊!!
作者: 小波bo    時(shí)間: 2012-2-4 16:35
樓主前途無量啊。太強(qiáng)大了。{:soso_e183:}
作者: dero    時(shí)間: 2012-2-4 18:48
能否發(fā)刀具軌跡出來看下
作者: yblnm    時(shí)間: 2012-2-4 23:21
看來樓主學(xué)東西很快呀！一年就成高手了
作者: 凌晨一點(diǎn)    時(shí)間: 2012-2-5 21:45
標(biāo)題: RE: 改寫的jiangssli大俠的梯牙程序…………
jiangssli 發(fā)表于 2012-2-4 16:20
; U$ N/ ?, h+ F. T: N呵呵,樓主很有前途啊!!

! `# o' ^# t7 J9 g呵呵，大俠過獎(jiǎng)了�，F(xiàn)在感覺不知道下面的路怎么走了。
作者: 凌晨一點(diǎn)    時(shí)間: 2012-2-5 21:46
標(biāo)題: RE: 改寫的jiangssli大俠的梯牙程序…………
小波bo 發(fā)表于 2012-2-4 16:35
* J' V+ t# F" B. x9 s9 i/ d樓主前途無量啊。太強(qiáng)大了。
  B5 F* y7 J- N# Y, w' K
呵呵，改寫而已。原創(chuàng)才強(qiáng)大，嘿嘿。
作者: jiangssli    時(shí)間: 2012-2-6 07:53
凌晨一點(diǎn) 發(fā)表于 2012-2-5 21:46 & Y8 d& b+ Q9 X% r, D- ]4 G; n. P" @
呵呵，改寫而已。原創(chuàng)才強(qiáng)大，嘿嘿。
4 p0 N4 D' l% P4 }8 j8 N6 r8 H
這就是一個(gè)坎兒,你把這個(gè)坎邁過去了,你就真的能明白很多宏程序的東西了....; w- K3 Q& b( ]5 W8 d
有沒有和我們一起合作的興趣呢??有興趣的話可以加我的QQ詳談一下.... f3 a0 Q6 O( P: k4 C- k) D2 `
作者: 凌晨一點(diǎn)    時(shí)間: 2012-2-6 22:05
標(biāo)題: RE: 改寫的jiangssli大俠的梯牙程序…………
yblnm 發(fā)表于 2012-2-4 23:21
' K! n* `9 \: Z/ s9 }- Y( O- D看來樓主學(xué)東西很快呀！一年就成高手了
+ @2 U$ m* g3 @. x0 N% _+ k1 p
我離高手還差好遠(yuǎn)呢。感覺自己還是很笨的。只不過是把別人娛樂的時(shí)間拿來學(xué)習(xí)了。
作者: 凌晨一點(diǎn)    時(shí)間: 2012-2-6 22:07
標(biāo)題: RE: 改寫的jiangssli大俠的梯牙程序…………
dero 發(fā)表于 2012-2-4 18:48
. R. _# K3 }$ {! Y9 n% Q2 N+ ^能否發(fā)刀具軌跡出來看下

" f$ K2 q! e" {, L9 h手機(jī)上網(wǎng)，傳不了…抱歉了。不過在機(jī)床上空運(yùn)行一下應(yīng)該能看出來。
作者: onelee    時(shí)間: 2012-8-6 10:24
請教一個(gè)問題, D: T/ F/ M, \/ D+ u
IF[#29LT#102]THEN#29=#102
& [: p- I% s& z# M" E: [& [IF[#29NE#102]GOTO1$ c5 J: T2 h  o) W: ?/ j
能這樣表達(dá)嗎？ IF[#29LT#102]THEN#29=#102 GOTO1
/ |9 y' E4 p$ A- j
作者: 凌晨一點(diǎn)    時(shí)間: 2012-8-6 14:10
onelee 發(fā)表于 2012-8-6 10:243 W5 g  w1 d; v! {% I
請教一個(gè)問題
; ~8 @7 P8 Y6 b) D( a* nIF[#29LT#102]THEN#29=#102  q; ^# t9 R) B5 A
IF[#29NE#102]GOTO1
4 @/ Z' G' ~: s5 Z+ J& I
) W- k! S5 l  b2 G5 |( ]
蛋哥怎么把這貼給挖出來了？！多數(shù)系統(tǒng)不能這么寫，不過華中系統(tǒng)好像有個(gè)IF……THEN……EASL……的代碼功能和蛋哥說的差不多。具體我也不清楚。
作者: 風(fēng)隨意    時(shí)間: 2012-8-6 14:46
回過頭再來看看這個(gè)程序，才發(fā)現(xiàn)我1月份還看不懂，雖然現(xiàn)在也沒有仔細(xì)看，路過這程序和我的比起來有些臃腫。我就不把程序拿出來獻(xiàn)丑了。{:soso_e113:}
作者: 凌晨一點(diǎn)    時(shí)間: 2012-8-6 15:58
172288625 發(fā)表于 2012-8-6 14:46
: N  E, v" s" t# L; V; M回過頭再來看看這個(gè)程序，才發(fā)現(xiàn)我1月份還看不懂，雖然現(xiàn)在也沒有仔細(xì)看，路過這程序和我的比起來有些臃腫。 ...
0 l; ~! u5 O0 ?1 a$ c
臃腫那是肯定的，一般我寫的程序就像裹腳布，又臭又長…………
作者: 風(fēng)隨意    時(shí)間: 2012-8-6 16:07
故意臃腫的吧？大俠？
作者: onelee    時(shí)間: 2012-8-6 17:43
我也寫了個(gè)大螺距通用宏和鉆孔通用宏,也不知道自己考慮周全沒有
作者: 龍九禪師    時(shí)間: 2012-8-6 18:54
往一個(gè)方向趕刀  要是螺距10mm以上  切45鋼  會不會悶車？？
作者: 凌晨一點(diǎn)    時(shí)間: 2012-8-6 19:03
深圳龍九 發(fā)表于 2012-8-6 18:54% R: o% I- h1 j. a
往一個(gè)方向趕刀  要是螺距10mm以上  切45鋼  會不會悶車？？

4 D, {& v7 W0 l/ z$ u這是分層從右向左趕刀，10mm小意思。缺點(diǎn)就是光潔度不好。外螺紋的話用來開齒，然后上螺紋磨還是不錯(cuò)的。



歡迎光臨 機(jī)械社區(qū) (http://e-learninguniversity.com/) Powered by Discuz! X3.4