这个程序谁能看懂？

liu65178454 · 发表于 2013-10-31 22:50:47

%_N_L9850_SPF
PROC L9850(REAL B_POS,REAL W_POS,REALV_POS)
IF $P_SUBPAR[1]==TRUE AND $AA_IM[B]B_POS
G90G00G53Z-500W0V0D0
G01 B=B_POS F200
ENDIF
IF $P_SUBPAR[2]==TRUE
G90G00G53 W=W_POS
ENDIF
IF $P_SUBPAR[3]==TRUE
G90G00G53 V=V_POS
ENDIF
M17

长桥卧波 · 发表于 2013-10-31 22:51:36

不是C语言，看不懂。也不像VB.

亡灵村长 · 发表于 2013-10-31 22:52:35

这个有点C语言的成分，又有数控编程语言成分，合起来就不认识了，

力顶天 · 发表于 2013-10-31 22:53:08

是西门子的数控系统宏程序

liu65178454 · 发表于 2013-10-31 22:53:43

是西门子宏程序，数控镗铣床里的B（工作台） V（镗杆） W（滑枕）轴的控制，谁能解释下程序的意思？

liu65178454 · 发表于 2013-10-31 22:54:37

像西门子系统840D数控镗铣它们长度，半径刀补用么指令？
看别人有时候用D1 有时候用个程序来控制，弄糊涂，请下大侠们？

abcwcf · 发表于 2013-10-31 22:55:36

西门子840D,首先这是一个带参数传递的子程序.
在不完整的参数传送时可以通过系统变量
$P_SUBPAR[i]判别，该子程序的传送参数是否已经
实际编程。
作为自变量(i)，系统变量获得传送参数的号。
系统变量 $P_SUBPAR 提供：
TRUE, 如果已经编程了传送参数
FALSE, 如果没有使用值作为传送参数。
$AA_IM[轴] 在MKS中读出实际值 MKS -机床坐标系

abcwcf · 发表于 2013-10-31 22:56:24

%_N_JZKDA_SPF
;$PATH=/_N_SPF_DIR/_N_AT_MPD
PROC JZKDA(INT ZH,REAL KD1,REAL KD2,REAL KD3,REAL KD4,REAL DW1,REAL GJ,INT GS)
DEF REAL BL1,BL2,BL3,BL4,BL5,BL6,BL7,BL8,BL9,BL10=1
BL1=$P_TOOLNO
BL2=$TC_DP6[BL1,1]
BL3=$TC_DP21[BL1,1]
BL4=0-(BL2+3)
BL5=2*(BL2+3)+KD1
G[8]=ZH G90 G00 X=BL4
G91 G01 X=BL5
给你看一段常用的参数编程的例子吧,这些参数常常只是用来作运算用的
$TC_DP6[BL1,1]
$TC_DP21[BL1,1]
这两个很实用

shixukong1985 · 发表于 2013-10-31 22:57:00

7楼好厉害呀不知对发那科B类宏程序怎样可以交流交流

liu65178454 · 发表于 2013-10-31 22:58:00

回复 7# abcwcf
佩服，好厉害呀，对了，MKS是么意思啊？还有IF $P_SUBPAR[1]==TRUE 带AND $AA_IM[B]B_POS
这段程序，而IF $P_SUBPAR[2]==TRUE不带那段程序？
PROC L9850(REAL B_POS,REAL W_POS,REALV_POS)是注释，还是为了运行必须这么写的？