abb機器人程序?qū)嵗?在線瀏覽
2024-08-17 11:38本頁面
【正文】 9,9E+09]]。 CONST num nOffs:=100。 CONST num nLayer:=0。 CONST num nThickness:=40。 PERS bool bDryCycle:=FALSE。VAR intnum iResDryCycle。 PERS tooldata tGripper:=[TRUE,[[0,0,100],[1,0,0,0]],[,[,],[1,0,0,0],]]。 WHILE TRUE DO IF siDryCycle=1 or nCurLayer1 then rPickClapboard。 ENDIF Waittime 。 DIWait diPlaceReady,1,3,exit Conveyer,ready for remove。 IF BitCheck(nCurlayer,1) THEN nCurOffs:=nOffs。 ENDIF MoveL offs(pPickMould,0,nCurOffs,100+nCurLayer*nThickness), v1000, z50, tGripper。 GripClose。 MoveL offs(pPickMould,0,nCurOffs,100+nCurLayer*nThickness), v200, z50, tGripper。 DIWait diPlaceReady,1,3,exit Conveyer,ready for remove。 MoveL offs(pPlaceMould,0,0,100), v1500, z10, tGripper。 GripOpen。 MoveL pPrePlace10, v1500, z10, tGripper。 PulseDO\PLength:=2, doMouldPlaceOK。 MoveL offs(pPickClapboard,0,0,100), v1000, z50, tGripper。 GripClose。 MoveL offs(pPickClapboard,0,0,500) ,v1000, z50, tGripper。 DIWait diClapboardReady, 1, 3, exit Conveyer, ready for remove。 MoveL offs(pPlaceClapboard,00,10,100), v1000, z10, tGripper。 GripOpen。 MoveL offs(pPlaceClapboard,700,200,250), v1000, z10, tGripper。 PulseDO\PLength:=, doClapboardPickOK。 PulseDO\PLength:=, doUnStackOk。 DIWait diMouldready,0,3,exit Conveyer,ready for remove。ENDPROCPROC rInitAll() IF diVacuum1=0 THEN WaitTime 1。 Stop。 ENDIF rMoveHome。 IDelete iVacuum。 ISignalDI diVacuum1, 1, iVacuum。 ENDPROC
職業(yè)教育相關(guān)推薦
鄂ICP備17016276號-1