home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
CAD
/
PKEY11_1.ZIP
/
FL.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
473b
|
19 lines
;Freeze Multiple Layers
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
;
(defun C:fl ()
(setq oer *error* *error* err2)
(setq ss (ssget))
(setq counter 0)
(prompt "Freezing layers...")
(while
(setq e (ssname ss counter))
(setq fl (cdr (assoc 8 (entget e))))
(progn
(command "layer" "f" fl ""))
(setq counter (+ counter 1))
(princ fl)(princ ", "))
(princ "\n "))