GRIP做的一个程序单,征求大家的意见.有源代码

接着::

这是结尾部分....

JUMP/ZJ0:,END:,,,ZJ1:,ZJ2:,ZJ3:,ZJ4:,RSP

ZJ1:
note/173.5,152,ztype(2)
&CFONT=93
&csize=3.5
JUMP/T10:

ZJ2:
note/173.5,152,ztype(3)
&CFONT=93
&csize=3.5
JUMP/T10:

ZJ3:
note/173.5,152,ztype(4)
&CFONT=93
&csize=3.5
JUMP/T10:

ZJ4:
&csize=6.
&CFONT=106
TEXT/'装夹方式',zj,rsp
note/173.5,152,zj
&CFONT=93
&csize=3.5
JUMP/ZJ4:,END:,T10:,,,RSP

$$    JUMP/END:
$$   标题栏的选择
T10:
&DECPL=4
&csize=2.6
&CFONT=93
&ensite=5
&TLWID=3
dt=&CRDATE
note/182,234,dt
&csize=3.0
pn=&PNAME
note/104,234,pn
&ensite=4
fn=&PSPEC
note/38,12,fn
&ensite=5

$$  T10:
TEXT/'请输入模具编号*默认为TS09#',md,RSP
IF/LENF(md)==0,md='TS09#'
     note/48.5,234,md
   JUMP/T30:,END:,,,,RSP







L10:
&csize=3.0
&CFONT=93
TEXT/'请输入工作坐标在X方向的取数*X0的位置',xa,RSP
  &ensite=4
    note/156,183, 'X方向'
IF/LENF(xa)==0,xa='分中'
     note/166,183, xa
   JUMP/L20:,END:,,,,RSP

  L20:
   TEXT/'请输入工作坐标在Y方向的取数*Y0的位置',ya,RSP
     note/156,177, 'Y方向'
IF/LENF(ya)==0,ya='分中'
     note/166,177, ya
   JUMP/L40:,END:,,,,RSP

  L40:
   TEXT/'请输入工作坐标在Z方向的取数*Y0的位置',za,RSP
     note/156,171, 'Z方向'
IF/LENF(za)==0,za='对顶为零'
     note/166,171, za
  &ensite=5
   JUMP/END:

END:
&SYSCLR=2
&ENTCLR=2
HALT

[ 本帖最后由 shi10.05 于 2007-3-31 15:30 编辑 ]

我朋友说了,只是为了交流.

要是大家觉得有用,可以把全部源代码送出,这样就可以根据自己的意思选择默认选项,也就不用再担心这担心哪了.    有了源代码,大伙都是明白人,对不??

[ 本帖最后由 shi10.05 于 2007-3-31 14:18 编辑 ]

txt.GRX的源代码我友说局限太大,还没弄好,就先不上传了,以免大家笑话......



如果大家觉得有用的话,就不必担心airen兄提到的要相应的后处理了.制作*.xl文件的后处理我这里有,不带NC码,处理出来就一个*.xl文件,而现在的cnc.grx就只要一个*.xl文件

[ 本帖最后由 shi10.05 于 2007-3-31 15:32 编辑 ]

这个程序单的缺陷就是过于依赖后处理了,
通过宏加GRX来调用，删掉不要的信息,再自动加一些需要的,
也能完全达到自动.偶也用的这个.


不会开发内部程序单,泪奔.

顶，我再顶，能不能把完整的源代共享给我啊，先谢谢了，我的邮箱ccj..ccj@163.com

好人一生平安

利害!

兄弟，能不能把完整的源代共享给我啊，先谢谢了，我的邮箱wupeng_888520@163.com

...哥哥．．．．能不能发几个经典源代码给我玩！！
油箱．．．shinhwakiki@163.com
谢谢

花时间顶老铁!!!!!!