[GECK]

подскажите лисп чтобы одним махом открывал все слои , замороженные и быключенные.
благодарю.

[kha]

Включение всех выключенных слоёв

Код:

[Выделить все]

; ---------------------- LAYER ON FUNCTION -----------------------
; Turns all layers on
; ----------------------------------------------------------------
 
(Defun C:LAYON ()
 
  (acet-error-init
    (list
      (list "cmdecho" 0)
      nil     ;flag. True means use undo for error clean up.
    );list
  );acet-error-init
 
  (Command "_.-LAYER" "_ON" "*" "")
  (prompt "\nAll layers have been turned on.")
 
  (acet-error-restore)
 
  (princ)
)

Включение всех замороженных слоёв

Код:

[Выделить все]

; --------------------- LAYER THAW FUNCTION ----------------------
; Thaws all layers
; ----------------------------------------------------------------
 
(Defun C:LAYTHW ()
 
  (acet-error-init
    (list
      (list "cmdecho" 0)
      nil     ;flag. True means use undo for error clean up.
    );list
  );acet-error-init
 
  (Command "_.-LAYER" "_THAW" "*" "")
  (prompt "\nAll layers have been thawed.")
 
  (acet-error-restore)
 
  (princ)
)

(с)тырено из Express Tools

[VVA]

Научите работать со слоями

[Profan]

Тут и лисп не нужен, достаточно макроса:
^C^C_-LAYER;_ON;"*";_TH;"*";;

[VVA]

При наличии Express Tools есть команды
LAYON - включить все слои
LAYTHW - разморозить все слои
Макрос
^C^C_LAYON;_LAYTHW;

[GECK]

большое спасибо,опробую,после нового года.