公开铜公自动程式的GRIP原代码

yurenxin · 发表于 2011-6-7 13:12

本帖最后由 yurenxin 于 2011-6-7 13:25 编辑

自用自编的一组铜公开粗和大身小身光刀的自动程式原代码,已经用此写过百来个铜公程式。
由于是自己用，所以写得比较粗糙, 没有多去优化了。程式中的_box子程式在附件中。谢谢大家！
entity/elehead(100),nc_check(100),nc_blank,pt_start,ds_face,$
   floor_,CLRC,ptwcs(3),wcs1,surf9
number/pp(6),depth1(20),top_level(3),XSIZE,YSIZE,XCEN,YCEN,ZTOP,t2
string/hwf(6),hwr(10),T_2(12),T_3(16),T_4(12),T_5(16),$
   t_3D(8),t_3R(8),t_5D(8),t_5R(8)
$$ data/depth1,0.05,0.11,0.1,0.15,0.15,0.15,0.15,0.15,$
$$ 0.15,0.15,0.15,0,0,0,0,0,0,0,0,0
xz:
      f=-0.05
      r=-0.15
t2=0
t21=0
      t3=0
      t4=0
      t5D=0
      t5R=0
   PARAM/'自定义火花位','幼公火花位：',f,$
'二次开粗刀具直径：',T2,$
'三次开粗刀具直径：',T21,$
      '球刀规格： D=2R',T3,$
'平底刀规格： D',T4,$
'圆鼻刀规格： D-R',T5D,$
'             ',T5R,$
                     respond
jump/xz:,stop:,,,respond
   hwf=substr(fstrl(f),1,5)
   hwr=substr(fstrl(r),1,5)
   ifthen/t2==intf(T2)
   T_2='D'+istrl(intf(T2))
   else
T_2='D'+fstrl(T2)
T_2=substr(T_2,1,fndstr(T_2,'0',4)-1)
   endif
   ifthen/t3==intf(T3) and t3/2==intf(T3/2)
   t_3D='D'+istrl(intf(T3))
t_3R='R'+istrl(intf(T3)/2)
   elseif/t3==intf(T3)
   t_3D='D'+istrl(intf(T3))
T_3r='R'+fstrl(T3/2)
T_3r=substr(T_3r,1,fndstr(T_3r,'0',4)-1)
   else
T_3D='D'+fstrl(T3)
T_3D=substr(T_3D,1,fndstr(T_3D,'0',4)-1)
T_3r='R'+fstrl(T3/2)
T_3r=substr(T_3r,1,fndstr(T_3r,'0',4)-1)
   endif
T_3= t_3D+t_3R
T_4='D'+fstrl(T4+2*f)
T_4=substr(T_4,1,fndstr(T_4,'0',4)-1)
   ifthen/T5D==intf(T5D)
   T_5D='D'+istrl(intf(T5D))
   else
T_5D='D'+fstrl(T5D)
T_5D=substr(T_5D,1,fndstr(T_5D,'0',4)-1)
   endif
   ifthen/T5R==intf(T5R)
   T_5R='R'+istrl(intf(T5R))
   else
T_5R='R'+fstrl(T5R)
T_5R=substr(T_5R,1,fndstr(T_5R,'0',4)-1)
   endif
   T_5=T_5D+T_5R
MK:
mask/70
   ident/'选择铜公实体',SCOPE,WORK,elehead,CNT,ELENUM,RSP
mask/71
   ident/'选择大身面',SCOPE,WORK,ds_face,CNT,ELM,RSP
jump/MK:,stop:,,res
   CALL/'_BOX',elehead,pp,elenum
   XSIZE=ABSF(PP(1)-PP(4))
   YSIZE=ABSF(PP(2)-PP(5))
   XCEN=(PP(1)+PP(4)) /2
   YCEN=(PP(2)+PP(5))/2
   ZTOP=PP(6)
   ptwcs(1)=point/xcen,ycen,ztop
   ptwcs(2)=point/xcen+1,ycen,ztop
   ptwcs(3)=point/xcen,ycen+1,ztop
   &CSMODE=2    $$临时坐标系
   WCS1=CSYS/ptwcs(1),ptwcs(2),ptwcs(3)
   &WCS=WCS1
   DELETE/ptwcs(1),ptwcs(2),ptwcs(3)
   CALL/'_BOX',elehead,pp,elenum
draw/off
nc_blank=SOLBLK/ORIGIN,pp(1)-1,pp(2)-1,pp(3),$
SIZE,ABSF(pp(1)-pp(4))+2,ABSF(pp(2)-pp(5))+2,ABSF(pp(3)-pp(6))
pt_start=point/0,pp(2),pp(3)
floor_=plane/xyplan,pp(3)
CLRC=PLANE/XYPLAN,15
&COLOR(nc_blank)=2
&LAYER(nc_blank)=255
&LAYER(pt_start)=255
&LAYER(floor_)=255
&LAYER(CLRC)=255
&LYRVIS(255)=&no
draw/on
  &MODULE = &MACH
&MCS=&WCS
&OPTSET='D:\Program Files\ugS\NX 4.0\MACH\resource\template_set\cam_general.opt'
F01: $$$$$$$$$$$$$ 幼公开粗 $$$$$$$$$$$$$$$$
   OPER/NEW,OPNAME,'cav'+hwf,  'mill_yu', 'cav',iferr,err001:
      &TNAME = 'D10c'
   opgeom/glist,part,IFERR,err002:
