回复:某程序840D系统执行的不可理解

ago

  • 帖子

    138
  • 精华

    9
  • 被关注

    0

论坛等级:游士

注册时间:2003-10-05

普通 普通 如何晋级?

发布于 2004-11-04 22:33:45

0楼

补充一下,如果你对FULL圆不了解,可以参考我写的加工一个环形槽的子程序来看看。
这个程序是我自己编写的,在SIEMENS840D上面已经加工过了好个阀体了,没有问题的说。
你自己研究一下吧,如果你是840D的系统,可以拿去直接使用的,没有问题。
使用注意:我所假设的槽位于零件的最断面,不包括止口深度什么的。在退Z的时候,如果Z15小了,你可以加大,以防止干涉。这是根据我以前负责的产品写的,有时候具体情况要具体修改一下,我没有写成全参数化的了。当时偷懒了一下,其实可以写成CYCLE那种形式的,但是我没有,你要注意了。
===================
%_N_XHC_SPF
;$PATH=/_N_SPF_DIR
PROC HUAN_XING_CAO(REAL DA_JING,REAL XIAO_JING,REAL CAO_KUAN) SAVE

;MUST DEFINE R90,R91,R92,R93,R94,R95,D1,D2
;D1 FOR DA_JING
;D2 FOR XIAO_JING
;R90 R91 IS THE HOLE'S CENTER PLACE
;R92 IS THE HUAN_XING_CAO DEEPTH

DEF REAL DA_JING,XIAO_JING,CAO_KUAN

IF (CAO_KUAN/2)<$A_TOOLR
MSG("There is a wrong ! Tool_Radius is bigger than a half of cao_kuan !")
M0
M2
ELSE
D1 ;FOR DA_JING
S=R93 M3
M8
G0 X=R90 Y=R91
Z15
G1 G42 Y=IC(DA_JING/2) F=R95
Z=AC(-R92)
G2 G64 I=0 J=-DA_JING/2
G0 Z15
G0 G40 X=R90 Y=R91
D0
D2 ;FOR XIAO_JING
G1 G41 Y=IC(XIAO_JING/2) F=R95
Z=AC(-R92)
G2 G64 I=0 J=-XIAO_JING/2
G0 Z15
G0 G40 X=R90 Y=R91
D0
D1
M5
M9
STOPRE
ENDIF
M17
评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SINUMERIK

共有25500条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

  • 分享

  • 只看
    楼主

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。