Hallo JC Wasti,
mit
INQ_ENV 8
LET Schleife (INQ 5) {### Anzahl Teile ###}
{### Masse einlesen ###}
WHILE (Schleife > 0)
DISPLAY_NO_WAIT ('Es werden noch '+STR(Schleife)+' Teile nach Bemassung durchsucht')
TRAP_ERROR
EDIT_PART ('~'+(STR Schleife))
IF (CHECK_ERROR) END_IF
INQ_SELECTED_ELEM DIMENSIONS ALL
WHILE ((inq 14) >0)
.... {### >0 heisst, es sind Masse vorhanden ###}
END_WHILE
Gruß
Robert
http://www.rhdev.de
cad@rhdev.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP