LISP On/Off for set of layers
Hi,
Here's a way to define multiple functions (LISP commands) in a single expression.
You can change the contents of the two lists at the end of the code to suit your needs.
(mapcar
'(lambda (cmd lst)
(eval (list
'defun
cmd
'(/ l n c)
(list 'while
'(setq l (tblnext "layer" (not l)))
'(setq
n
(cdr (assoc 2 l))
c
(assoc 62 l)
)
(list 'entmod
(list 'subst
(list 'cons
62
(list
(list 'if
(list 'member 'n (list 'quote lst))
+
-
)
'(abs (cdr c))
)
)
'c
'(entget (tblobjname "layer" n))
)
)
)
'(princ)
)
)
)
'(c:ALAYERS c:BLAYERS) ; command names
'(("1" "2" "3" "4" "5") ("6" "7" "8" "9" "10")) ; lists of layers
)
@sam wrote:
....
Would it be possible to do it with code to keep only certain set of layers on and all others off.
For example: If i have layers naming (1,2,3,4...25) and if I call ALayers only layers 1-5 are on and all the rest are off from 6-25. So on if I call Blayers only Layers from 6-10 are on and 1-5, 11-25 are off.
....
You can apply most Layer-command options [including On and Off] to multiple Layers at once, using comma separators between Layer names. So if you save the sets of Layer names as comma-delimited strings, rather than lists, it's pretty simple:
(setq Alist "ThisLayer,ThatLayer,OtherLayer,SomeLayer" Blist "WhoLayer,WhatLayer,WhenLayer,WhereLayer" Clist "0Layer,1Layer,2Layer,3Layer" ); setq (defun LayerStuff (Llist / expt); sub-routine called by commands (setq expt (getvar 'expert) (setvar 'expert 1); suppress "turn-off-current-Layer?" question (command "_.layer" "_off" "*" "_on" Llist ""); all off, then some on (setvar 'expert expt) ); defun (defun C:Alayers () (LayerStuff Alist)) (defun C:Blayers () (LayerStuff Blist)) (defun C:Clayers () (LayerStuff Clist))
Consider whether you want one of those that is going to be On in the end to become the current Layer, or whether something like Layer 0 could be made current in the process.
@sam wrote:
.... to keep only certain set of layers on and all others off....
Of course, there are also Layer STATES [see Help about them]that can do this for you, without any code or defining of command names. But I guess it's a drawback that they need to be established in every drawing where you want to use them, whereas the command approach can be applied anywhere if you have the commands automatically loaded by such as acaddoc.lsp.
@jaimuthu wrote:
error: malformed list on input ----> its may be expt it is command in lisp
You're right [a function, not a command, but still...] -- that should have used a different variable name. But I don't think that can be the cause of your error message, so I think there's something else going on. Surely you're not using the Layer names in my code, so did something go wrong in changing to your real names?
I want to use it,but it didn't work out.
Is there something wrong?
(setq
Alist '("01" "02" "03")
Blist '("04" "05" "06")
) ; setq
(defun LayerStuff (Llist / expt)
(setq expt (getvar 'expert))
(setvar 'expert 1)
(command "_.layer" "_off" "*" "")
(foreach layer Llist
(command "_.layer" "_on" layer))
(setvar 'expert expt)
); defun
(defun c:Alayers () (LayerStuff Alist))
(defun c:Blayers () (LayerStuff Blist))
You need to finish the Layer commands:
(command "_.layer" "_on" layer ""))
If that doen't make it work, explain in more detail what you mean by "it didn't work out" [which is never enough information].
