Procedure in the while loop

What are you planning  to do in the loop? 

If it is some user interaction with selection then use the axlEnterEvent() .

Otherwise look at the axlCancelOff, axlCancelOn, axlCancelTest  functions.

Hi B Bruekers,

I have a code to align the vias (vertical or horizonthal). I want to align the VIAS inside of the while loop. The VIAs are selected using

dbid_vias = axlGetSelSet(axlSingleSelectBox()). For example I select three VIAs to aligne them, then next four VIAs, then next ten Vias and so on.

This function should work until Escape (or another termination) is pressed, which means "No more VIAs to aligned".

I hope this explained a function.

Best regards

Juri

Then you need to use axlEnterEvent().  So something like this:

;start "myselection" from the command line of Allegro
axlCmdRegister( "myselection" 'SelectonLoop  ?cmdType "interactive")

procedure( SelectonLoop()
    let( (loop msg event StartXY)
         axlSetFindFilter( ?enabled '("noall" "vias") ?onButtons "vias")
        msg= "Select vias"
        loop = t
        while( loop
            event = axlEnterEvent(list('PICK 'PICK_EXTEND 'PICK_TOGGLE 'STARTDRAG 'STARTDRAG_EXTEND 'STARTDRAG_TOGGLE 'STOPDRAG 'STOPDRAG_EXTEND 'STOPDRAG_TOGGLE ) msg nil)
            caseq(event->type
                (PICK                  when(axlAddSelectPoint(event->xy), doSomethingWithSelection()))
                (PICK_EXTEND     when(axlAddSelectPoint(event->xy), doSomethingWithSelection()))
                (PICK_TOGGLE     when(axlSubSelectPoint(event->xy), doSomethingWithSelection()))
                (STARTDRAG
                    axlAddSimpleRbandDynamics(event->xySnap "box" ?var_point 0-car(event->xySnap):0-cadr(event->xySnap))
                    StartXY= event->xy
                )
                ((STARTDRAG_EXTEND STARTDRAG_TOGGLE)
                    axlAddSimpleRbandDynamics(event->xySnap "box" ?var_point 0-car(event->xySnap):0-cadr(event->xySnap))
                    StartXY= event->xy
                )
                (STOPDRAG                  
                    axlClearDynamics()
                    when(axlAddSelectBox(list(StartXY event->xy))
                        doSomethingWithSelection()
                    )
                    StartXY = 0
                )
                (STOPDRAG_EXTEND     axlClearDynamics(), when(axlAddSelectBox(list(StartXY event->xy)), doSomethingWithSelection()),    StartXY=0 )
                (STOPDRAG_TOGGLE    axlClearDynamics(), when(axlSubSelectBox(list(StartXY event->xy)), doSomethingWithSelection()),    StartXY=0 )
                (DONE         
                    doSomethingWithSelection()
                    loop = nil
                )
                (CANCEL     
                    loop = nil
                )
            )
        )
    )
)

procedure( doSomethingWithSelection()
    let( (selectedItems)
        when(selectedItems = axlGetSelSet()
            pp(selectedItems)
        )
    )
)

OK, Thank you.
I used such function for PICK, but not for CANCEL or DONE. Are CANCEL and DONE like Escape or the popup for RMB with Cancel and Done functions should be define?

Best regards

Juri

OK, Thank you.
I used such function for PICK, but not for CANCEL or DONE. Are CANCEL and DONE like Escape or the popup for RMB with Cancel and Done functions should be define?

Best regards

Juri

The DONE and CANCEL are by default defined in the RMB as well through the general user interface (like F2 key binding)
So, any DONE or CANCEL event is caught by the axlEnterEvent() and ends up in the DONE/CANCEL case statement.


You can define a own RMB menu with extra functionality, like 'oops', align H, align V, etc.  Each RMB item can call a function to deal with the operation.

You need to implement the Oops functionality with axlDBTransactionStart(), axlDBTransactionMark(), axlDBTransactionOops() and axlDBTransactionCommit().

A small tip, before any axlDBTransactionMark() you need to do a axlClearSelSet(). Otherwise an 'oops' event will cause an issue where previous selected items are 'highlighted' and cannot be selected again.

Thank you very much, I will try it

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

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())

Ok, Thanks.
This works in Command Mode only, not in the SKILL Mode. That is my mistake.