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?
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)
Solved! Go to Solution.
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register