[求助]：想把acet-ss-filter改得更方便，遇到问题。

Wildcat

例如：把选择集中图层为defpoints的对象过滤掉，程序如下
(defun c:test ()
  (princ "\n请选择对象:")
  (setq ss (ssget))
  (setq lst (list (list '((-4 . "<NOT") (8 . "DEFPOINTS") (-4 . "NOT>")) "\n1 " "\n%1 ")))
  (setq ss_n (car (acet-ss-filter (list ss lst nil))))
)

以上程序执行没问题，但想改成使用更方便一点的，对指象对象过滤。
程序如下（还是以　把选择集中图层为defpoints的对象过滤掉　为例吧）：
(defun ssfilter (ss zm value )
  (setq lst (list (list '((-4 . "<NOT") (cons zm value) (-4 . "NOT>" ))"\n1 " "\n%1 ")))
  (car (acet-ss-filter (list ss lst nil)))
)

(defun c:test ()
  (princ "\n请选择对象:")
  (setq ss (ssget))
  (setq ss_n (R_ssfilter_a ss 8 "DEFPOINTS"))
)

结果出错。为什么会这样呢？是acet-ss-filter有特殊要求吗？请问如何解决？

陌生人

路过，第一个执行就有问题。“ 不成对

Wildcat

不好意思，是LSP的某些符号直接在论坛显示不正确，重新贴入

2. 
   
3.   [FONT=courier new]
   
4. 例如：把选择集中图层为defpoints的对象过滤掉，程序如下
   
5. (defun c:test ()
   
6.   (princ "\n请选择对象:")
   
7.   (setq ss (ssget))
   
8.   (setq lst (list (list '((-4 . "《NOT") (8 . "DEFPOINTS") (-4 . "NOT》")) "\n1 " "\n%1 ")))
   
9.   (setq ss_n (car (acet-ss-filter (list ss lst nil))))
   
10. )
    
11. 
    
12. 
    
13. 以上程序执行没问题，但想改成使用更方便一点的，对指象对象过滤。
    
14. 程序如下（还是以　把选择集中图层为defpoints的对象过滤掉　为例吧）：
    
15. 
    
16. (defun c:test ()
    
17.   (princ "\n请选择对象:")
    
18.   (setq ss (ssget))
    
19.   (setq ss_n (ssfilter ss 8 "DEFPOINTS"))
    
20. )
    
21. 
    
22. (defun ssfilter (ss zm value )
    
23.   (setq lst (list (list '((-4 . "《NOT") (cons zm value) (-4 . "NOT》" ))"\n1 " "\n%1 ")))
    
24.   (car (acet-ss-filter (list ss lst nil)))
    
25. )
    
26. 
    
27. 结果出错。为什么会这样呢？是acet-ss-filter有特殊要求吗？请问如何解决？
    
28. 
    
29.   [/FONT]
    

<br />   [FONT=courier new]<br /> 例如：把选择集中图层为defpoints的对象过滤掉，程序如下<br /> (defun c:test ()<br />   (princ "\n请选择对象:")<br />   (setq ss (ssget))<br />   (setq lst (list (list '((-4 . "《NOT") (8 . "DEFPOINTS") (-4 . "NOT》")) "\n1 " "\n%1 ")))<br />   (setq ss_n (car (acet-ss-filter (list ss lst nil))))<br /> )<br /> <br /> <br /> 以上程序执行没问题，但想改成使用更方便一点的，对指象对象过滤。<br /> 程序如下（还是以　把选择集中图层为defpoints的对象过滤掉　为例吧）：<br /> <br /> (defun c:test ()<br />   (princ "\n请选择对象:")<br />   (setq ss (ssget))<br />   (setq ss_n (ssfilter ss 8 "DEFPOINTS"))<br /> )<br /> <br /> (defun ssfilter (ss zm value )<br />   (setq lst (list (list '((-4 . "《NOT") (cons zm value) (-4 . "NOT》" ))"\n1 " "\n%1 ")))<br />   (car (acet-ss-filter (list ss lst nil)))<br /> )<br /> <br /> 结果出错。为什么会这样呢？是acet-ss-filter有特殊要求吗？请问如何解决？ <br /> <br />   [/FONT]<br />

NOT前后的箭头型括号由于论坛不支持，所以改为中文的"《"》"了，麻烦大家注意。

陌生人

'((-4 . "<NOT") (cons zm value) (-4 . "NOT>"))  
'() 内部用 cons是没有用的
改为：
(setq
    fil        (list (list (list '(-4 . "<NOT") (cons zm value) '(-4 . "NOT>"))
                    "\n1 "
                    "\n%1 "
              )
        )
  )

Wildcat

最初由 陌生人 发布
[B]'((-4 . "<NOT") (cons zm value) (-4 . "NOT>"))  
'() 内部用 cons是没有用的
改为：
(setq
    fil        (list (list (list '(-4 . "<NOT") (cons zm value) '(-4 . "NOT>"))
                    "\n1 "
                    "\n%1 "
            ... [/B]

哦，原来如此，多谢高人指点。