home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
misc_lsp.zip
/
LAYERS.LSP
< prev
next >
Wrap
Text File
|
1987-09-15
|
937b
|
33 lines
;
(defun c:ls ( / layer)
(setvar "BLIPMODE" 0)
(setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer "))))))
(command "layer" "set" layer "")
)
;
(defun c:lo ( / layer)
(setvar "BLIPMODE" 0)
(setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer to turn off "))))))
(command "layer" "off" layer "")
)
;
(defun c:lf ( / layer)
(setvar "BLIPMODE" 0)
(setq layer (cdr (assoc 8 (entget (car (entsel "Pick Item for Layer to freeze "))))))
(command "layer" "freeze" layer "")
)
; Delete all entities on specified layer
(defun c:dlay ()
(setq l (strcase (getstring "\nEnter layer to delete: ")))
(setq e (entnext))
(while e
(if (= l (cdr (assoc 8 (entget e))))
(entdel e)
)
(setq e (entnext e))
)
)
(prompt "\nLS - LAYER SET LO - LAYER OFF DLAY - DELETE LAYER")