PLC/6040-003
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新优化程序

Browse Source
This commit is contained in:
zhusenlin
2026-02-11 17:34:41 +08:00
parent 62cf9a191c
commit cee4549e79
57 changed files with 240 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
KUKA/KRC/R1/Program/PL/NgBeltPlace.src
View File

@@ -1,5 +1,6 @@
&ACCESS RVP1
&ACCESS RVO
DEF NgBeltPlace ( )
DECL REAL x_offset,y_offset,z_offset
;FOLD INI;%{PE}
;FOLD BASISTECH INI
GLOBAL INTERRUPT DECL 3 WHEN $STOPMESS==TRUE DO IR_STOPM ( )
@@ -13,6 +14,13 @@ DEF NgBeltPlace ( )
;ENDFOLD (INI)
WAIT FOR $IN_HOME OR $IN_HOME1 OR $IN_HOME2 OR CheckInPos(20.0, END_POS)
XPlace=XNgBeltPlace
x_offset=PlaceOffsetX_Save/10.0
y_offset=PlaceOffsetY_Save/10.0
z_offset=PlaceOffsetZ_Save/10.0
XPlace.X=XNgBeltPlace.X + x_offset
XPlace.Y=XNgBeltPlace.Y + y_offset
XPlace.Z=XNgBeltPlace.Z + z_offset
XPlaceH=XPlace
XPlaceH.Z=XPlace.Z+500
;FOLD SPTP PlaceH CONT Vel=100 % PDAT1 Tool[1]:Tool1 Base[1] ;%{PE}