机械必威体育网址

标题: 改写的jiangssli大侠的梯牙程序………… [打印本页]
作者: 凌晨一点    时间: 2012-1-25 01:02
标题: 改写的jiangssli大侠的梯牙程序…………
本帖最后由 凌晨一点 于 2012-1-25 01:02 编辑
) G/ x) @9 l" J( }( e; ~& n7 F' z+ c/ Z
辞旧迎新，已经在坛子里潜水一年。平常没条件上网。过年回家，发此程序用以回报各位大侠的资料分享。* U2 _; N% j" b! q, _
回想这一年来，从一普车操作工到学会用宏程序分层加工大螺距梯牙的日日夜夜，倍感心酸。但同时也感到很欣慰，毕竟自己的付出终有收获。在此特别感谢jiangssli大侠分享的程序！！！
5 o8 _+ E- M9 \# i% A这个程序由[backcolor=transparent !important]jiangssli大侠的大螺距外梯牙程序改写而来………………
) [% l% N( f8 X. b3 g9 u' A3 w& y加工方式有所不同：1）本程式是内梯牙螺纹加工程式。2）本程式加工方式并不是左右分刀加工，而是从右向左赶刀加工。3）这个程式本是加工丝母(黄铜)内梯牙的程式，其中包括最后精车光刀，所以刀具应为梯牙成形刀。4）此程序
. z! z) c4 u" [: s+ n( {( a并不完美，有不足之处还请各位大侠多多指教。
! _3 I) V- _/ C2 K5 I! ^O8011 (丝母螺纹面加工）
) j5 `, w/ ]* E% P5 F& F. mT0101 M03 G990 X# a1 K7 z& N( a
G65 P8015 C65 D40 F7 M0.25 Q0.071 R0.1 S0.1 T1.75 U0.5 V15 W1.2 K12
% p) A* N/ H% N. h4 lG00 Z300
6 p7 f" X. K+ O7 {- M9 Y9 oM05% Q$ ]5 I, v  V' T+ V( w
M30" o: S" D: m  W+ |8 U1 M. G
×××××××××××××××××××××××××××××××××××××××××××- {  G; k8 z# S9 i1 ]
O8015+ Q; |; P. c0 S. X8 ]2 {* t$ O
#2=#7-#9
) i( Y6 E- J: T#4=#2-1
4 k1 i+ e5 W4 W#5=#9/2+#21
; t0 C3 |/ S- _+ d  y* n' \' Q* P#8=0.366*#9
  O6 j7 q* e* T# P, S' r#10=#7+#21*2
  t+ e% `4 q1 E: a5 r! q2 G; G#11=0
