Visual Basic Customization

Visual Basic Customization

Reply
Valued Contributor
lanieuwe
Posts: 57
Registered: ‎10-26-2011
Message 1 of 2 (210 Views)
Accepted Solution

step through layers with vba?

210 Views, 1 Replies
12-20-2012 02:01 AM

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)

 

 

 

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.

Mentor
truss_85
Posts: 173
Registered: ‎02-13-2011
Message 2 of 2 (195 Views)

Re: step through layers with vba?

12-21-2012 06:07 AM in reply to: lanieuwe

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.

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.