怎么用lisp关闭图层

changyiran

怎么用lisp关闭图层啊，请高手指点！

changyiran

斑竹，我是不是图层对象获取错了，我想获取名为jmd的图层，我是这样写的(setq tc(tblsearch "layer""jmd"))之后又(command"layer""off"tc"")，但是没反应

vormittag

2. (setq tc (cdr (assoc 2 (tblsearch "layer""jmd"))))

(setq tc (cdr (assoc 2 (tblsearch "layer""jmd"))))

changyiran

vormittag 发表于 2012-4-12 10:27

成功了，那我问一下，能不能遍历所有图层呢？

nzl1116

2. (defun GetELayers ()
   
3.   (defun func (/ Var)
   
4.     (if        (setq Var (tblnext "Layer"))
   
5.       (cons (cdr (assoc 2 Var)) (func))
   
6.     )
   
7.   )
   
8.   (cons (cdr (assoc 2 (tblnext "Layer" T))) (func))
   
9. )

(defun GetELayers ()<br />   (defun func (/ Var)<br />     (if        (setq Var (tblnext "Layer"))<br />       (cons (cdr (assoc 2 Var)) (func))<br />     )<br />   )<br />   (cons (cdr (assoc 2 (tblnext "Layer" T))) (func))<br /> )

changyiran

nzl1116 发表于 2012-4-12 16:40

非常感谢，可以了！

nzl1116

nzl1116 发表于 2012-4-12 16:40

我感觉一些简单的循环还是比递归快些，就如上这种。