Hello,
I am trying to get the attached program to work properly. It works ok besides the fact that all of my calculations are done in base coords. Is there a way to get this to work with TDRAW or otherwise to make the shifts and calculations based on the TCP? I run the GET HEAD WEAR below and then run the PROCESS PART pg.
Code
PROCESS PART
; POINT posofst1 = hdawear+part1og1 LMOVE posofst1
; POINT posofst1 = hdawear+part1og2 LMOVE posofst1;
; POINT posofst1 = hdawear+part1og3 LMOVE posofst1
; POINT posofst1 = hdawear+part1og4 LMOVE posofst1
; POINT posofst1 = hdawear+part1og5 LMOVE posofst1
; POINT posofst1 = hdawear+part1og6 LMOVE posofst1
; POINT posofst1 = hdawear+part1og7 LMOVE posofst1;
Code
;************************************************
; GET HEAD WEAR
;************************************************
; POINT hdawear = TRANS(0,0,0,0,0,0,0) ; SETS HDAWEAR TO NULL
; LMOVE taughtpos1; MOVE TO FAUGHT POSITION(TOUCHING PART FRESH WHEEL)
; POINT searching = taughtpos1+TRANS(0,0,70,0,0,0) ; SET AMOUNT OFFSET FOR SEARCHMOVE AS X,Y,Z,O,A,T OF TOOL
XMOVE searching TILL (1134) ; MOVE UNTIL HD WEAR MET INPUT IS ON
BREAK
HERE foundpos ; RECORDS CURRENT POSITION TO foundpos
LMOVE pounce; MOVES TO SAFRE POS NOT TOUCHING PART
GOTO 1 ;
;
;************************************************
; CONTACT MADE SAVE POS TO hdawear
;************************************************
1;
; POINT/X hdawear = foundpos - taughtpos1 ; SETS ONLY X VALUE TO HDAWEAR
; POINT/Y hdawear = foundpos - taughtpos1 ; SETS ONLY y VALUE TO HDAWEAR
POINT/Z hdawear = foundpos-taughtpos1 ; SETS ONLY Z VALUE TO HDAWEAR
; POINT/O hdawear = foundpos - taughtpos1 ; SETS ONLY 0 VALUE TO HDAWEAR
; POINT/A hdawear = foundpos - taughtpos1 ; SETS ONLY A VALUE TO HDAWEAR
; POINT/T hdawear = foundpos - taughtpos1 ; SETS ONLY T VALUE TO HDAWEAR
Display More