怎样更改以下小程序段达到这样的功能"锁定其余所有图层,除了当前层外,"

whm2216

(Defun CAYLK () (init_bonus_error
(list
(list "cmdecho" 0)
nil ;flag. True means use undo for error clean up.
);list
);init_bonus_error (Command "_.-LAYER" "_LOCK" "*" "")
(prompt "\nAll layers have been locked.") (restore_old_error) (princ)
)

BDYCAD

参考例: (SETQ SS (SSGET ))
(command
"_.-LAYER" "ON" "*" ""
"_.-LAYER" "UNLOCK" "*" ""
"_.-LAYER" "THAW" "*" ""
"_.ERASE" "ALL" "R" ss ""
"_.ZOOM" "E"
)

sailorcwx

(defun C:cs2()
(setq clayerYH (getvar "clayer"))
(command "layer" "Lo" "*" "")
(command "layer" "u" clayerYH "")
(princ)
)

whm2216

谢谢二位的帮忙!