机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 26190|回复: 79

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

[复制链接]
发表于 2011-5-16 15:39:52 | 显示全部楼层 |阅读模式
本帖最后由 jiangssli 于 2011-5-16 16:11 编辑 4 K8 ?2 b1 C* n$ L, j
6 m2 B) }2 E+ Y% q# n/ d

( B: b% y) q" k4 \( C( p: a* x2 h% |0 K9 v/ d. Y
当#200=0时;切槽1.2.3.4.5,
/ l& L; N, v+ o" L, Y: a: V/ F- f& y5 n      =1切槽1,6 f! g' l0 g# m. Y. G
      =2切槽2,* b/ B: d( z: S4 s
      =3切槽3,# z7 S7 l: h: H, r1 g
      =4切槽4,
' k0 n( x: ], _; ]; `5 @: |$ t      =5切槽
5,
8 Z' U6 Y4 O* K% Q6 ?      =12切槽1、2,

2 V8 m: R( r2 @1 W3 p( x; U      =13切槽1、3,+ g  ]( H  f% o7 D' K' E# F: \5 \
      =14切槽1、4,! I' u& _- n6 K- ^% S, P
      =15切槽1﹑5,' ?# ]# T# ?- c( O1 K
      =23切槽2、
3,  a. n7 T7 G* g
      =24切槽2、4,
9 k$ L8 F, ^6 N% H# O, k5 T6 M( I) ~
      =25切槽2﹑58 ^5 C: J1 f* G. F6 R6 z
      =34切槽3、4,

7 r* n7 U0 C* f% N  E/ [/ X      =35切槽3﹑5,5 V: l/ D3 e' g8 y
      =123切槽1、2、3,
      =124切槽1、2、4,
      =125切槽1、2、5,
+ R2 Y; j# s( V/ H' e; }4 F      =134切槽1、3、4,) q) j# M( ]5 M* ^3 G9 @; L
      =135切槽1、3、5,
      =145切槽1、4、5! P6 W" F$ p6 E" z3 v
      =234切槽2、3、
4,   * o" @, [- ]/ J' K
      =235切槽2、3、5,
      =245切槽2、4、5,  y4 d1 E- W4 d& L- s2 _# [' H
      =345切槽3﹑4﹑5,
9 |; o9 H1 {+ d( _+ x8 c: g      =1234切槽1﹑2﹑3﹑
4,
  y; y, `0 {$ z* b* }      =1235切槽1、2、3、5,
      =1245切槽1、2、4、5,
      =1345切槽1、3、4、5,
8 o) F) G7 E/ N' R      =2345切槽2﹑3﹑4﹑
5.
/ {7 ^; h; m+ J3 N- L
% V* W, k% v& s) j' f
要求:只能用五组坐标实现,力求把程序做到最简短!
3 X$ X8 ^6 O, c: V( w& H9 Z2 e

* r# ~+ h' v" X* O8 M; |这个题目是以前在其它论坛发过的!现在转贴在这里,请各位大侠多讨论下!!
$ a  O$ f8 L' |# G$ ]; U6 ?  n
7 x; B) _& l  l: o0 {/ C

本帖子中包含更多资源

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

x
回复

使用道具 举报

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

使用道具 举报

 楼主| 发表于 2011-5-18 13:31:31 | 显示全部楼层
本帖最后由 jiangssli 于 2011-5-18 13:36 编辑
9 w1 J3 ~$ q* @5 Y! r) N  W
% {/ \  b8 x- Z  U, D% C5 g% H我把程序上传吧,除了老邓哥哥以外...居然没有一个人看得出这个题目的真正含义!!!!!  L: j& }" M+ I* q& u
, Y# Z. t. v3 S
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
' h# ^- Z' I+ f/ l

点评

看不懂啊 哎  发表于 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 | 显示全部楼层
好像楼主也掌握了那个分中程序的精要了
% a* ~7 k2 \' ~这个题目和那个程序所用的原理一样
回复 支持 反对

使用道具 举报

 楼主| 发表于 2011-5-19 01:39:34 | 显示全部楼层
回复 flm0095 的帖子7 A: }+ g) O6 s' n  r2 M

4 K' M# c6 ~8 o, R; d哪里哦,那个程序的算法的确不是我目前所能掌握的!只是刚入门!正在学习中,不过进步很慢!!请你有空多多指点啦!!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-5-4 22:20 , Processed in 0.088717 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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