有没有高手帮忙读一下西门子840D磨床程序-专业自动化论坛-中国工控网论坛

有没有高手帮忙读一下西门子840D磨床程序点击：1244 | 回复：9

qq1139247256

精华：0帖
求助：1帖
帖子：1帖 | 0回
年度积分：0
历史总积分：8
注册：2013年10月29日

发表于：2013-10-29 19:52:27

楼主

%_N_SCHEIB1_SPF

;$PATH=/_N_SPF_DIR

;Dateiinfo("TYROLIT 50A 601 K 5A V217")

;Kennung(2.02/32 (c) J.H., 02.12.2005)

;Datum(10/28/13)

;Vorspann_Anfang()

R989=0

IF R988-1 > R989 GOTOF MARKE

;Vorspann_Ende()

Kommentar="";

R499=210;

R498=249;

R497=0;

R496=1;

R495=0;

R465=1;

R466=1;

R440=0;

R480=0.0000;

R482=0.0000;

R481=0.0000;

R483=0.0000;

R484=0.0000;

R485=0.0000;

R486=0.0000;

R487=0.0000;

R488=0;

R490=0;

R491=0.0000;

R492=0.0000;

R493=0.0000;

R408=0.0000;

R494=0.0;

R110=0;

R113=0.0;

;Befehl(IF_0)

IF R467==1 GOTOF GEOM

R400=1;

R401=2;

R405=24.0;

R406=0.0000;

R412=630.0000;

R454=0.0020;

R431=0.0300;

R432=0.0000;

R433=0.0000;

R434=0.0000;

R435=0.0000;

R436=0.0000;

R437=0.0000;

R438=0.0000;

R439=0.0000;

R457=0.0000;

R441=0.0109;

R442=0.0000;

R443=0.0000;

R444=0.0000;

R445=0.0000;

R446=0.0000;

R447=0.0000;

R448=0.0000;

R449=0.0000;

;Befehl(M_GEOM)

GEOM:

R047=1;

R410=-150.0560;

R411=0.0000;

R409=0.0000;

R430=0.0000;

R450=0.0000;

;Befehl(UP_2)

CALL "/_N_CUS_DIR/_N_L912_SPF"

;Befehl(UP_ANT)

DUMMY_MARKE:

;Befehl(M_START)

BEGINNE:

;Befehl(PROF_1)

IF ((R981==1) AND (R490 == 0))

;Befehl(PROF_2)

IF ((R430<=0) AND (R409<=0) AND (R450<=0)) GOTOF PROFENDE

;Befehl(PROF_3)

TRANS X=R245 Z=R248

;Befehl(PROF_4)

ENDIF

;Befehl(UP_ANT_D)

DUMMY_MARKE:

;DIN_Programm_Anfang(DIN)

;EISENBAHNACHSE / RE 2B

;XWP=-150.056 , ZWP=0

M1=61

N10 G0 G90 G500

N11 Z=-230

;START

N12 M2=8 M1=8

N13 X=-148

N20 G01 X=-150.052 Z=-230 F=200 ;P1

N21 G64 G01 X=-150.076 Z=-25.62 ;P2

N30 G64 G02 X=-168.000 Z=-0.770 CR=40.7 F=180 ;P3

N40 G64 G02 X=-170.060 Z=0 CR=2.3 ;P4

N50 G64 G01 X=-180.084 Z=0 F=200 ;P5

N60 G64 G01 X=-180.086 Z=57.336 F=200 ;P6

N70 G64 G02 X=-216.870 Z=85.000 CR=30.7 F=190 ;P7

N80 G64 G01 X=-240.000 Z=85.000 F=180 ;P8

N90 G64 G00 X=-240.000 Z=90

;P9

N91 G64 G00 X=-100.000 Z=90 ;P10

;END

N94 M1=9 M2=9

;DIN_Programm_Ende()

;Befehl(UP_3)

CALL "/_N_CUS_DIR/_N_L914_SPF"

;Befehl(RUECK)

