机械社区

标题: 谁能帮我解释下这个宏程序 [打印本页]
作者: wendellz    时间: 2010-11-15 21:41
标题: 谁能帮我解释下这个宏程序
加工平面的宏程序
( Z1 K- c. u: w; k7 M3 W2 O2 I) x7 s! a  T) k4 _2 w
  O
3 z# a; {( p' [（HUAHUI-GAN )
. y% q0 `9 i* ?0 LG90 G54 M3 S3000
8 V1 w1 U7 N9 ^3 d, T# ~: Q#500=1100.9 Z4 V8 E5 _9 O+ @& _
(CHANG  DU )1 _1 q6 ], R, }* k
#501=310 .
( m5 `& N8 g+ i) R/ i* u(KUAN  DU)' K3 J; `" J0 Z! j) i
#502=50.
1 J, j6 F7 x! f(BAN  JING)
! A8 F, v9 O5 v0 v(START)2 H2 v+ ~* i! A; O6 s6 a) V1 ?
#503=2.
/ E. z! j6 R4 D  t+ [- t#504=0./ r* c7 A0 f% `. N2 R+ t
#100=0: Z9 z8 d- O* Q$ g9 d( Q# A
#101=0.; K7 l! C/ ]) o; W
#101=-#101
6 _( J# e9 g% }* `5 p9 b( u" a#502=#502*0.8) p% s/ ?; U$ t# `. V, d, S2 A
#102=-#502) w1 U% n7 _" H# {# S8 ^
#501=FUP[#501/#502]* #5020 S( t. Z7 [1 i/ d0 j: R, p3 V
N10  G0 Z100.
' U! ]+ _* R% v7 d' H        X0 Y#102
' F% L' n0 R: L" D! y' J        Z15.( U) i: g8 D, k  {/ o
G1 Z-#101 F2000! a% O* I- F) R, b3 [4 }2 u8 O2 c
N20   #102=#102+#5025 r# L: d% U6 m5 K! P. i
   IF[#102GT#501]GOTO 100; X$ D. U- B& s
      Y#1027 D- G1 W. i# o! y; G- M% f
      X#500
' M2 m. J1 Z: d6 w9 x      #102=#102+#5028 J# w& Y) A' t1 V- p" u$ e& [
   IF[#102GT#501]GOTO 100
4 x5 f4 }) M: n) O% h      Y#102
% F: X+ b' U7 H9 i. A% N7 [9 i5 R- J      X0( S+ n! C* M& {/ g
   IF[#102LE#501]GOTO 204 W9 g5 g, u. b: f9 p' J1 V: a
N100   #101=#101+#503# z- V  u$ T4 U4 M" k
IF[#101LE#504]GOTO 10
) z  l- [! h. M& {6 x# c) v# S#100=#100+1. A- ^. [; J" q( b- M. y
#101=#504( g# [. }. N1 h. T
IF[#504EQ1]GOTO 10- Q( P2 z( O) i9 ^: X* c
     G0  Z100.
3 c2 A' b5 ?& f# y& H) R) O     M05
" }* K) I# N6 u% R; K; N2 J  x4 [     M30" P8 ]: v" a. Q( @: z# B
作者: 老飘    时间: 2010-11-15 21:42
帮你顶起来,且关注高手讲解
作者: wtuwfn    时间: 2010-11-22 23:11
dingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingdingding
作者: 风中的雨    时间: 2010-11-23 07:04
帮你顶起来,且关注高手讲解
, f, M( ]  z- W9 c6 @4 [
作者: ruanjunfu    时间: 2010-11-24 07:04
我也想学这个，，哪位高手帮助一下
作者: dumbboy    时间: 2010-11-24 08:05
好强的宏程序，一连串就是没有直接走直接加工的数字 全是宏控制
作者: tiange1234    时间: 2010-11-24 11:55
我晕，太高端了，压力很大
作者: ymaizlj    时间: 2010-11-24 17:53
挣点威望...顶个  嘿嘿
4 g8 p/ T; b$ N2 a: N准备学习  表示鸭梨很大呀...
作者: qq649007451    时间: 2010-11-28 00:23
我也想学这个，，哪位高手帮助一下
作者: wujije1220    时间: 2010-11-28 18:53
帮你顶起来,且关注高手讲解   ~-
作者: cl2wmy    时间: 2010-12-1 05:02
这是一个三坐标同时变化的宏程序，其实前面的#500到#504的参数可以省略不要写，直接赋值到下面就可以，至于下面的跳转可以选用镶嵌式跳转，while___DO方式，本来很简单的程序被你复杂化了
作者: uwycui    时间: 2010-12-5 09:49
鄙人操作OKUMA系统的。对法拉克系统略知一二。既然没有高手出来指点。那我来抛砖引玉吧。; ]5 {/ Q) y' C
楼上那位兄弟所说的我不太认同。，我自已编程也喜欢把条件数据放在程序最前面。方便。明了，% m( G& a4 z7 ]+ O9 k
O
3 Q2 z& B$ @. A1 Z- B+ g（HUAHUI-GAN )      （此程序加工原点在工件表面X-Y-方向。X方向必须离开刀具半径）6 o9 O( {( C" p2 D. F
G90 G54 M3 S3000    不解释% J4 @$ K' I5 C- R  A* \; K3 E
#500=1100.          工件长度" ^/ Q8 B1 n; q' u3 s- c. ~
(CHANG  DU )       1 G+ ?3 W9 w, f9 i6 u: F! v; O
#501=310 .          工件宽度
, l% _& I2 ?( i. `; B9 k(KUAN  DU)
% u% X& k+ y% y* B$ G- ]2 s9 j#502=50.            刀具直径, P0 ~4 E( c1 g' b
(BAN  JING)* c( J4 c6 X- ~) a
(START)
" j; [; @$ v% D7 I" D+ D7 |% k#503=2.             每刀下刀量. I/ R* T, y$ g8 Y
#504=0.             最终想切到的Z位置
4 C3 W1 D* s: h; S! L#101=0.             第一刀下刀位置$ ]; ~) y4 Z" _
#101=-#101) R* o- c+ x% L2 a0 g! P
#502=#502*0.8       每刀Y方向进刀具直径的80%
/ a1 \2 m2 d5 C/ N$ k#102=-#502         
  k# L: Z2 D7 D' V( W- U* K#501=FUP[#501/#502]* #502     取整数并且每刀Y方向进刀量平均化' i7 h0 {! v" n9 z
N10  G0 Z100.6 ^9 c5 _# E+ P6 [$ F% k
X0 Y#102                      Y移动到工件外面为第一刀Y位置做准备（无实际意义，作者思路不是很完美）              / b! J' j6 Q* m% a$ R" j
Z15.
9 _$ _. H, ~2 V2 cG1 Z-#101 F2000
3 I! l* P  D4 t6 cN20   #102=#102+#502          自动计算下一刀Y位置。
! M& q7 j( n9 DIF[#102GT#501]GOTO 100        假如下一刀Y位置大于工件宽度那就跳转到N100+ R( S' `9 B4 z; H% H+ B7 y3 R, [
Y#102                         移动到第一刀Y位置。
3 P( K5 ?6 ?; zX#500                         切削加工X方向。
. M8 N" F9 ], J5 U#102=#102+#502                计算下一刀Y位置。1 |* f. f$ Z( S7 q7 S6 o. d
IF[#102GT#501]GOTO 100        假如下一刀Y位置大于工件宽度那就跳转到N1007 J) h. h& m1 x
Y#1028 a8 G# t' H' {- U( a' P
X0
+ b" M* g$ V, P. q  Y, f4 ~IF[#102LE#501]GOTO 20         假如下一刀Y位置小于工件宽度则跳回N20继续加工0 \+ v/ u( i# K  S( B. b
N100   #101=#101+#503         计算下一刀Z位置（作者有误，这样计算出来为正数。）8 m# R6 }2 e9 G2 |* H: L2 `+ t2 \
IF[#101LE#504]GOTO 10         假如下一刀Z位置小于或等于目标值时跳回N10继续加工（同上。难道作者是想Z方向从下往上切？）
- [; v+ L- _; m- P% f#100=#100+1                   （无实际意义。应该是计算切了几刀）
! k! @) Z. g1 H$ I% B3 h. ?#101=#504+ n( V5 B. W! J
IF[#504EQ1]GOTO 10           （这程序执行下来这一步永远不会跳转。不理解）
2 f. d, b/ U, b& i     G0  Z100." u. a2 V6 C6 j( v  [; g9 t
     M05: M4 B# c( H$ Q1 B; I& Y9 v
     M30
- e9 ^6 @3 C- x0 d这段程序是能执行的，执行的效果就是Z方向在0的位置上切一遍就结束。
; Z; w& |- U  K- F( v2 _思路有很多不完善的地方。比如对原点，估计只有作者本人才知道对在那个位置最合适，反正是不能对在工件表面上
8 B$ v% Y) }/ I' c! U/ `还有Z方向下刀第一刀数值设定如果不是2的倍数那就没法切到想要的厚度了。3 O0 s; h4 Q" ^- z8 x* y9 m) F
作者: zhangjinshan    时间: 2010-12-9 19:24
挣点威望...顶个  嘿嘿
& |9 X6 e9 I9 P. \, s. `5 `2 z( e4 z0 [准备学习  表示鸭梨很大呀... 8 T, s; @8 I" r) K% @( T
作者: 丢了翅膀的鸟    时间: 2010-12-9 20:59
关注高手讲解                                            ) V: R$ j: O+ a
作者: 丢了翅膀的鸟    时间: 2010-12-9 21:08
回复 uwycui 的帖子9 }: R  S# Y) i2 t
( y4 b5 L! W- A& S) {
呵呵不懂          还是很高兴看到                  
作者: 少年游    时间: 2010-12-10 21:44
顶一下
作者: 少年游    时间: 2010-12-10 22:26
本帖最后由 少年游 于 2010-12-10 22:31 编辑 5 T% ^' c9 @7 O+ U0 u9 E
9 S: b! t: a4 d5 d" ?# A
不好意思，没注意有人解释了。我的东西删除。
5 ]: p1 g6 @# ?8 n( n
作者: dero    时间: 2010-12-11 23:24
這東西真的實用嗎？真的不懂，宏程序要系統邊算邊加工，有直接給他指令來的快嗎？說法不一。。。
作者: yxz4538    时间: 2010-12-12 10:25
还是用MASTERCAM快...............
作者: chenhang1101    时间: 2010-12-12 17:23
不是很同意楼上的见地啊～！宏程序这么经典的东西，怎么能用MASTERCAM 来替换，那你不说UG 更安逸～！
作者: longcung2    时间: 2010-12-12 19:27
呵，这个啊，这来只是来顶一下，
作者: a345698466    时间: 2010-12-12 21:00
帮你顶起来,且关注高手讲解
' s) b0 H3 I$ m- Z- _7 ]2 o
作者: chr.sk    时间: 2010-12-16 19:29
好强的宏程序，
作者: hyji2006ren    时间: 2010-12-17 14:54
种类多了用宏程序还是挺方便的!!!!
作者: 爱数控    时间: 2011-1-16 10:55
一般一般一般一般一般
作者: yyjj77    时间: 2011-1-17 21:53
准备学习  表示鸭梨很大呀...
5 v" b+ v5 P  x6 x, D6 C- F高手快来指点呀!!!
作者: 马斯平    时间: 2011-1-18 18:25
这个是比较简单的变量运用，可以说没有任何难度。
作者: hhjun2010    时间: 2011-1-19 10:30
期待高手出现。期待高手出现。期待高手出现。
作者: 七宝妙树    时间: 2011-1-20 00:12
宏不是很懂" j# k0 n* y/ @' f" N
应该和C语言差不多吧！！！
作者: yyjj77    时间: 2011-1-20 18:30
顶一下，学习了!!!
5 ^. e/ d' m( n, i8 f9 P( t还是有高手啊
作者: 1964252    时间: 2011-3-4 22:09
宏程序很复杂，不认真看还真看不明白，跟计算机C语言有共同点。
作者: liming344    时间: 2011-3-4 22:19
顶，请高手讲下~~看不明白
作者: 1149073415    时间: 2011-3-5 22:00
    没什么。呵呵。很一般。你只是把系统的运算功能有上了。可是你恰恰把他复杂化了，宏的最大特点就是可以改变程式的流向。还有它能节省系统空间。省语句。这是软件不能比的。比如说。一个锥孔。宏也就几句程式就搞定。但软件要几百个程式段都不行。我看你变得程式没意义！！！！
作者: 少年游    时间: 2011-3-5 22:21
12楼的大侠解释的很全面，11楼大侠的说法，我不太同意，使用往复循环，还是用条件语句并不重要，关键是用那一个更熟练、更顺手。而且像OKUMA系统没有while___DO语句，你怎么办？希望和12楼的大侠多多联系。
作者: 810523282    时间: 2011-3-6 13:59
我也想学这个
作者: p2141759210    时间: 2011-3-6 18:31
挣点威望...顶个  嘿嘿
! H# i$ o  ~( V3 x% u, u- _. b/ z; q: a" |7 O: c; T' B5 \. m准备学习  表示鸭梨很大呀...
7 g  n9 D9 K7 A8 U/ [- k
作者: cqsztnw    时间: 2011-3-7 19:13
顶一下，刚搞编程，没多久 对宏程序不了解
作者: jiangssli    时间: 2011-5-11 09:15
关于是使用WHILE-DO-END还是用IF-GOTO语句更好的问题,使用IF的时候系统搜索寻找的时间比直接用WH的时间略长,如果是有很大的计算量的时候建议使用WH,可以提高系统响应能力,加工中减少停顿...只是很多时候我们都是根据习惯和使用的熟悉程度来使用的,很是注意这样的问题...
作者: ssxko88    时间: 2011-5-11 18:32
压力的确大！看了2本数车说明书学了点以为数控学得差不多了～结果发现很多不会。; \. @. X; C5 y
看来先学好简单点的数车再往下学了！
作者: ymf381241440    时间: 2011-5-11 22:15
我也想学   帮你顶起来8 }( Z  u- c5 N5 i9 N: E) [
作者: 810523282    时间: 2011-5-18 08:44
期待版主出来说说  长期关注
作者: youxiare    时间: 2011-5-27 23:23
很简单的宏语句' @( m. i/ u5 S$ @% ^% w' C
好好看看就懂 了
作者: china00blue    时间: 2011-5-28 09:18
帮你顶起来,且关注高手讲解
作者: 野独狼    时间: 2011-5-28 10:01
8 M' |+ E% O" ?/ v3 w8 r) i
（HUAHUI-GAN )$ B, |% d& c6 U3 [( @& u9 B
G90 G54 M3 S3000
, Q& d, b# z3 v! E9 D1 ~#500=1100.
2 Z4 F: G! Q2 p4 g(CHANG  DU )    #500是平面的长度1100MM2 ]6 F( m* b0 o2 k; H* t  c! \$ G, @6 H
#501=310 .
" l1 n. g5 \7 O& Q(KUAN  DU)      #501是平面的宽度310MM
/ P7 ]( `$ Z2 Z+ p9 X* ?8 `" A#502=50.% a8 p% {" i& ~0 I( `# l
(BAN  JING)     #502是加工所用刀具的直径50MM
+ i6 ^0 j4 q, H! [9 _0 G(START)          开始加工了6 B/ s8 \- f$ q6 H) W' s, ]+ ]
1 w& K. L/ H1 q  Y, d" p5 k

1 f8 A' w6 u7 Z( f8 e; D7 z# j+ r) `
#503=2.- M* ?6 f: Q, }, m! L
#504=0.
: R: ~$ x) v. u8 e% N#100=00 l5 l0 c+ E# @1 ?# o4 L6 F, c- Z! W1 ]
#101=0.          * @2 ^+ q8 N. b
#101=-#1012 ^% D$ U, X( C
#502=#502*0.8/ l' F9 B& {6 {( @4 Y
#102=-#5024 D7 E2 G8 ~1 V& k- _$ D% ~
  ~. j3 C! `4 C" ^( c6 C

- i: _# F0 N! z  X' Q% Q2 |0 b
, x9 L! S& p+ P$ _' }9 f$ J#501=FUP[#501/#502]* #502     这事告诉程序 如果要加工的宽度不是整数是 程序自动取小数点钱的整数，后边的一概舍弃; K4 o4 V; H7 P; j! ?% {7 G
N10  G0 Z100.- p; X% S3 t2 z$ {9 k* Y

; j8 E, R- p! t6 {. C- |& C        X0 Y#102              程序下刀点的位置 X0Y-40./ G& ~" {2 o$ p6 M: O. N

( ]+ d9 e' t, _* }, A      Z15.                                                   
, u: m# L. ], C+ o" P6 H% uG1 Z-#101 F2000                G1方式下Z0                     #102=#102+#502 / r2 t- l/ d! c+ ^: I' I
N20   #102=#102+#502           计算走刀间距  此时的#102是-80  -80= -40 + -40
5 s. J/ {7 ~" e! a) S) ^% F IF[#102GT#501]GOTO 100         当#102被所赋予的值大于你的平面宽度是程序跳到N100开始执行
* K7 y0 L- E2 r Y#102                          Y-80." D8 O6 C  c1 ^
      X#500                     X1100                            #102=#102+#502 5 B( T9 z! O3 K! a
      #102=#102+#502             计算走刀间距  此时的#102是-120  -120= -80 + -40
! }# E) r1 e0 `7 T: F1 E5 z  IF[#102GT#501]GOTO 100       当#102被所赋予的值大于你的平面宽度是程序跳到N100开始执行  8 m$ `/ `1 M, Y5 Z
      Y#102                       Y-120.
0 R( @/ |0 Y2 z% t" K      X0                          X0.
. P8 Q% g8 o( V4 R   IF[#102LE#501]GOTO 20         当#102被所赋予的值小于你的平面宽度是程序跳到N20开始执行
# ]% z0 N: i" o0 s! L4 p2 VN100   #101=#101+#503                      4 O; `) U4 j) |! u& O
IF[#101LE#504]GOTO 10             当#101被所赋予的值小于等于#504是程序跳到N10开始执行  & u- K  h: `% ^2 V2 m" ?
#100=#100+19 a. s" {, V& `  _& d, E. z4 f
#101=#504& ~) R7 d2 y0 t) ]& l$ ~
IF[#504EQ1]GOTO 10+ t; H! ~- c0 v& w/ I
     G0  Z100.
' V7 m3 i: u& j! W' W1 K     M05  V% k: @1 M% F
M30
4 X; x7 A- n1 s* }  程序的G54坐标在工件的左上角! c. V1 z; ]1 ]/ ~0 b: O' N9 I
你自己下一个宏程序指令含义解释就明白了
作者: 李东ld    时间: 2011-5-30 11:20
学习了。您的帖子长度不符合要求。 当前长度: 6 字节系统限制: 20 到 10000 字节
作者: seantech    时间: 2011-6-3 13:55
这应该时内部程序   宏变量赋值运算
作者: lianghua42    时间: 2011-6-3 21:47
只认识字母···············
作者: TIANHANG    时间: 2011-6-19 12:47
挣点威望...顶个 ！我也想学这个，，哪位高手帮助一下好强的宏程序，一连串就是
作者: 老飘    时间: 2011-6-21 22:21
本帖最后由 老飘 于 2011-6-21 22:22 编辑
" H  Y& G* G1 J( B9 N
. o' h$ g: B1 y' e3 p1 W回复 uwycui 的帖子9 x4 Y+ c  P' J/ p7 ?% M
/ r# G8 D, W8 i0 s
括号里的拼音是否可以省略啊???
作者: jiangssli    时间: 2011-6-22 08:45
回复 野独狼 的帖子
( ]: x: }, e$ E* `- @$ g/ H+ s7 n  N9 R2 t7 L$ d/ \
FUP这个函数功能,阁下解释错误!#1=1.234 #2=FUP[#1]  这里的#2的值应该是2 而不是1  你把FUP  和 FIX 搞反了!
作者: 野独狼    时间: 2011-6-22 08:56
不好意思 各位 大虾 小弟理解出错 谢谢大家点评 下次一定注意
& P; ^# N* `& P
作者: jiangssli    时间: 2011-6-22 16:42
回复 seantech 的帖子
+ A- x: b/ |' e" A3 n+ `( U. b
这个还达不到内部宏程序的标准!程序思路不严谨!容错性也不好!
作者: jiangssli    时间: 2011-6-22 16:44
回复 老飘 的帖子
2 v2 @4 ?9 g; B! w0 C+ \+ T% @6 B0 R5 o7 B* e7 |
()这样的括号里面的文字是注释说明而已,不运行的!可以取消,或者根据你的需要更改成其他!
0 h- P" B% u; A* q/ b' r$ R$ z% L8 M( n# r, c, Q
作者: 土包子。。。    时间: 2011-6-22 20:58
头晕了  眼花了   找个高手去拜师了
作者: nihaoqiuzhang    时间: 2011-7-24 14:45
真是吃饱了没事做、、、、铣个平面绕这么多弯5 ~% G0 x0 i) N: u% F1 M
宏程序是寻求程序的精简达到加工的目的、、、、而不是用繁琐是代码来体现你编程有多牛X
作者: xiaoniao187    时间: 2011-8-22 15:53
哎  楼主能否教教我宏程序的入门啊  一点都看不懂啊
作者: C13406    时间: 2011-8-22 20:08
帮你顶起来,且关注高手讲解
+ @& c8 Q5 j4 B, l7 A& l9 a7 u学习了
作者: 492050068    时间: 2011-8-28 03:39
哥们，你这程序编的怎么看怎么别扭 不过看明白了，应该是挖一个跟长城一样的槽子，只不过口再不断的变大。我对你的程序改动了一下，这样你能看的更明白
$ _6 p- L& o* f: k8 DN10G0Z100
5 w9 k' g, M1 g; T( X* Y4 mX0Y#1021 R- l' y/ \5 f5 I
Z157 B5 H6 D+ C9 X: Z" I7 @
G01Z-#101F2000
2 [: o4 \0 J( ^9 @0 n* a: B/ K1 {3 iN20#102=#102+40
: V$ ]; C+ ?& HY#2
$ M; H8 p2 T6 j; QX#5007 c, \9 n, G* C3 r$ S  r& D( s
#102=#102+40
1 \5 m; \& m5 |. f! t3 I" EY#102
% D% W* J5 _, a! jX#500
6 R7 m. q4 M. l1 \( ]5 ]0 ]% DIF[#102LE280]GOTON20
+ B; g& d+ R9 h( H$ U9 vN100#101=#101+#503& I$ P6 Q* O5 ?' Z1 l$ ^6 j* G
IF[#101LE#504]GOTO10& F* }$ s$ t. m, C
#100=#100+1
5 i1 m( m: w* C# f& f2 ~8 N#101=#504
5 m# M# L2 n* @4 n/ P) ?" i) lIF[#504=1]goto10
# w1 m+ Y- y) g) A1 u" m+ y7 Y  ]7 C# G# d
5 u3 O1 }8 ~( ]3 F
作者: feng91502    时间: 2011-8-28 13:20
大概能看懂一点点
9 Y. |2 G& @. u) d3 g2 c
作者: xudaji07    时间: 2011-8-30 10:54
都是高手啊！学习学习
作者: 爽歪歪沙    时间: 2013-11-10 10:03
帮你顶起来
作者: br-denghg    时间: 2013-11-24 12:22
野独狼的解答应该是能满意的啊!
作者: qqqallan    时间: 2013-11-25 23:21
初学者   求高手。。。
作者: 夜总是要来的    时间: 2013-11-26 10:20
认认真真的看了遍，楼主的程序还是有点问题的
& Q4 N9 b6 ^7 q
1 d! G& N* M) W: a, O: t2 `- N3 Y# F7 \0 r
再认认真真的读了遍回帖，想评个分发现居然是3年前的东西。。。
作者: hewei123    时间: 2013-11-26 16:31
很难吗？ 难，不过给我点时间还是能研究出来的
作者: 我爱冰红茶    时间: 2013-11-29 15:23
我也想学。。



欢迎光临 机械社区 (http://www.cmiw.cn/) Powered by Discuz! X3.4