创建支持数量的过滤规则

菜卷鱼

既然用得不多，为啥还要单独写一个那么复杂的呢？

1. (defun ss:n ()
   
2.   (setq aa '("##." "###." "####." "#####."))
   
3.   (setq bb '("#" "##"))
   
4.   (setq cc '("（#）" "（##）" "（###）"))
   
5.   (setq n1 (zuhe aa (zuhe bb cc)))
   
6.   (setq n2 (mapcar '(lambda (x) (apply 'strcat x)) n1))
   
7.   (ssget (list (cons 1 (strjoin n2 ","))))
   
8. )
   
9. ;;;字符串连接
   
10. (defun strjoin (lst del)
    
11.   (if (cdr lst)
    
12.     (strcat (car lst) del (strjoin (cdr lst) del))
    
13.     (car lst)
    
14.   )
    
15. )
    
16. ;;;两个表两两组合成新表
    
17. (defun zuhe (lst1 lst2 / i j a lst)
    
18.   (setq i 0)
    
19.   (repeat (length lst1)
    
20.     (setq a (nth i lst1))
    
21.     (if (atom a)(setq a (cons a nil)))
    
22.     (setq j 0)
    
23.     (repeat (length lst2)
    
24.       (setq b (nth j lst2))
    
25.       (if (atom b)(setq b (cons b nil)))
    
26.       (setq lst
    
27.        (append
    
28.          lst
    
29.          (list(append a b))
    
30.        )
    
31.       )
    
32.       (setq j (1+ j))
    
33.     )
    
34.     (setq i (1+ i))
    
35.   )
    
36.   Lst
    
37. )

(defun ss:n ()<br />   (setq aa '("##." "###." "####." "#####."))<br />   (setq bb '("#" "##"))<br />   (setq cc '("（#）" "（##）" "（###）"))<br />   (setq n1 (zuhe aa (zuhe bb cc)))<br />   (setq n2 (mapcar '(lambda (x) (apply 'strcat x)) n1))<br />   (ssget (list (cons 1 (strjoin n2 ","))))<br /> )<br /> ;;;字符串连接<br /> (defun strjoin (lst del)<br />   (if (cdr lst)<br />     (strcat (car lst) del (strjoin (cdr lst) del))<br />     (car lst)<br />   )<br /> )<br /> ;;;两个表两两组合成新表<br /> (defun zuhe (lst1 lst2 / i j a lst)<br />   (setq i 0)<br />   (repeat (length lst1)<br />     (setq a (nth i lst1))<br />     (if (atom a)(setq a (cons a nil)))<br />     (setq j 0)<br />     (repeat (length lst2)<br />       (setq b (nth j lst2))<br />       (if (atom b)(setq b (cons b nil)))<br />       (setq lst<br />        (append<br />          lst<br />          (list(append a b))<br />        )<br />       )<br />       (setq j (1+ j))<br />     )<br />     (setq i (1+ i))<br />   )<br />   Lst<br /> )

tryhi

菜卷鱼 发表于 2021-6-11 16:12
既然用得不多，为啥还要单独写一个那么复杂的呢？

用得不多这个没想到，当初的想法是直接代替的，但是由于变量无法用单引号，导致每次写ssget的时候就要list cons一堆，又觉得麻烦
就像我定义try-sort一样，就是完全替代掉sort，只是当时没想到每次都要写list+cons就觉得好麻烦，就用得特别少了，不过也可以发散一下，直接重定义ssget

shijianyy

"#{2,5}`.#{1,2}(#{1,3})" 是什么意思？

tryhi

shijianyy 发表于 2021-6-13 23:17
"#{2,5}`.#{1,2}(#{1,3})" 是什么意思？

"#`.#(#)"

这个看得懂吗？这个看不懂就先别看了，要求要有点基础