Mr. ME
06-17-1998, 12:57 AM
I don't think an enhancement is necessary. The "problem" you describe is quite easy to solve with a simple PARTS+STORE work-around or the following macro: DEFINE STORE_BOX LOCAL FNAME LOCAL P1 LOCAL P2 LOCAL P3 LOCAL PNUM LOCAL ANS LOCAL Y LOCAL N LOCAL LNAME EDIT_PART TOP LET P3 99999,99999 LOOP READ PNT "First corner" P1 READ PNT "Second corner" RUBBER_BOX P1 P2 EXIT_IF (P1<>P2) END_LOOP TRAP_ERROR CREATE_DETAIL 1 P1 P2 P1 P3 LET C (CHECK_ERROR) IF (C=0) READ STRING "Please enter the file name for the boxed area" FNAME LET LNAME (LEN FNAME) IF (LNAME>2) IF ((SUBSTR FNAME (LNAME-2) 3)<>".mi") LET FNAME (FNAME+".mi") END_IF ELSE LET FNAME (FNAME+".mi") END_IF TABLE_STATUS 'PBT_GENTAB' MAP LET PNUM (TRIM (READ_LTAB "PBT_LTAB" 2 2)) TABLE_STATUS 'PBT_GENTAB' UNMAP UPDATE_SCREEN EDIT_PART PNUM INQ_ENV 7 LET P1 (INQ 101) LET P2 (INQ 102) CHANGE_PART_REF_PT (P1+((P2-P1)/2)) EDIT_PART TOP TRAP_ERROR STORE MI PNUM FNAME LET C (CHECK_ERROR) IF (C=1) LET Y "Yes" LET N "No" READ STRING "File already exists. DEL_OLD? (Y/N)" ANS IF (ANS="Yes") STORE MI PNUM DEL_OLD FNAME ELSE BEEP END_IF END_IF DELETE PNUM END_IF LOAD FNAME END_DEFINE