Topic: 0 layer current

[POCKETS]

I am looking for a routine to make layer 0 current by using a button.
many thanks,
pockets

[ronjonp]

(setvar 'clayer "0")

[Lee Mac]

Code: [Select]

^C^Csetvar;clayer;0

[David Bethel]

What if layer "0" is frozen?  Or locked?  -David

[Lee Mac]

What if layer "0" is frozen?  Or locked?  -David

Fair point David,

Code: [Select]

^C^C_.-layer;_t;0;_u;0;_s;0;;

[POCKETS]

Thank you ! ! !   Thank You  ! ! !   THANK YOU !

[alanjt]

Hey, I have one of those. 

Code: [Select]

(defun c:L0 (/) (command "_.-layer" "_T" "0" "_c" 7 "0" "_s" "0" "") (princ))

[Kerry]

Now that that's resolved :
Everytime I notice pockets avatar my mind goes frenetic and I forget his questions ... sorry

[cmwade77]

Why would you want to set layer 0 current?

The only things that should be drawn on layer 0 are within blocks.

Ok, rant over, but really we get so many drawings with just about everything drawn on layer 0 (or at least the few things that we need to freeze when we xref the drawings) that I just have to mention it.

[mjfarrell]

Why would you want to set layer 0 current?

The only things that should be drawn on layer 0 are within blocks.

Ok, rant over, but really we get so many drawings with just about everything drawn on layer 0 (or at least the few things that we need to freeze when we xref the drawings) that I just have to mention it.

it would appear they are getting ready to send you some more drawings.   

seriously, perhaps this person wants to set 0 current before he creates block geometry....

[Chris]

Why would you want to set layer 0 current?

The only things that should be drawn on layer 0 are within blocks.

Ok, rant over, but really we get so many drawings with just about everything drawn on layer 0 (or at least the few things that we need to freeze when we xref the drawings) that I just have to mention it.

I set layer 0 current before running a layerstate command, because 0 is always on/thawed for our drawings, I dont have to worry about the current layer being frozen.

[ronjonp]

I set layer 0 when purging.

[ronjonp]

Here's another 

Code: [Select]

(defun c:0 (/ o)
  (vl-load-com)
  (setq o (vlax-ename->vla-object (tblobjname "layer" "0")))
  (mapcar '(lambda (x) (vlax-put o (car x) (cdr x))) '((freeze . 0) (lock . 0) (layeron . -1)))
  (setvar 'clayer "0")
  (princ)
)

[alanjt]

Here's another 

Code: [Select]

(defun c:0 (/ o)
  (vl-load-com)
  (setq o (vlax-ename->vla-object (tblobjname "layer" "0")))
  (mapcar '(lambda (x) (vlax-put o (car x) (cdr x))) '((freeze . 0) (lock . 0) (layeron . -1)))
  (setvar 'clayer "0")
  (princ)
)

Code: [Select]

(mapcar (function (lambda (x) (apply (function vlax-put) (cons o x))))
             '((freeze 0) (lock 0) (layeron -1))
     )

[cmwade77]

I set layer 0 when purging.

I do that as well, but unless it has been purged, I set the layer back to what it already was, here is my routine for doing this:

Code: [Select]

(defun c:upu (/ OldLayer)
(setq OldLayer (getvar "clayer"))
(setvar "clayer" "0")
(vl-cmdf "._-purge" "all" "*" "N"); Purges all unused items.
(vl-cmdf "._-purge" "all" "*" "N"); Purges all unused items a second time, just in case.
(vl-cmdf "._-purge" "r" "*" "N"); Purges all unreferenced, registered applications. Also is the end of the Command function.
(if (tblsearch "LAYER" OldLayer) ; Check to see if old layer still exsists
(setvar "clayer" OldLayer) ; If old layer still exists set it back to current
)
 )This includes my purging routine as well.