IF R401 > 0 GOTOB BEGINNE

;Befehl(PROF_5)

PROFENDE:

CALL "/_N_CUS_DIR/_N_L915_SPF";

;Zwischen_Anfang()

M17

MARKE:

R989=R989+1

IF R988-1 > R989 GOTOF MARKE

;Zwischen_Ende()

N1 WORK_1:

;Nachspann_Anfang()

MARKE:

MSG ("Konturnummer " << R988 << " nicht vorhanden !!!")

ENDE:

;Nachspann_Ende()

M17

分享到：

邀请回答

回复楼主

axl_ray

精华：0帖
求助：0帖
帖子：0帖 | 159回
年度积分：0
历史总积分：119
注册：2012年1月10日

发表于：2013-10-30 09:14:02

1楼

来错了地方吧，这里是PLC的

回复引用举报

鹰飞翔

精华：0帖
求助：0帖
帖子：8帖 | 398回
年度积分：0
历史总积分：617
注册：2006年9月30日

发表于：2013-10-30 10:45:37

2楼

START

N12 M2=8 M1=8

N13 X=-148

N20 G01 X=-150.052 Z=-230 F=200 ;P1

N21 G64 G01 X=-150.076 Z=-25.62 ;P2

N30 G64 G02 X=-168.000 Z=-0.770 CR=40.7 F=180 ;P3

N40 G64 G02 X=-170.060 Z=0 CR=2.3 ;P4

N50 G64 G01 X=-180.084 Z=0 F=200 ;P5

N60 G64 G01 X=-180.086 Z=57.336 F=200 ;P6

N70 G64 G02 X=-216.870 Z=85.000 CR=30.7 F=190 ;P7

N80 G64 G01 X=-240.000 Z=85.000 F=180 ;P8

N90 G64 G00 X=-240.000 Z=90

;P9

N91 G64 G00 X=-100.000 Z=90 ;P10

;END

贴出来的部分是运动轨迹。数控程序，你最好对照手册看。

回复引用举报

菜鸟好学

精华：0帖
求助：0帖
帖子：0帖 | 30回
年度积分：0
历史总积分：6
注册：2013年4月27日

发表于：2013-11-02 22:48:51

3楼

谢谢楼主分享多多学习来消化一下

回复引用举报

hsqknx

精华：0帖
求助：3帖
帖子：7帖 | 393回
年度积分：0
历史总积分：98
注册：2011年3月23日

发表于：2013-11-23 10:13:18

4楼

PLC和CNC不是严格的分家

回复引用举报

天堂星地煞魔

精华：0帖
求助：0帖
帖子：0帖 | 28回
年度积分：0
历史总积分：0
注册：2013年11月22日

发表于：2013-11-23 16:48:19

5楼

学习中哈哈来挣个积分想下东西就是没积分啊

回复引用举报

精华：0帖
求助：0帖
帖子：3帖 | 2121回
年度积分：0
历史总积分：51
注册：2007年10月31日

发表于：2018-03-25 10:28:31

6楼

谢谢楼主分享多多学习来消化一下

回复引用举报

lzzcym

精华：0帖
求助：0帖
帖子：1帖 | 69回
年度积分：0
历史总积分：94
注册：2004年7月31日

发表于：2018-03-29 08:53:45

7楼

很好的资料下载学习

回复引用举报

laituan123

精华：0帖
求助：0帖
帖子：0帖 | 251回
年度积分：0
历史总积分：110
注册：2013年4月27日

发表于：2018-04-02 18:35:49

8楼

学习学习，看看什么资料啊

回复引用举报

A315961818

精华：0帖
求助：0帖
帖子：0帖 | 18回
年度积分：0
历史总积分：104
注册：2012年2月16日

发表于：2018-04-02 21:06:23

9楼

看不懂帮你顶

回复引用举报

热门招聘

﻿有没有高手帮忙读一下西门子840D磨床程序 ﻿点击：1244 | 回复：9

有没有高手帮忙读一下西门子840D磨床程序点击：1244 | 回复：9