求助 808D加工中心

已锁定

手机用户20240608330177

  • 帖子

    3
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2024-06-08

普通 普通 如何晋级?

求助 808D加工中心

1098

9

2024-06-20 14:51:26



各们大师好,我是新新手,入手广告加工中心好久了,直排自动换刀4把,现在总是不够用了,发现机器预留的8个位置,想要加到8把,自己再手工DIY4个刀位,厂家要自己过来,费用2万不止,不划算了,下面是自动换刀LL1.SPF的代码,确是8把刀,但是我新建 的5678刀按循环启动,它就是不动,各们大师有什么办法没有?是不是哪里设置禁止了?

PROC LL1 SAVE

;********************************

IF $P_ISTEST     GOTOF  _END1   

IF $P_SEARCH<>0  GOTOF  _END1   

IF $C_T>4        GOTOF  _END1

IF $A_DBB[2]==1  GOTOF  _END2


;********************************

IF $P_TOOLNO==$C_T  GOTOF INFO1    ;

IF $A_DBW[0]==4     GOTOF INFO3 ;

;********************************

G290

D0

G153 G00 G90 Z=0


IF ($C_T==0) AND ($P_TOOLNO<>0) GOTOF  T_RET 

IF ($C_T<>0) AND ($P_TOOLNO==0) GOTOF _GET_T      

IF ($C_T<>0) AND ($P_TOOLNO<>0) GOTOF _EXC_T

;********************************

_EXC_T:

M05



GOTOF _T_RET 

;*****************************TO

T_RET:

M05


_T_RET:


MSG("Z轴回到换刀位")

G153 G01 G90 D0            

;*****************************T1

IF ($P_TOOLNO==1)

G153 G0 X=R101 Y=R173

ENDIF             

;*****************************T2

IF ($P_TOOLNO==2)

G153 G0 X=R102 Y=R173

ENDIF            

;*****************************T3

IF ($P_TOOLNO==3)

G153 G0 X=R103 Y=R173

ENDIF            

;*****************************T4

IF ($P_TOOLNO==4)

G153 G0 X=R104 Y=R173

ENDIF            

;*****************************T5

IF ($P_TOOLNO==5)

G153 G0 X=R105 Y=R173

ENDIF            

;*****************************T6

IF ($P_TOOLNO==6)

G153 G0 X=R106 Y=R173

ENDIF            

;*****************************T7

IF ($P_TOOLNO==7)

G153 G0 X=R107 Y=R173

ENDIF            

;*****************************T8

IF ($P_TOOLNO==8)

G153 G0 X=R108 Y=R173

ENDIF                      

;*****************************T1

IF ($P_TOOLNO==1)

G153 G01 G90 Z=R151 F10000

G153 G01 G90 Y=R131 F=R174

ENDIF

;*****************************T2

IF ($P_TOOLNO==2)

G153 G01 G90 Z=R152 F10000

G153 G01 G90 Y=R132 F=R174

ENDIF

;*****************************T3

IF ($P_TOOLNO==3)

G153 G01 G90 Z=R153 F10000

G153 G01 G90 Y=R133 F=R174

ENDIF

;*****************************T4

IF ($P_TOOLNO==4)

G153  G01 G90 Z=R154 F10000

G153  G01 G90 Y=R134 F=R174

ENDIF

;*****************************T5

IF ($P_TOOLNO==5)

G153  G01 G90 Z=R155 F10000

G153  G01 G90 Y=R135 F=R174

ENDIF

;*****************************T6

IF ($P_TOOLNO==6)

G153  G01 G90 Z=R156 F10000

G153  G01 G90 Y=R136 F=R174

ENDIF

;*****************************T7

IF ($P_TOOLNO==7)

G153  G01 G90 Z=R157 F10000

G153  G01 G90 Y=R137 F=R174

ENDIF

;*****************************T8

IF ($P_TOOLNO==8)

G153  G01 G90 Z=R158 F10000

G153  G01 G90 Y=R138 F=R174

ENDIF

;*****************************

MSG("主轴松刀")

M51

G4 F2

MSG("Z轴退到刀库安全位置")

G153 G00 G90 Z=R172

IF ($C_T<>0) GOTOF  T_GET

