Clear Button

[tigger29900]

Hi i was looking to create a button that sets all the unlocked layers in my drawing back to color 7 I've been trying to get it but no luck any help would be appreciated

[rkmcswain]

Since you posted in .NET, ObjectARX & VBA, I just want to verify that you do not want to use lisp/vlisp.

What is your preference?

Have you started writing any code yet towards this effort?

[tigger29900]

VBA would be my preference as i have already started writing some code

[BlackBox]

I am not adept at coding VBA, but here is a LISP that should do what you need:

 

(defun c:FOO  (/ *error*)
 (vl-load-com)

 (defun *error*  (msg)
   (if acDoc
     (vla-endundomark acDoc))
   (cond ((not msg))                                                   ; Normal exit
         ((member msg '("Function cancelled" "quit / exit abort")))    ; <esc> or (quit)
         ((princ (strcat "\n** Error: " msg " ** "))))                 ; Fatal error, display it
   (princ))

 ((lambda (acDoc)
    (vla-startundomark acDoc)
    (vlax-for oLayer  (vla-get-layers acDoc)
      (if (= :vlax-false (vla-get-lock oLayer))
        (vla-put-color oLayer acWhite)))
    (*error* nil))
   (vla-get-activedocument (vlax-get-acad-object))))

Hope this helps!