: n5 x& x2 m. `2 }% {3 q$ ?. L: K#110=#11
/ k7 E) X' U! C- ^( u) Q# L#12=#56 Y$ o9 \( H0 W7 T2 o
WHILE[#11NE1]DO1
' S. L, }1 N2 s% M- F! n: Q#12=#12-#13
+ R+ j5 y7 }' S& i, @: I#14=#10-#12*2' R7 [) S% k7 k3 \
IF[#14GE#10-#18]THEN#14=#10-#18
" |2 G* b$ T$ \9 G' G( e#15=TAN[#22]*#129 P, i+ \2 {- w7 d" X+ ?/ y
#16=[#8-#20]/23 O% c2 o# ^/ L: R
#24=#15+#16% |- f" q" n) t% Z/ }7 R% M
#25=#20*#23) S- P7 L6 B6 q3 N: l" o5 I+ X
#27=#6+#247 n% E' @% k2 @
#28=#6-#24
7 z1 d* C# I. ~, I5 I6 K#101=#27-#198 M& o& ?0 h. @3 t5 `
#102=#28+#19
. u, l3 w2 M. Y9 `( h6 i' a# t#29=#101% p$ g/ s: Y: \( S8 L) [2 A$ l$ U
#109=#14- T; H+ m. _) l" ]1 ^
WHILE[#29GT#102]DO2
' F; |/ I$ l9 K1 M5 `G00 Z#290 o) }. o0 N' S" y- \1 m
X#14
3 x# b. C, C: QG32 Z-#3 F#9
+ Z* {: y2 _0 iG00 X#4
; B0 Q2 N* f( ]0 V( p3 x#29=#29-#25
( T# P4 I" ^, q8 L  x4 l. H6 p7 b8 tIF[#29LT#102]THEN#29=#102
! N+ Y. R* v% dIF[#29NE#102]GOTO1
  \- Z6 t' V% P' k6 rG00 Z#29
) J7 ~  H5 M5 k$ a, G, L% F+ HX#14
5 G1 |3 ]. ]) ], N( ?' F8 G( qG32 Z-#3 F#9
- G6 D; ~+ u. x- _G00 X#4) c. @  W' ?9 z* x* M
#29=#102; J1 ]2 Y' G8 B# n  Q8 Y" s; H
N1 END2
1 L  r+ X& t3 w0 ~; d! y2 o" tIF[#14EQ#10-#18]THEN#11=1) t2 u, K9 d+ ^4 M
END1: B3 @! q! ^& V
IF[#8EQ#20]GOTO2
# {0 g4 J+ u' D+ h# `#12=#18
1 s" L7 B" O( v#103=09 I* l) w0 P- @0 q) e" l
#104=17 s- u! P/ L+ X, t
WHILE[#11NE2] DO1
$ g$ u5 K3 F* C6 d- j7 |#12=#12-#17
5 `  X, g# f/ e& T& z* s% g6 `#15=TAN[#22]*#12
* d2 z) l4 l. J7 b#24=#15+#16
! [) J/ J/ x8 P+ }#30=#6+#24+#17
" l4 y0 x$ P. X# g# I#31=#6-#24-#17! w6 J* [4 D# I  g
#32=#10-#12*2
2 T! d! r. D. l: \#105=#303 o; G9 N. E1 f' y+ d1 q( I
#106=#31
0 Z, {- v; F4 V2 E2 }# ^7 w1 J#109=#32+ n3 P9 R1 {$ ^( V- O4 n
IF[#32GE#10]THEN#32=#10
' o% C+ `1 ]$ x) F! T' BIF[#30GE#27]THEN#30=#27
3 @0 k4 h4 h" h- }IF[#31LE#28]THEN#31=#28
  t! O# a$ w5 t, f1 ^) WG00 Z#30
6 O. Y4 I0 E; K6 ~' a8 S7 t1 oX#32
5 T3 w) b' G- a) B3 ]G32 Z-#3 F#9" t" H* f+ A1 J9 _& E2 ~  e
G00 X#4
! I/ x/ J; ~1 g1 _% v8 D7 P; B( XZ#31/ }- x' I5 y0 i4 B% P/ h
X#32
% B( R, T4 A2 j  aG32 Z-#3 F#9& q. h3 x7 a: G  D$ f
G00 X#4
- e- p* d' _" e- Q! vIF[#32EQ#10]THEN#103=2( k# j( a- ~0 O# @2 i5 S5 X# w3 Z
IF[#30EQ#27]THEN#104=2- H1 J) Z  }8 m; q# S6 P; Q
IF[#103EQ#104]THEN#11=20 G3 S3 T$ X+ a: w
END1
6 k7 h! s- u2 ^, B' zG00 Z#66 p% i& D1 v8 i" `" u+ I5 E6 N
M99, U$ k# t( h! [' q" |- q  Q
% m7 i# M$ V+ \3 z! {! |, n
- n! `9 q. ?+ C3 ]( E' {4 J* ^6 N" C

' m) s  p, I7 p5 c$ D* q( J
作者: yukunv6    时间: 2012-1-27 23:41
{:soso_e118:}{:soso_e118:}好像很复杂啊
作者: 风随意    时间: 2012-1-28 10:30
看不懂% f# B  E5 S9 m1 |2 x6 X
{:soso_e118:}{:soso_e168:}
作者: jiangssli    时间: 2012-2-4 16:20
呵呵,楼主很有前途啊!!
作者: 小波bo    时间: 2012-2-4 16:35
楼主前途无量啊。太强大了。{:soso_e183:}
作者: dero    时间: 2012-2-4 18:48
能否发刀具轨迹出来看下
作者: yblnm    时间: 2012-2-4 23:21
看来楼主学东西很快呀！一年就成高手了
作者: 凌晨一点    时间: 2012-2-5 21:45
标题: RE: 改写的jiangssli大侠的梯牙程序…………
jiangssli 发表于 2012-2-4 16:20
- q6 k' M$ Y# a呵呵,楼主很有前途啊!!
5 C; D6 e7 w( S/ I1 E/ M: L
呵呵，大侠过奖了。现在感觉不知道下面的路怎么走了。
作者: 凌晨一点    时间: 2012-2-5 21:46
标题: RE: 改写的jiangssli大侠的梯牙程序…………
小波bo 发表于 2012-2-4 16:35
) g5 k7 Z2 E8 x, S3 ?/ W3 [楼主前途无量啊。太强大了。
- H* r) @5 m! K: |" t( h- J* L
呵呵，改写而已。原创才强大，嘿嘿。
作者: jiangssli    时间: 2012-2-6 07:53
凌晨一点 发表于 2012-2-5 21:46 * g( b3 \* [: f, s9 u. N7 X
呵呵，改写而已。原创才强大，嘿嘿。

7 }  ?* C, S' V+ |6 X; y这就是一个坎儿,你把这个坎迈过去了,你就真的能明白很多宏程序的东西了....
0 j# F. v# ~$ j- a. Q! r* U- z有没有和我们一起合作的兴趣呢??有兴趣的话可以加我的QQ详谈一下...
  E0 e& k$ l/ T4 v( u
作者: 凌晨一点    时间: 2012-2-6 22:05
标题: RE: 改写的jiangssli大侠的梯牙程序…………
yblnm 发表于 2012-2-4 23:21 " D; g8 Y( I# c* A- i  P
看来楼主学东西很快呀！一年就成高手了
" i8 U- Y! Z+ g5 W1 y( q
我离高手还差好远呢。感觉自己还是很笨的。只不过是把别人娱乐的时间拿来学习了。
作者: 凌晨一点    时间: 2012-2-6 22:07
标题: RE: 改写的jiangssli大侠的梯牙程序…………
dero 发表于 2012-2-4 18:48 # ~0 V, d* E' C
能否发刀具轨迹出来看下
$ u5 x6 b( ]) U! w" r
手机上网，传不了…抱歉了。不过在机床上空运行一下应该能看出来。
作者: onelee    时间: 2012-8-6 10:24
请教一个问题% u* D( R1 R1 {7 V6 x3 }: X
IF[#29LT#102]THEN#29=#102
6 O. H# m. z% X& eIF[#29NE#102]GOTO1' y- w9 c( w/ B1 I- N# Q
能这样表达吗？ IF[#29LT#102]THEN#29=#102 GOTO1
+ N, I: l: d8 y( L8 c/ ^
作者: 凌晨一点    时间: 2012-8-6 14:10
onelee 发表于 2012-8-6 10:24
7 w2 ]7 W$ ^' M# h请教一个问题1 u- ~1 ?" h% n8 J- T6 f
IF[#29LT#102]THEN#29=#102
( U, f6 G1 T1 p# m8 k( Z% nIF[#29NE#102]GOTO1
, w% Y, ^& J$ }9 W

$ e/ W# B7 l% O8 W; t$ K蛋哥怎么把这贴给挖出来了？！多数系统不能这么写，不过华中系统好像有个IF……THEN……EASL……的代码功能和蛋哥说的差不多。具体我也不清楚。
作者: 风随意    时间: 2012-8-6 14:46
回过头再来看看这个程序，才发现我1月份还看不懂，虽然现在也没有仔细看，路过这程序和我的比起来有些臃肿。我就不把程序拿出来献丑了。{:soso_e113:}
作者: 凌晨一点    时间: 2012-8-6 15:58
172288625 发表于 2012-8-6 14:46
. V3 A4 C" }$ D2 ~: @: L4 V. W回过头再来看看这个程序，才发现我1月份还看不懂，虽然现在也没有仔细看，路过这程序和我的比起来有些臃肿。 ...

0 x$ _0 i6 u6 v& s臃肿那是肯定的，一般我写的程序就像裹脚布，又臭又长…………
作者: 风随意    时间: 2012-8-6 16:07
故意臃肿的吧？大侠？
作者: onelee    时间: 2012-8-6 17:43
我也写了个大螺距通用宏和钻孔通用宏,也不知道自己考虑周全沒有
作者: 龙九禅师    时间: 2012-8-6 18:54
往一个方向赶刀  要是螺距10mm以上  切45钢  会不会闷车？？
作者: 凌晨一点    时间: 2012-8-6 19:03
深圳龙九 发表于 2012-8-6 18:54
$ R7 P; m7 o  J$ L" O) ]往一个方向赶刀  要是螺距10mm以上  切45钢  会不会闷车？？

5 [  u4 [4 B" a" P% [这是分层从右向左赶刀，10mm小意思。缺点就是光洁度不好。外螺纹的话用来开齿，然后上螺纹磨还是不错的。



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4