数控车高级宏程序逻辑运用的题目
本帖最后由 jiangssli 于 2011-5-16 16:11 编辑当#200=0时;切槽1.2.3.4.5，
=1切槽1，
=2切槽2，
=3切槽3，
=4切槽4,
=5切槽5,
=12切槽1、2，
=13切槽1、3，
=14切槽1、4，
=15切槽1﹑5,
=23切槽2、3,
=24切槽2、4，
=25切槽2﹑5
=34切槽3、4，
=35切槽3﹑5,
=123切槽1、2、3， =124切槽1、2、4， =125切槽1、2、5，
=134切槽1、3、4,
=135切槽1、3、5, =145切槽1、4、5
=234切槽2、3、4,
=235切槽2、3、5, =245切槽2、4、5，
=345切槽3﹑4﹑5,
=1234切槽1﹑2﹑3﹑4,
=1235切槽1、2、3、5, =1245切槽1、2、4、5, =1345切槽1、3、4、5,
=2345切槽2﹑3﹑4﹑5.
要求：只能用五组坐标实现,力求把程序做到最简短!
这个题目是以前在其它论坛发过的!现在转贴在这里,请各位大侠多讨论下!!
假如是我我不用宏，用宏太伤脑了。 本帖最后由 jiangssli 于 2011-5-18 13:36 编辑
我把程序上传吧,除了老邓哥哥以外...居然没有一个人看得出这个题目的真正含义!!!!!
M3S500T101#1=13#200=0#10=31IF[#200EQ0]GO5#200=1#10=1IF[#200EQ1]GO5#200=2#10=2IF[#200EQ2]GO5#200=3#10=4IF[#200EQ3]GO5#200=4#10=8IF[#200EQ4]GO5#200=5#10=16IF[#200EQ5]GO5#200=12#10=3IF[#200EQ12]GO5#200=13#10=5IF[#200EQ13]GO5#200=14#10=9IF[#200EQ14]GO5#200=15#10=17IF[#200EQ15]GO5#200=23#10=6IF[#200EQ23]GO5#200=24#10=10IF[#200EQ24]GO5#200=25#10=18IF[#200EQ25]GO5#200=123#10=7IF[#200EQ123]GO5#200=124#10=11IF[#200EQ124]GO5#200=125#10=19IF[#200EQ125]GO5#200=135#10=21IF[#200EQ135]GO5#200=145#10=25IF[#200EQ145]GO5#200=234#10=14IF[#200EQ234]GO5#200=235#10=22IF[#200EQ235]GO5#200=245#10=26IF[#200EQ245]GO5#200=345#10=28IF[#200EQ345]GO5#200=1234#10=15IF[#200EQ1234]GO5#200=1235#10=23IF[#200EQ1235]GO5#200=1245#10=27IF[#200EQ1245]GO5#200=1345#10=29IF[#200EQ1345]GO5#200=2345#10=30IF[#200EQ2345]GO5IF[#200EQ#0]GO3000N5G0X52M8IF[[#10AND1]EQ0]GOTO10G0Z[-#1]G75R0.5G75X44P500F80N10#1=#1+10IF[[#10AND2]EQ0]GOTO20Z[-#1]N20#1=#1+10IF[[#10AND4]EQ0]GOTO30Z[-#1]N30#1=#1+10IF[[#10AND8]EQ0]GOTO40Z[-#1]N40#1=#1+10IF[[#10AND16]EQ0]GOTO50Z[-#1]N50G0X100.M9Z100.M5M30N3000#3000=1﹙#200-MODE-ERROR﹚
在书上见过这个图！~！~我也可以编出来 但是达不到你所说的精短！~！~ 在下去年刚学会位操作时的原创:L 先收了啊，好东西啊，有时间看看 好像楼主也掌握了那个分中程序的精要了
这个题目和那个程序所用的原理一样 回复 flm0095 的帖子
哪里哦,那个程序的算法的确不是我目前所能掌握的!只是刚入门!正在学习中,不过进步很慢!!请你有空多多指点啦!! 还有比这个更简短的程序!不过那个程序有一个弊端,就是图中的切槽数目大于9了.就不好判断了!呵呵虽然这个程序比较长,但是就算是有10几个槽 也同样可以达到要求和目的!!
如果社友们多多的来发帖讨论下,我可以把另外的程序也贴出了献献丑!!!!:L 呵呵！用子程序不快一些吗！？