opgeom/gitem,elehead(1),IFERR,err002:
OPGEOM/glist,blank ,IFERR, err003:
opgeom/gitem,nc_blank,IFERR,err003:
OPGEOM/glist,CUTST,IFERR, err003:
opgeom/gitem,pt_start,IFERR,err003:
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &SSTOCK =f+0.21          $$部件余量设置
   &GENPTH=&yes
   OPER/ SAVE
$$$$$$$$$$$$$大身开粗$$$$$$$$$$$$$$$$$
      OPER/NEW,  'mill_yu', 'C_DS_0.1',iferr,err001:
      &TNAME = 'D10c'
opgeom/bnd,part,start,IFERR,err002:
&IGRHOL = &yes
&IGRISL = &yes
opgeom/face,ds_face,IFERR,err002:
OPGEOM/BND,END
OPGEOM/glist,CUTST,IFERR, err003:
opgeom/gitem,pt_start,IFERR,err003:
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &PSURF = floor_
      &GENPTH=&yes
      OPER/ SAVE ,IFERR,err003:
if/T2+0,F011:,F02:,F011:
F011: $$$$$$$$$$$$$ 幼公二次开粗 $$$$$$$$$$$$$$$$
$$ print/'二次开粗刀具: '+t_2
   OPER/NEW,OPNAME,'cavs'+hwf,  'mill_yu', 'cavs',iferr,err001:
   &TNAME = T_2
   opgeom/glist,part,IFERR,err002:
opgeom/gitem,elehead(1),IFERR,err002:
OPGEOM/glist,CUTST,IFERR, err003:
opgeom/gitem,pt_start,IFERR,err003:
      &HORCLR = t2/2
  &AURADS = t2/2
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &SSTOCK =f+0.15          $$部件余量设置
      &GENPTH=&yes
      OPER/ SAVE
F02: $$$$$$$$$$$$$光大身$$$$$$$$$$$$$$$$$
      OPER/NEW,  'mill_yu', 'G_DS',iferr,err001:
      &TNAME = 'D10J'
opgeom/bnd,part,start,IFERR,err002:
&IGRHOL = &yes
&IGRISL = &yes
opgeom/face,ds_face,IFERR,err002:
OPGEOM/BND,END
OPGEOM/glist,CUTST,IFERR, err003:
opgeom/gitem,pt_start,IFERR,err003:
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &PSURF = floor_
      &GENPTH=&yes
      OPER/ SAVE ,IFERR,err003:
F03:  $$$$$$$$$$$$$幼公光小身$$$$$$$$$$$$$$$$$
   OPER/NEW,OPNAME,'g_xs'+hwf, 'mill_yu', 'G_XS',iferr,err001:
      &TNAME = 'D10J'
opgeom/bnd,part,start,IFERR,err002:
&IGRHOL = &yes
&IGRISL = &no
opgeom/face,ds_face,IFERR,err002:
OPGEOM/BND,END
OPGEOM/glist,CUTST,IFERR, err003:
opgeom/gitem,pt_start,IFERR,err003:
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &PSURF = ds_face
      &SSTOCK =f             $$部件余量设置
      &GENPTH=&no
   OPER/ SAVE ,IFERR,err003:
if/T3+0,F04:,stop:,F04:
F04: $$$$$$$$$$$$$ 幼公球刀光刀$$$$$$$$$$$$$$$$
      OPER/NEW,OPNAME,'R'+hwf,  'mill_yu', 'ZLE_D',iferr,err001:
      &TNAME = t_3
      opgeom/glist,part,IFERR,err001:
opgeom/gitem,elehead(1),IFERR,err002:
      &CLRST= &ACTIVE    $$激活安全平面设置
      &CLRPL=CLRC       $$定义安全平面
      &SSTOCK =f          $$部件余量设置
      &GENPTH=&no
      OPER/ SAVE
$$IF/T3<>0,print/'精加工刀具：  '+t_3
$$IF/T4<>0,print/'精加工刀具：  '+t_4
$$IF/T5D<>0,print/'精加工刀具：  '+t_5
stop:
halt
err001:
      messg/'OPER/NEW!'
jump/ERR:
err002:
      messg/'part!'
jump/ERR:
err003:
      messg/'blank!'
jump/ERR:
err004:
      messg/'d!'
jump/ERR:
ERR:
DELETE/pt_start,floor_,CLRC,nc_blank
jump/stop:

yurenxin · 发表于 2011-6-8 10:28

如果对大家有用就帮忙顶一顶啊，人气好的话后面还会上传一些自己原创的代码。

wangcongwei1002 · 发表于 2011-6-8 12:30

恩，这个非常好，研究下，谢谢

285261377 · 发表于 2011-6-8 13:55

这个非常好

ZHONGZ · 发表于 2011-6-9 09:43

顶顶更健康，

ffh · 发表于 2011-6-10 10:59

来学习一下。

qxglove · 发表于 2011-6-19 16:15

这个很好啊，学习中，顶一下。

lhm188490189 · 发表于 2011-6-20 15:44

本人很菜，搞不出来

lhm188490189 · 发表于 2011-6-20 15:50

本人很菜，搞不出来，也得顶，看能不能顶个box.grx出来.

liuwenlun · 发表于 2011-6-26 23:02

顶。。。。。

		自动登录	找回密码
密码			注册

[原创] 公开铜公自动程式的GRIP原代码

评分

点评