Read command

[Peter Boks]

I want to use three tokentypes in a read command (READ PNT COMMAND QUALIFIER '....) but ME10 seems to use no more than two. Does anybody know how to solve this?

[Bernfried Epting]

I have written the following macro, which uses these three tokens in a read command, and it works on ME10 9.00C on NT4 SP4. DEFINE Test LOCAL L_p1 LOCAL L_p2 LOCAL L_read LOOP LOOP LET L_p1 '-' LOOP READ QUALIFIER PNT COMMAND 'Bitte Element wählen :' L_read EXIT_IF (L_read= END) EXIT_IF (L_read=ALL) EXIT_IF (L_read= CANCEL) EXIT_IF ((TYPE (L_read))=PNT) END_LOOP IF ((TYPE (L_read))=PNT) INQ_ELEM L_read END_IF IF ((L_read= END) OR (L_read= CANCEL)) CANCEL ELSE_IF (L_read=ALL) LET L_p1 ALL LET L_p2 ALL ELSE_IF (((INQ 403)= LINE) OR ((INQ 403)= CIRCLE) OR ((INQ 403)= ARC) OR ((INQ 403)= CHAMFER)) LET L_p1 L_read LET L_p2 END ELSE_IF ((INQ 403)= END) LET L_p1 (L_read) READ PNT 'zweiten Punkt antippen ' RUBBER_BOX L_p1 L_p2 END_IF EXIT_IF (L_p1<>'-') DISPLAY 'beep' BEEP END_LOOP CHANGE_LINETYPE SOLID L_p1 L_p2 END CHANGE_COLOR WHITE L_p1 L_p2 END END_LOOP END_DEFINE greetings from Germany Bernfried Epting