用lisp编程实现layer ->state的保存与恢复

小菜123

用lisp编程实现layer ->state的保存与恢复
在2002中可以对图层状态进行保存与恢复，但怎么用lisp实现一次要保存或收复几个图层状态呢？因为不知道怎么用lisp获取已经保存过的图层状态名称，所以用(command "-layer" "state"......)时无法预知命令序列

citykunan

(command "_.layer" "A" "S" "Layer_Name" "" "" "");保存原图的图层设置
.
.
.
(command "_.layer" "A" "R" "Layer_Name" "" "" );恢复原图的图层设置
(command "_.layer" "A" "D" "Layer_Name" "" "" );删除临时的图层状态名Layer_Name

小菜123

怎样知道图中是否已经保存过"layer_name"呢？我不是想在程序中保存过，再恢复出来，而是一直保存在图中，有时还需要对这个保存的状态进行修改，这就要先知道某个名字的图层状态是否已经保存过

龙龙仔

2. 
   
3. ;;BY 龙龙仔(LUCAS)
   
4. ;;(CHECK_LAYERSTATE_NAME <STRING>)
   
5. ;;(CHECK_LAYERSTATE_NAME "LAYERSTATE_NAME")
   
6. ;;注意:LAYERSTATE_NAME大小写有别
   
7. (vl-load-com)
   
8. (defun CHECK_LAYERSTATE_NAME (NAME / X NAME_LIST TMP)
   
9.   (if (> (vla-get-count
   
10.            (setq TMP (vla-getextensiondictionary
    
11.                        (vla-get-layers
    
12.                          (vlax-get-property
    
13.                            (vlax-get-acad-object)
    
14.                            'ACTIVEDOCUMENT
    
15.                          )
    
16.                        )
    
17.                      )
    
18.            )
    
19.          )
    
20.          0
    
21.       )
    
22.     (progn
    
23.       (vlax-for        X (vla-item TMP "ACAD_LAYERSTATES")
    
24.         (setq NAME_LIST (cons (vla-get-name X) NAME_LIST))
    
25.       )
    
26.       (vlax-release-object TMP)
    
27.       (if (member NAME NAME_LIST)
    
28.         t
    
29.         NIL
    
30.       )
    
31.     )
    
32.   )
    
33. )
    

<br /> ;;BY 龙龙仔(LUCAS)<br /> ;;(CHECK_LAYERSTATE_NAME <STRING>)<br /> ;;(CHECK_LAYERSTATE_NAME "LAYERSTATE_NAME")<br /> ;;注意:LAYERSTATE_NAME大小写有别<br /> (vl-load-com)<br /> (defun CHECK_LAYERSTATE_NAME (NAME / X NAME_LIST TMP)<br />   (if (> (vla-get-count<br />            (setq TMP (vla-getextensiondictionary<br />                        (vla-get-layers<br />                          (vlax-get-property<br />                            (vlax-get-acad-object)<br />                            'ACTIVEDOCUMENT<br />                          )<br />                        )<br />                      )<br />            )<br />          )<br />          0<br />       )<br />     (progn<br />       (vlax-for        X (vla-item TMP "ACAD_LAYERSTATES")<br />         (setq NAME_LIST (cons (vla-get-name X) NAME_LIST))<br />       )<br />       (vlax-release-object TMP)<br />       (if (member NAME NAME_LIST)<br />         t<br />         NIL<br />       )<br />     )<br />   )<br /> )<br />

小菜123

正是我想要的，谢谢!

小菜123

有点小问题，对于附件中的图，执行结果不正确

龙龙仔

2. ;;BY 龙龙仔(LUCAS);;(CHECK_LAYERSTATE_NAME <STRING>);;(CHECK_LAYERSTATE_NAME "LAYERSTATE_NAME");;注意:LAYERSTATE_NAME大小写有别(vl-load-com)(defun CHECK_LAYERSTATE_NAME (NAME / X NAME_LIST TMP)   (if (and (setq TMP (vl-catch-all-apply                                            'vla-item                                            (list (vla-getextensiondictionary                                                            (vla-get-layers                                                                 (vlax-get-property                                                                    (vlax-get-acad-object)                                                                    'ACTIVEDOCUMENT                                                                 )                                                            )                                                        )                                                        "ACAD_LAYERSTATES"                                            )                                        )                    )                    (if (vl-catch-all-error-p TMP)                        NIL                        t                    )           )       (progn           (vlax-for             X TMP               (setq NAME_LIST (cons (vla-get-name X) NAME_LIST))           )           (vlax-release-object TMP)       )   )   (if (member NAME NAME_LIST)       t       NIL   ))  

;;BY 龙龙仔(LUCAS);;(CHECK_LAYERSTATE_NAME <STRING>);;(CHECK_LAYERSTATE_NAME "LAYERSTATE_NAME");;注意:LAYERSTATE_NAME大小写有别(vl-load-com)(defun CHECK_LAYERSTATE_NAME (NAME / X NAME_LIST TMP)   (if (and (setq TMP (vl-catch-all-apply                                            'vla-item                                            (list (vla-getextensiondictionary                                                            (vla-get-layers                                                                 (vlax-get-property                                                                    (vlax-get-acad-object)                                                                    'ACTIVEDOCUMENT                                                                 )                                                            )                                                        )                                                        "ACAD_LAYERSTATES"                                            )                                        )                    )                    (if (vl-catch-all-error-p TMP)                        NIL                        t                    )           )       (progn           (vlax-for             X TMP               (setq NAME_LIST (cons (vla-get-name X) NAME_LIST))           )           (vlax-release-object TMP)       )   )   (if (member NAME NAME_LIST)       t       NIL   ))  

小菜123

龙兄真是高手，多谢

hdtmzs

这段程序怎么用啊，是什么语言啊

smartstar

向前辈们学习。