CAD2008
命令: _Laymcur

CAD2006以下
命令: _ai_molc

LISP:

;; 作者: 蔡建伟 http://bbs.co188.com
(defun c:tt (/ E LAYER)
(and (setq e (car (entsel "\n选择将使其图层成为当前图层的对象:")))
(setq layer (cdr (assoc 8 (entget e))))
(setvar "clayer" layer)
(princ (strcat "\n" layer " 现在为当前图层。"))
)
(princ)
)

layiso 我觉得就够了。

萝卜还是很热心的，支持你！