Code
.INTER_PANEL_D
102,8,"rxi","rxi","",10,7,5,2,0
103,8,"ryi","ryi","",10,7,5,2,0
104,4,1,"BTN1","","","",11,10,0,2005,0,0
106,8,"rxideg","rxideg","",10,7,5,2,0
107,8,"ryideg","ryideg","",10,7,5,2,0
108,8,"rzideg","rzideg","",10,7,5,2,0
109,8,"roxmax","roxmax","",10,7,3,1,0
110,8,"roymax","roymax","",10,7,3,1,0
111,4,1,"BTN2","","","",11,10,0,2006,0,0
.END
.INTER_PANEL_COLOR_D
182,3,224,244,28,159,252,255,251,255,0,31,2,241,52,219,
.END
.SIG_COMMENT
.END
.PROGRAM git_cord2(.&pos,.rox,.roy,.rx,.ry)
FOR rox = 1 TO (.rox)
POINT pos1 = SHIFT(.pos BY (rox-1)*(.rx),0,0)
FOR roy = 1 TO (.roy)
POINT pos1 = SHIFT(pos1 BY 0,(.ry),0)
SPEED 100
LMOVE pos1
BREAK
SIGNAL1
PRINT "parameter x ok... id=",rox," y ok... id=",roy
END
END
RETURN
.END
.PROGRAM pg1()
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-14.586,8.7518,-19.872,-5.7845,-44.61,96.364] ;
POINT posstart = HERE
POINT posstart = SHIFT(posstart BY rxideg,ryideg,rzideg)
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-14.586,8.7518,-19.872,-5.7845,-44.61,96.364] ;
CALL git_cord2(&posstart,roxmax,roymax,rxi,ryi)
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-6.0638,6.1202,-20.122,-0.49192,-43.921,84.922] ;
TWAIT 2
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-6.0638,6.1202,-20.122,-0.49192,-43.921,84.922] ;
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-2.3984,5.6648,-20.156,1.819,-43.927,79.958] ;
TWAIT 2
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-2.3984,5.6648,-20.156,1.8187,-43.927,79.958] ;
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[1.4649,5.612,-20.159,4.2397,-44.114,74.744] ;
TWAIT 2
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[1.4649,5.612,-20.159,4.2397,-44.114,74.744] ;
JOINT SPEED9 ACCU1 TIMER0 TOOL1 WORK0 CLAMP1 (OFF,0,0,O) OX= WX= #[-14.586,8.7518,-19.872,-5.7845,-44.61,96.364] ;
BREAK
SIGNAL1
.END
.TRANS
posstart -502.795624 1996.325562 1278.338623 95.281898 154.037537 -6.139154
.END
.REALS
roxmax = 2
roymax = 1
rxideg = 0
ryideg = 0
rzideg = 0
.END
Display More