[讨论]：如何读取和设置当前图层过滤器的名称？（VL办法）

灯火

这样，就可以在调用图层对话框之前过滤出要编辑的图层了。
测试来看，当前过滤器的名称并不随图形文件保存，VLISP有没有办法读取和设置当前命名过滤器的名称？

aeo

可能你的cad是特别版本，不随图保存.

梦断江南

是不是题目没有说清楚？反正我看着晕阿

aidraft

好像还没有人搞出来吧。

灯火

最初由 aeo 发布
[B]可能你的cad是特别版本，不随图保存. [/B]

你的能保存？注意“当前”二字。

不过，能否保存不是主要的，每次打开图层对话框，过滤器名都是上次使用的，显然当前会话期间是保留的，问题是怎么通过程序设置当前过滤器名。

LUCAS

2. 
   
3. ;;Sorry!設置當前圖層篩檢程式的名稱--------還沒有找到
   
4. ;;BY LUCAS(龍龍仔)
   
5. ;;讀取圖層篩檢程式的名稱
   
6. ;;RETURN: (<圖層篩檢程式的名稱列表> (list ename 當前圖層篩檢程式的名稱))
   
7. (defun C:LST_NAME (/              DOC         XDICTLAYERS
   
8.                    LAYFILTER  NAME         LST_NAME   ENT
   
9.                    ACTIVE_NAME                 ENAME
   
10.                   )
    
11.   (vl-load-com)
    
12.   (setq        DOC            (vla-get-activedocument (vlax-get-acad-object))
    
13.         XDICTLAYERS (vla-getextensiondictionary (vla-get-layers DOC))
    
14.   )
    
15.   (if (/= (vla-get-count XDICTLAYERS) 0)
    
16.     (progn
    
17.       (setq LAYFILTER (vla-item XDICTLAYERS "ACLYDICTIONARY"))
    
18.       (vlax-for        NAME LAYFILTER
    
19.         (setq LST_NAME
    
20.                (append
    
21.                  LST_NAME
    
22.                  (list
    
23.                    (cdr
    
24.                      (assoc 300
    
25.                             (setq ENT
    
26.                                    (entget (setq ENAME (vlax-vla-object->ename NAME)))
    
27.                             )
    
28.                      )
    
29.                    )
    
30.                  )
    
31.                )
    
32.         )
    
33.         (if (assoc 290 ENT)
    
34.           (setq ACTIVE_NAME (list ENAME (last LST_NAME)))
    
35.         )
    
36.       )
    
37.     )
    
38.   )
    
39.   (vlax-release-object DOC)
    
40.   (vlax-release-object XDICTLAYERS)
    
41.   (list LST_NAME ACTIVE_NAME)
    
42. )
    

<br /> ;;Sorry!設置當前圖層篩檢程式的名稱--------還沒有找到<br /> ;;BY LUCAS(龍龍仔)<br /> ;;讀取圖層篩檢程式的名稱<br /> ;;RETURN: (<圖層篩檢程式的名稱列表> (list ename 當前圖層篩檢程式的名稱))<br /> (defun C:LST_NAME (/              DOC         XDICTLAYERS<br />                    LAYFILTER  NAME         LST_NAME   ENT<br />                    ACTIVE_NAME                 ENAME<br />                   )<br />   (vl-load-com)<br />   (setq        DOC            (vla-get-activedocument (vlax-get-acad-object))<br />         XDICTLAYERS (vla-getextensiondictionary (vla-get-layers DOC))<br />   )<br />   (if (/= (vla-get-count XDICTLAYERS) 0)<br />     (progn<br />       (setq LAYFILTER (vla-item XDICTLAYERS "ACLYDICTIONARY"))<br />       (vlax-for        NAME LAYFILTER<br />         (setq LST_NAME<br />                (append<br />                  LST_NAME<br />                  (list<br />                    (cdr<br />                      (assoc 300<br />                             (setq ENT<br />                                    (entget (setq ENAME (vlax-vla-object->ename NAME)))<br />                             )<br />                      )<br />                    )<br />                  )<br />                )<br />         )<br />         (if (assoc 290 ENT)<br />           (setq ACTIVE_NAME (list ENAME (last LST_NAME)))<br />         )<br />       )<br />     )<br />   )<br />   (vlax-release-object DOC)<br />   (vlax-release-object XDICTLAYERS)<br />   (list LST_NAME ACTIVE_NAME)<br /> )<br />

梦断江南

运行到 (setq LAYFILTER (vla-item XDICTLAYERS "ACLYDICTIONARY")) 显示
"错误: Automation 错误。 未找到主键"
我改为了

2. 
   
3. (defun c:layfls (/ layfls lst)
   
4. (vl-Catch-All-Apply
   
5. '(lambda ()
   
6.    (setq layfls(vla-item (vla-GetExtensionDictionary(vla-Get-Layers (vla-Get-ActiveDocument(vlax-Get-Acad-Object))))"ACAD_LAYERFILTERS"))
   
7.    (vlax-for n layfls (setq lst (cons (vla-get-name  n) lst)))
   
8. )
   
9. )
   
10. lst
    
11. )

<br /> (defun c:layfls (/ layfls lst)<br /> (vl-Catch-All-Apply<br /> '(lambda ()<br />    (setq layfls(vla-item (vla-GetExtensionDictionary(vla-Get-Layers (vla-Get-ActiveDocument(vlax-Get-Acad-Object))))"ACAD_LAYERFILTERS"))<br />    (vlax-for n layfls (setq lst (cons (vla-get-name  n) lst)))<br /> )<br /> )<br /> lst<br /> )

LUCAS

Sorry!夢兄:你的程式跟我的並不一樣，試試[連續]執行我附的程式，再看看你(layfls)與我(lst_name)程式的差別。