G153 G00 G90 Y=R173

G153 G00 G90 Z0

GOTOF _END

;******************************

_GET_T:

M05


WAITS

;*****************************T1

T_GET:


IF ($C_T==1)

G153 G00 G90 X=R101

WAITS

G153 G00 G90 Y=R131 

ENDIF

;*****************************T2

IF ($C_T==2)

G153 G00 G90 X=R102

WAITS

G153 G00 G90 Y=R132 

 ENDIF

;*****************************T3

IF ($C_T==3)

G153 G00 G90 X=R103

WAITS

G153 G00 G90 Y=R133 

ENDIF

;*****************************T4

IF ($C_T==4)

G153 G00 G90 X=R104

WAITS

G153 G00 G90 Y=R134 

ENDIF

;*****************************T5

IF ($C_T==5)

G153 G00 G90 X=R105

WAITS

G153 G00 G90 Y=R135 

ENDIF

;*****************************T6

IF ($C_T==6)

G153 G00 G90  X=R106

WAITS

G153 G00 G90  Y=R136 

ENDIF

;*****************************T7

IF ($C_T==7)

G153 G00 G90  X=R107

WAITS

G153 G00 G90  Y=R137 

ENDIF

;*****************************T8

IF ($C_T==8)

G153 G00 G90  X=R108

WAITS

G153 G00 G90  Y=R138 

ENDIF

;*****************************

MSG("主轴松刀")

M51

T_GO_ON:

MSG("Z轴扣刀")

;*****************************T1

IF ($C_T==1)

G153 G01 G90 Z=(R151+20) F10000

G153 G01 G90 Z=R151 F1000

ENDIF 

;*****************************T2

IF ($C_T==2)

G153 G01 G90 Z=(R152+20) F10000

G153 G01 G90 Z=R152 F1000

ENDIF

;*****************************T3

IF ($C_T==3)

G153 G01 G90 Z=(R153+20) F10000

G153 G01 G90 Z=R153 F1000

ENDIF

;*****************************T4

IF ($C_T==4)

G153 G01 G90 Z=(R154+20) F10000 

G153 G01 G90 Z=R154 F1000

ENDIF

;*****************************T5

IF ($C_T==5)

G153 G01 G90 Z=(R155+20) F10000

G153 G01 G90 Z=R155 F1000

ENDIF

;*****************************T6

IF ($C_T==6)

G153 G01 G90 Z=(R156+20) F10000

G153 G01 G90 Z=R156 F1000

ENDIF

;*****************************T7

IF ($C_T==7)

G153 G01 G90 Z=(R157+20) F10000

G153 G01 G90 Z=R157 F1000

ENDIF

;*****************************T8

IF ($C_T==8)

G153 G01 G90 Z=(R158+20) F10000

G153 G01 G90 Z=R158 F1000

ENDIF

;*****************************

MSG("主轴抓刀")

M50

G4 F2

G153 G01 G90 Y=R173 F=R174

MSG("Z轴退到安全位置")

;*****************************

G153 G00 G90 Z0

_END:

MSG("换刀动作完成")

T=$C_T

MSG("")

M206

;*****************************

M05 

STOPRE

D1

M17

;*****************************

INFO1:MSG("**** 无换刀动作  原因:编程刀具号 = 主轴刀具号 ****")


      G04F2

      MSG("")

GOTOB _END

;*****************************

INFO3:MSG("**** 轴 X Y Z 未回零,不能换刀 ****")


      G04F2

      MSG("")

_END1:     

M17

_END2:

M05

T=$C_T

M206

D1

M17


你好“风雨中行走”与“202309...."兄弟,非常感谢你们,我面你们下面评论有字数限制,也不能跟贴,也不知是电脑问题还是不会操作,话都说不完。我将那个4改成8果然管用,它会放下刀,不过它不去旁边预留的位置,而是X走到头,Y也走到头,好像是0位吧,然后开始降落准备抓刀动作,然后报警700036在监控时间内,主轴无法到达刀具锁紧位置。觉的就是203609.那位兄弟说的位置要设置,能详细说下吗?非常非常感谢,


求助 808D加工中心 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SINUMERIK

共有25500条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

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