Procedure in the while loop

Question

Hi everybody, 
 I want to execute a procedure until the Escape key will be pressed. 
 Example: 
 continue = t while( continue 
 ....execute procedure 
 if (cancel or escape) then continue = nil 
 );end while 
 How could I Do that? 
 Thanks

JuriV · Answer

I tested the function "axlEnterEvent" again. By Mouse CLICK the Message "This is a Test CLICK" appears. If Escape (CANCEL) is pressed - "End of Loop". But how the DONE could be used? You mentioned the CANCEL and DONE should be connected to the RMB automaticaly. 
 Hier is the code: 
 procedure( EnterEvent() let(( loop event) eventMask = '( PICK CANCEL DONE) loop = t while( loop event = axlEnterEvent(eventMask, nil, t) case(event -> type ('PICK printf("This is a Test CLICK") ); end PICK ('CANCEL printf("End of Loop") loop=nil );end CANCEL ('DONE printf("End of Loop") loop=nil );end DONE );end while );end case );end let );end procedure

B Bruekers · Answer

You must bind the SKILL function to a command line function : axlCmdRegister( "EnterEvent" 'EnterEvent ?cmdType "interactive") 
 Doing so and starting the command from the command line results in: 
 scriptmode +e 
 EnterEvent 
 EnterEvent 
 prepopup 143.484 -183.964 
 pop Done 
 End of Loop DONE 
 generaledit 
 
 EnterEvent 
 EnterEvent 
 prepopup 107.355 -201.512 
 pop Cancel 
 End of Loop CANCEL 
 generaledit 
 
 (I've added a Done and Cancel to the printf())

Stats

Procedure in the while loop

Community Guidelines