（完成）[编程申请]：layer state的保存与恢复

小菜

我想用lisp实现图层状态(layer state)的保存与恢复，但不知道如何在lisp程序中获取已经保存过的图层状态，也就没办法区分想要保存的状态名称是否已经存在，在用command->layer->state->save的时候就不能知道要不要先删除已经保存的名称，请各位帮忙，谢谢!

eachy

读入保存数据的时候先用(tblsearch "layer" layername) 判断图层是否存在。ｓａｖｅ的时候清除上次的纪录。

小菜

用(tblsearch "layer" "layername")得到的是图层信息，不是图层状态信息，斑竹试过没有？还是无法知道某种图层状态是否存在

eachy

最初由 小菜 发布
[B]用(tblsearch "layer" "layername")得到的是图层信息，不是图层状态信息，斑竹试过没有？还是无法知道某种图层状态是否存在 [/B]

没有试过，我用Vlisp获得图层的各种状态，2002或者2004下直接用Layer的状态保存，没必要编程。你的问题还是说明在那个版本CAD下使用，还是把你的代码贴上来好说。

小菜

我用的版本是2002，用(command "-layer" "state" ..............)因为不知道图中是否已经保存过某个名字的图层状态，所以不能预知命令序列，就没办法在程序中实现保存与恢复了
代码应该象这样：

IF EXIST "layer_name"   ;;这一句怎么用lisp实现呢？
    (command "-layer" "state" "delete" "layer_name" "save" "layer_name" "" "")
    ELSE
       (command "-layer" "state" "save" "layer_name" "" "")
END IF

eachy

最初由 小菜 发布
[B]我用的版本是2002，用(command "-layer" "state" ..............)因为不知道图中是否已经保存过某个名字的图层状态，所以不能预知命令序列，就没办法在程序中实现保存与恢复了
代码应该象这样：

IF EXIST "layer... [/B]

应该借助个工具看看那个状态保存在ＣＡＤ中的什么地方

小菜

明经上的大虾帮我搞好了，谢谢，有兴趣的朋友也可以去看看。

eachy

最初由 小菜 发布
[B]明经上的大虾帮我搞好了，谢谢，有兴趣的朋友也可以去看看。 [/B]

2. [php](defun GetLyrStates (/ lyr dict na en lyrtblobj i1)
   
3.   (setq        lyrtblobj (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))));Layer Table
   
4.         lyr          (entget lyrtblobj)
   
5.   )
   
6.   ;;除非自己添加，CAD标准中第一个360 是"ACAD_LAYERFILTERS"
   
7.   ;;第二个 360 是"ACAD_LAYERSTATES"
   
8.   (foreach i lyr
   
9.     (if        (and (= (car i) 360)                ;Extension Dictionary
   
10.              (setq i1 (dictsearch (cdr i) "ACAD_LAYERSTATES" T))
    
11.         )
    
12.       (foreach n i1
    
13.         (cond
    
14.           ((= (car n) 3)                ;State Name
    
15.            (setq na (cons (cdr n) na))
    
16.           )
    
17.           ((= (car n) 350) (setq en (cons (cdr n) en))) ;XRecord
    
18.           (t)
    
19.         )
    
20.       )
    
21.     )
    
22.   )
    
23.   (list na en)
    
24. )[/php]

[php](defun GetLyrStates (/ lyr dict na en lyrtblobj i1)<br />   (setq        lyrtblobj (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))));Layer Table<br />         lyr          (entget lyrtblobj)<br />   )<br />   ;;除非自己添加，CAD标准中第一个360 是"ACAD_LAYERFILTERS" <br />   ;;第二个 360 是"ACAD_LAYERSTATES"<br />   (foreach i lyr<br />     (if        (and (= (car i) 360)                ;Extension Dictionary<br />              (setq i1 (dictsearch (cdr i) "ACAD_LAYERSTATES" T))<br />         )<br />       (foreach n i1<br />         (cond<br />           ((= (car n) 3)                ;State Name<br />            (setq na (cons (cdr n) na))<br />           )<br />           ((= (car n) 350) (setq en (cons (cdr n) en))) ;XRecord<br />           (t)<br />         )<br />       )<br />     )<br />   )<br />   (list na en)<br /> )[/php]

小菜

非常感谢!