step through layers with vba?

[lanieuwe]

I am working with a lisp that step through layers one at a time, locking all other layers than current one. (enter or space)

While this lisp runs I can zoom etc in the drawing.

Is it possible to make this tool with VBA too?

gr. Laszlo

defun C:STL (/ *error* cmde lay)
  (defun *error* (errmsg)
    (if (not (wcmatch errmsg "Function cancelled,quit / exit abort,console break"))
      (princ (strcat "\nError: " errmsg))
    ); end if
    (command "_.layer" "_unlock" "*" "")
    (setvar 'cmdecho cmde)
  ); end defun - *error*
  (setq cmde (getvar 'cmdecho))
  (setvar 'cmdecho 0)
  (while (getstring "\nPress Space or Enter to go to next Layer, Escape to quit: ")
    (setq lay (cdr (assoc 2 (tblnext "layer" (not lay)))))
 (while (and lay (wcmatch lay "*|*") (setq lay (cdr (assoc 2 (tblnext "layer"))))));    
(if (not lay) (setq lay (cdr (assoc 2 (tblnext "layer" T))))); back to 0 at end
    (command "_.layer" "_thaw" lay "_set" lay "_lock" "*" "_unlock" lay "" "_regen")
  ); end while
); end defun
(princ "\nType STL to Step Through Layers, locking all other Layers.")
(princ)

[truss_85 · Accepted solution]

I am afraid it is not but it might be possible another way but you can execute command each time. It continues to which layer did you left.