[编程申请]：关于图层命令的格式

tcydx

小弟刚学LISP，有关于图层命令的格式请教各位：
比如我想实现以下功能：
1、提示选择物体
   将该物体所在的层置为当前层，判断并取消该层的冻结、锁
   定、隐藏等属性。
   反选其余图层，并设置为隐藏、锁定。


2、提示选择物体
   新建一个图层，将选择物体置于该层，并设置为隐藏、锁定


3、假如有8个图层L1——L8
      判断并将其中L2、L3、L5、L7的冻结、锁定、隐藏属性去掉。
   反选其余图层并设置为隐藏、锁定。

以上问题大同小异，主要涉及图层命令的格式，我查不到相关的资料，请各大侠指教。

xyp1964

;;;*图层更换
[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")

;;;*图层更换
(defun c:TCGH ()
  (cmdla0)  
  (WHILE (NOT (setq e (entsel "\n确定被设置层任一物体 : "))))
  (setq la (dxf 8 (entget (car e))))
  (command "-layer" "t" la "s" la "u" la "")
  (cmdla1)
)
(pxyp "TCGH      (图层更换)")
[/php]