How to undo ruler?

All there currently is is leClearAllRuler(). You can't do them one by one.

There are however enhancements coming with rulers in IC614. I think a side effect of that will allow you to create and then delete rulers individually.

Regards,

Andrew.

Hi Andrew,

 Thanks for the reply.

That means we can't undo/delete the ruler individually, so sad to know that. :(

Hopefully i can get IC614 soon.

Regards,

How

You can get creative and make your own ruler function that stores off your ruler points in a global variable. Then you can undo the rulers by clearing them all and recreating all rulers except the last one.

procedure(myRuler(@optional (cv geGetEditCellView()))
    unless(boundp('rulerHistory)
        rulerHistory = makeTable("rulerHistory" nil)
    )
    pts = enterLine(?prompts list("Point to first point of the ruler" "Point at the next point of the ruler") ?wantPoints 2)
    leCreateRuler(geGetEditCellView() pts)
    rulerHistory[cv] = cons(pts rulerHistory[cv])
) ;proc

procedure(clearMyLastRuler(@optional (clearAll nil) (cv geGetEditCellView()) )
    leHiClearRuler()
    if(clearAll then
        rulerHistory[cv] = nil
    else
        rulerHistory[cv] = cdr(rulerHistory[cv])
        foreach(pts rulerHistory[cv]
            leCreateRuler(cv pts)
        )
    )
) ;proc

Derek

Thank you for sharing your code Derek!

While we are on the topic of Rulers, I recently also wrote a somewhat similar solution for getting the length of each ruler printed to the CIW for added help/readability. Here's the link to the Online Support Solution:

SourceLink Solution 11553680

Best regards,

Lawrence.

Hi dMay,

Your script works well :D. Just i need to make it interactive so that user not need to recall the function for ruler and able to use reursively until the ESC button is hit.

Hi skilluser,

Thanks a lot for the sharing =D

Hi How,

You should be able to use the solution I wrote to help you to make Derek's code more interactive (e.g. create a bindkey for it, use an Options form to control the function behaviour).

Let me (well, everyone) know if you need more help.

regards,

Lawrence.

Hi guys,

Cool. I got it, i got it. I combine both script into one and its able to works interactively and able to undo the ruler as well. =D

This is what i'm looking for for quite a long time. Thanks man. Cheers

Regards, How

Hi,

By storing the ruler's pts into a global table will enable user to do undo ruler individually. What if user use hiClearAllRuler() function to clear all rulers, the data that store in the table will not change rite?

So, when user undo the ruler, there will prompts many other rulers which is initially store in the table. Any workaround for this?

How

Hi skilluser,

For your script, is it I need to instantiate the form at least ONCE before I use the function to create ruler?

The function seem like not working, but after i hit F3 button to call the form and hide it, it will only able to peform well. Please advice.

Thanks 

Notice in the clearMyLastRuler command, I had put in an optional "clearAll" argument. If set to t, not only does it clear all rulers in the window, but it also resets the global variable. Your users should use this command to clear all the rulers.

procedure(clearMyLastRuler(@optional (clearAll nil) (cv geGetEditCellView()) )
    leHiClearRuler()
    if(clearAll then
        rulerHistory[cv] = nil

Derek