Hello,
I'm trying to create a short lisp routine to trigger form a tool palette icon (I'll explain why later).
here is the code as I have it (and it ALMOST works)
Code:
^C^C(setq CLAORIG (getvar "CLAYER")) (command "-layer" "m" "L-HTCH-SCRN-MEDM" "C" "8" "L-HTCH-SCRN-MEDM" "") (command "-hatch" "P" "ANSI31" "4" "45" "a" "a" "y" "" (setvar "CLAYER" CLAORIG))
As you can see, it does the following:
- Stores the current layer value in CLAORIG (works fine)
- Creates a layer called L-HTCH-SCRN-MEDM and makes it current (works fine)
- Issues the hatch command (works fine)
- Sets the layer back to CLAORIG (doesn't work)
Now... here is why I want to do this. When I create a hatch icon on a tool palette tab by dragging a hatch onto it, it works great except it does not allow the user to select between "pick internal point" and "select boundary objects" it only allows "pick internal point". In a complex drawing (which we have a lot of), this can be a slow process.
So, any help is appreciated!!!
Thanks all.
-JP