怎样获取图层状态内的图层列表

dshshi

请问个问题：
假设先新建一个图层，图层名称：“layer1”，
随后新建一个图层状态，图层状态名称：“layerstate1”，
然后再新建一个图层，图层名称：“layer2”。
问题：
怎么获取图层状态”layerstate1“下的图层列表？

dshshi

以上问题能否用vlisp编程实现？   

炫翔

1. ;功  能: 获取冻结的图层列表
   
2. ;时  间: 2014.9.15
   
3. ;格  式: (xx-layer-GetFrozenLst)
   
4. ;参  数:
   
5. ;返回值:图层名列表
   
6. ;说  明:
   
7. ;示  例:
   
8. (defun xx-layer-GetFrozenLst (/ lst)
   
9.   (vlax-for x (xx-acLayers)
   
10.     (if (= (vlax-get-property x "Freeze") :vlax-true)
    
11.       (setq lst (cons (vla-get-name x) lst))
    
12.     )
    
13.   )
    
14.   lst
    
15. )
    
16. (setq xx-acApp (vlax-get-acad-object)
    
17.       xx-acDoc  (vla-get-activedocument xx-acApp)
    
18. )
    
19. (defun xx-acLayers nil(vla-get-layers xx-acDoc))
    
20. 
    

;功  能: 获取冻结的图层列表<br /> ;时  间: 2014.9.15<br /> ;格  式: (xx-layer-GetFrozenLst)<br /> ;参  数: <br /> ;返回值:图层名列表<br /> ;说  明:<br /> ;示  例:<br /> (defun xx-layer-GetFrozenLst (/ lst)<br />   (vlax-for x (xx-acLayers)<br />     (if (= (vlax-get-property x "Freeze") :vlax-true)<br />       (setq lst (cons (vla-get-name x) lst))<br />     )<br />   )<br />   lst<br /> )<br /> (setq xx-acApp (vlax-get-acad-object)<br />       xx-acDoc  (vla-get-activedocument xx-acApp)<br /> )<br /> (defun xx-acLayers nil(vla-get-layers xx-acDoc))<br /> <br />

Free-Lancer

_$ (layerstate-getlayers "001")
("图层8" "图层7" "图层6" "图层5" "图层4" "图层3" "图层2" "图层1" "0")
_$ (layerstate-getnames)
("001")
_$ (layerstate-has "001")
T
_$ (layerstate-has "002")
nil
_$

dshshi

谢谢Free-Lancer，请问这个是用哪种语言实现的？