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

一友用GRIP做了一个UG的程序单,还不完善,请这里的各位老大提提意见和建议,以便更加完善,先谢谢大家!!
    顺便说明一下,此程序单唯一需要有一个含有程序信息的文本文件,如*.dat,*.txt,*.xl。

    在此,特要向热心的sy_kbice表示感谢!非常感谢他在2007年2月26日提供给我友UG／Open GRIP实用编程基础.pdf一书.

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

2/3,3/3

頂！！！

没人顶,自己来顶一下.

希望看过的朋友说说看法,看哪些地方还需改进,要是大家觉得有用的话,会共享给大家的

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

顶一下，完善后再下

做得不錯
好貼就得頂

这些都是东江流传出来的。基本一个模式

使用价值不大。。因为要合适的后处理（且流传出来的批处理很慢，所以只有部分人合适）

偶最新的UG内部程序单，不需要后处理。。适合所有UG使用者。速度永远比较快

原帖由 airen 于 2007-3-31 10:49 发表
这些都是东江流传出来的。基本一个模式

使用价值不大。。因为要合适的后处理（且流传出来的批处理很慢，所以只有部分人合适）

偶最新的UG内部程序单，不需要后处理。。适合所有UG使用者。速度永远比较快

只持只持，就是冲着这个和刻字，俺也来一套正版的。。。就是价格有点点贵，，，呵呵。。。。。

原帖由 ahongzai 于 2007-3-31 12:51 发表



只持只持，就是冲着这个和刻字，俺也来一套正版的。。。就是价格有点点贵，，，呵呵。。。。。

  或许是对你用处不大的缘故吧

五月一日开始将涨价100   

2007.5.1 以后电极模块一套500元/套 （含软件锁，可任意电脑移动使用）

原帖由 airen 于 2007-3-31 10:49 发表
这些都是东江流传出来的。基本一个模式

使用价值不大。。因为要合适的后处理（且流传出来的批处理很慢，所以只有部分人合适）

偶最新的UG内部程序单，不需要后处理。。适合所有UG使用者。速度永远比较快

alongzai兄,airen兄,久仰大名.我在网上看到个两位的大作,受益非浅,借此机会深表感谢!

可我这外挂真的是我朋友做的,现在把  cnc.grx的部分源代码上传,虽然不及alongzai兄和airen兄的好,但确实是自己做的......要是alongzai兄和airen 兄肯指正其中的缺陷,那我替大伙先谢谢你了...发此贴的目的是为了征求大家的意见,以便做得更好...

我在网上怎么没看到东江的源代码呢??还请知道的朋友告之一二...


$$  制作图框  
$$  施 工
$$  2007-03-23

ENTITY/ln(60),GRP1
STRING/cnc(30),MENU(4,20),mtype(3,20),ztype(5,20),wpn(11,30)
STRING/md(30),wp(30),wn(30),au(30),jt(30),xa(30),ya(30),za(30)
STRING/zj(30),fn(30),pn(30),dt(30)
STRING/x1(30),y1(30),z1(30),xyz1(30)
DATA/MENU,'请选择加工材料的类型',$
         '钢    料',$
         '铜    料',$
         '其    他',$
    mtype,'请选择机床类型',$
         '普 通 机',$
         '高 速 机',$
    ztype,'请选择装夹类型',$
           '锁  板',$
           '压码仔',$
           '虎 钳 ',$
           '其 他',$
     wpn,'请选择工件名称',$
          '前 模 仁',$
          '后 模 仁',$
          '前 模 板',$
          '后 模 板',$
          '前模铜公',$
          '后模铜公',$
          '前模滑块',$
          '后模滑块',$
          '斜   顶',$
          '其   他'
         
DATA/X,0,Y,0,Z,0,J,1,RO,0,SH,1,RN,0.20,SN,0.10

TILE:
TEXT/'请输入程序单名称*默认为NC_sheet',cnc,rsp
JUMP/TILE:,END:,,,,RSP
IF/LENF(CNC)==0,cnc='NC_sheet'


$$程序单制作开始
$$ GRDDSP/off
&ENSITE=5
LAYER/work,108
DRAW/on
DRAWC/cnc,MMETER,297,210


$$ 工件机床类型
&csize=3.
&TLWID=3
$$  &ENSITE=4
MT0:
CHOOSE/mtype(1..3),DEFLT,1,RSP
JUMP/MT0:,END:,,,MT1:,MT2:,RSP

MT1:
NOTE/185,240.5,'普 通 机'
JUMP/PP:

MT2:
NOTE/185,240.5,'高 速 机'
JUMP/PP:

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