机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 22026|回复: 79

数控车高级宏程序逻辑运用的题目

[复制链接]
发表于 2011-5-16 15:39:52 | 显示全部楼层 |阅读模式
本帖最后由 jiangssli 于 2011-5-16 16:11 编辑
1 w* u4 K( s! h4 p: q
* \; H0 ?9 {3 s3 G5 J
1 u# d4 F( c8 E; I* w. F  \0 v# {/ h
当#200=0时;切槽1.2.3.4.5,. }5 d9 n) X1 d! X+ Y
      =1切槽1,+ W" v4 J4 E, z
      =2切槽2,
% T8 @( L4 ]) g# m      =3切槽3,+ \5 ~" T! k1 ?9 M7 D$ z
      =4切槽4,) R  B& \& @$ k3 [, H
      =5切槽
5,
/ u) t( j0 ~' z) ?/ ~      =12切槽1、2,
$ B, q, c. Q- a$ z
      =13切槽1、3,( d" V  r# M9 K1 M/ K
      =14切槽1、4,( f: m0 [0 G$ W" I0 \
      =15切槽1﹑5,6 l; S: K9 R7 _" m
      =23切槽2、
3,
: P) }# m' f$ m! I( H! f6 w! v: [      =24切槽2、4,

, _0 b9 J' [; d& d( v, N      =25切槽2﹑5
: {5 V. Z# i. B      =34切槽3、4,
' k  s5 p0 H5 S* h+ ~: }5 l9 j
      =35切槽3﹑5,
  W8 r0 d' I. Y* c7 S      =123切槽1、2、3,
      =124切槽1、2、4,
      =125切槽1、2、5,
) Z2 P# Z* S7 S% G      =134切槽1、3、4,
# A! B: [& _. N' _9 i9 J! c      =135切槽1、3、5,
      =145切槽1、4、5. X; [+ {9 f' t* `
      =234切槽2、3、
4,   2 D, B" n- s/ _0 J5 P3 h
      =235切槽2、3、5,
      =245切槽2、4、5,
. ^% K" b& s' G      =345切槽3﹑4﹑5,  k& E( K! a4 {
      =1234切槽1﹑2﹑3﹑
4, $ Z0 n' `& B8 x4 ?" o
      =1235切槽1、2、3、5,
      =1245切槽1、2、4、5,
      =1345切槽1、3、4、5,! |9 M( G( ]' V2 Y6 A; K
      =2345切槽2﹑3﹑4﹑
5.

( r7 ~+ p* I2 U- s: u; p
, I8 f) N, R1 `6 T' I& P/ H" ?% f要求:只能用五组坐标实现,力求把程序做到最简短!
; l; Q$ u( u2 G) z
" j9 k0 `9 P: p$ l+ V" j, R2 p, m
这个题目是以前在其它论坛发过的!现在转贴在这里,请各位大侠多讨论下!!
4 k% c' ~# I6 s+ C$ N7 a6 T4 \8 Z6 V/ w9 K$ v0 A# `; M

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复

使用道具 举报

发表于 2011-5-16 22:37:30 | 显示全部楼层
假如是我我不用宏,用宏太伤脑了。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-5-18 13:31:31 | 显示全部楼层
本帖最后由 jiangssli 于 2011-5-18 13:36 编辑
- p3 w) E3 E1 o6 @6 d- R1 u8 N
% G) f& c0 E) p. m) j& \6 i5 B我把程序上传吧,除了老邓哥哥以外...居然没有一个人看得出这个题目的真正含义!!!!!+ ^! c1 g, t* z3 m' T; t1 I+ j/ l
5 e' m4 h9 V. x  s3 [' W
M3S500T101
#1=13
#200=0
#10=31
IF[#200EQ0]GO5
#200=1
#10=1
IF[#200EQ1]GO5
#200=2
#10=2
IF[#200EQ2]GO5
#200=3
#10=4
IF[#200EQ3]GO5
#200=4
#10=8
IF[#200EQ4]GO5
#200=5
#10=16
IF[#200EQ5]GO5
#200=12
#10=3
IF[#200EQ12]GO5
#200=13
#10=5
IF[#200EQ13]GO5
#200=14
#10=9
IF[#200EQ14]GO5
#200=15
#10=17
IF[#200EQ15]GO5
#200=23
#10=6
IF[#200EQ23]GO5
#200=24
#10=10
IF[#200EQ24]GO5
#200=25
#10=18
IF[#200EQ25]GO5
#200=123
#10=7
IF[#200EQ123]GO5
#200=124
#10=11
IF[#200EQ124]GO5
#200=125
#10=19
IF[#200EQ125]GO5
#200=135
#10=21
IF[#200EQ135]GO5
#200=145
#10=25
IF[#200EQ145]GO5
#200=234
#10=14
IF[#200EQ234]GO5
#200=235
#10=22
IF[#200EQ235]GO5
#200=245
#10=26
IF[#200EQ245]GO5
#200=345
#10=28
IF[#200EQ345]GO5
#200=1234
#10=15
IF[#200EQ1234]GO5
#200=1235
#10=23
IF[#200EQ1235]GO5
#200=1245
#10=27
IF[#200EQ1245]GO5
#200=1345
#10=29
IF[#200EQ1345]GO5
#200=2345
#10=30
IF[#200EQ2345]GO5
IF[#200EQ#0]GO3000
N5G0X52M8
IF[[#10AND1]EQ0]GOTO10
G0Z[-#1]
G75R0.5
G75X44P500F80
N10#1=#1+10
IF[[#10AND2]EQ0]GOTO20
Z[-#1]
N20#1=#1+10
IF[[#10AND4]EQ0]GOTO30
Z[-#1]
N30#1=#1+10
IF[[#10AND8]EQ0]GOTO40
Z[-#1]
N40#1=#1+10
IF[[#10AND16]EQ0]GOTO50
Z[-#1]
N50G0X100.M9
Z100.M5
M30
N3000#3000=1#200-MODE-ERROR

' n5 `1 e4 J; Z  N2 N7 @

点评

看不懂啊 哎  发表于 2011-6-18 11:33
回复 支持 反对

使用道具 举报

发表于 2011-5-18 17:17:16 | 显示全部楼层
在书上见过这个图!~!~我也可以编出来 但是达不到你所说的精短!~!~
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-5-18 17:51:18 | 显示全部楼层
在下去年刚学会位操作时的原创
回复 支持 反对

使用道具 举报

发表于 2011-5-18 18:18:29 | 显示全部楼层
先收了啊,好东西啊,有时间看看
回复 支持 反对

使用道具 举报

发表于 2011-5-18 22:49:01 | 显示全部楼层
好像楼主也掌握了那个分中程序的精要了# T+ I, j6 J3 g  o
这个题目和那个程序所用的原理一样
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-5-19 01:39:34 | 显示全部楼层
回复 flm0095 的帖子
: D4 H% ^/ ]+ O4 k! R) V8 y3 B" ?1 t1 r" q
哪里哦,那个程序的算法的确不是我目前所能掌握的!只是刚入门!正在学习中,不过进步很慢!!请你有空多多指点啦!!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-5-19 01:57:47 | 显示全部楼层
还有比这个更简短的程序!不过那个程序有一个弊端,就是图中的切槽数目大于9了.就不好判断了!呵呵虽然这个程序比较长,但是就算是有10几个槽 也同样可以达到要求和目的!!
, L% d* E4 n6 U; x  c0 R如果社友们多多的来发帖讨论下,我可以把另外的程序也贴出了献献丑!!!!
回复 支持 反对

使用道具 举报

发表于 2011-5-24 12:34:03 | 显示全部楼层
呵呵!用子程序不快一些吗!?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-5-24 07:01 , Processed in 0.066328 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表