请高手看看问题何在？

czcxxx

总是说参数太少，代码如下：

2. 
   
3. [code](defun bat_la (ss_mod  ii / x)
   
4.   (mapcar
   
5.     '(lambda (x) (cdr (assoc ii (entget x))))
   
6.     (vl-remove-if
   
7.       'listp
   
8.       (mapcar 'cadr (ssnamex ss_mod))
   
9.     )
   
10.   )
    
11. )
    
12. 
    
13. (defun bat_d_e1        (ss_mod ii l_t_/ x n)
    
14.   (mapcar
    
15.     '(lambda (x)
    
16.        (foreach        n     l_t_
    
17.          (if (= (cdr (assoc ii (entget x))) n)
    
18.            (entdel x)
    
19.          )
    
20.        )
    
21.      )
    
22.     (vl-remove-if
    
23.       'listp
    
24.       (mapcar 'cadr (ssnamex ss_mod))
    
25.     )
    
26.   )
    
27. )
    
28. 
    
29. (print "\n请选择要删除的多个不同内容的单行文字： ")
    
30. (setq ss1 (ssget  '((0 . "text"))))
    
31. (setq l_t (bat_la ss1 1))
    
32. (print "\n请批量选择要删除的上述内容的单行文字： ")
    
33. (setq ss2 (ssget  '((0 . "text"))))
    
34. (bat_d_e1 ss2 1 l_t)
    

<br /> [code](defun bat_la (ss_mod  ii / x)<br />   (mapcar<br />     '(lambda (x) (cdr (assoc ii (entget x))))<br />     (vl-remove-if<br />       'listp<br />       (mapcar 'cadr (ssnamex ss_mod))<br />     )<br />   )<br /> )<br /> <br /> (defun bat_d_e1        (ss_mod ii l_t_/ x n)<br />   (mapcar<br />     '(lambda (x)<br />        (foreach        n     l_t_<br />          (if (= (cdr (assoc ii (entget x))) n)<br />            (entdel x)<br />          )<br />        )<br />      )<br />     (vl-remove-if<br />       'listp<br />       (mapcar 'cadr (ssnamex ss_mod))<br />     )<br />   )<br /> )<br /> <br /> (print "\n请选择要删除的多个不同内容的单行文字： ")<br /> (setq ss1 (ssget  '((0 . "text"))))<br /> (setq l_t (bat_la ss1 1))<br /> (print "\n请批量选择要删除的上述内容的单行文字： ")<br /> (setq ss2 (ssget  '((0 . "text"))))<br /> (bat_d_e1 ss2 1 l_t)<br />

<Selection set: 1b09>
; 错误: 参数太少

请高手指教，谢谢！

第二个自定义函数有问题！

USER2128

(ss_mod ii l_t_/ x n)  ====》 (ss_mod ii l_t_  / x n)  ;;; +空格

czcxxx

非常谢谢USER2128，解决了。

czcxxx

再麻烦您一下：为什么当在选择集SS1后加sssetfirst后，第二个选择无效，代码如下：

2. (defun bat_la (ss_mod  ii / x)
   
3.   (mapcar
   
4.     '(lambda (x) (cdr (assoc ii (entget x))))
   
5.     (vl-remove-if
   
6.       'listp
   
7.       (mapcar 'cadr (ssnamex ss_mod))
   
8.     )
   
9.   )
   
10. )
    
11. 
    
12. (defun bat_d_e1        (ss_mod ii l_t_ / x n)
    
13.   (mapcar
    
14.     '(lambda (x)
    
15.        (foreach        n l_t_
    
16.          (if (= (cdr (assoc ii (entget x))) n)
    
17.            (entdel x)
    
18.          )
    
19.        )
    
20.      )
    
21.     (vl-remove-if
    
22.       'listp
    
23.       (mapcar 'cadr (ssnamex ss_mod))
    
24.     )
    
25.   )
    
26. )
    
27. 
    
28. 
    
29. 
    
30. (print "\n请选择要删除的多个不同内容的单行文字： ")
    
31. (setq ss1 (ssget  '((0 . "text"))))
    
32. 
    
33. [b][size=6][color=Red](sssetfirst nil ss1)[/color][/size][/b]
    
34. 
    
35. (setq l_t (bat_la ss1 1))
    
36. 
    
37. (print "\n请批量选择要删除的上述内容的单行文字： ")
    
38. (setq ss2 (ssget  '((0 . "text"))))
    
39. (bat_d_e1 ss2 1 l_t)

(defun bat_la (ss_mod  ii / x)<br />   (mapcar<br />     '(lambda (x) (cdr (assoc ii (entget x))))<br />     (vl-remove-if<br />       'listp<br />       (mapcar 'cadr (ssnamex ss_mod))<br />     )<br />   )<br /> )<br /> <br /> (defun bat_d_e1        (ss_mod ii l_t_ / x n)<br />   (mapcar<br />     '(lambda (x)<br />        (foreach        n l_t_<br />          (if (= (cdr (assoc ii (entget x))) n)<br />            (entdel x)<br />          )<br />        )<br />      )<br />     (vl-remove-if<br />       'listp<br />       (mapcar 'cadr (ssnamex ss_mod))<br />     )<br />   )<br /> )<br /> <br /> <br /> <br /> (print "\n请选择要删除的多个不同内容的单行文字： ")<br /> (setq ss1 (ssget  '((0 . "text"))))<br /> <br /> [b][size=6][color=Red](sssetfirst nil ss1)[/color][/size][/b]<br /> <br /> (setq l_t (bat_la ss1 1))<br /> <br /> (print "\n请批量选择要删除的上述内容的单行文字： ")<br /> (setq ss2 (ssget  '((0 . "text"))))<br /> (bat_d_e1 ss2 1 l_t)

就是第二个SSGET不执行了！！！

llsheng_73

第二个SSGET不是没有执行，而是直接把通过(sssetfirst nil ss1) 设置了夹点的图元全部给选择出来了，并不会要求再次在图面上进行通常的选择，所以看着象第二次选择没有被执行，实际上它已经有了选择结果。
也就是说，不能通过这种方式给第二次选择提示哪些图元已经被第一次选择所选择过。。。

USER2128

(sssetfirst nil ss1)  之后如再有COMMAND都不行
如后跟: (command "_.undo" "_end")，就不执行夹点显示

czcxxx

非常感谢两位高手的解答！！！！

czcxxx

(sssetfirst nil ss1)  之后如再有COMMAND都不行,哪它的用处何在？
我只是想让它暂停，好看看还有没有没选择的，用delay  只能是暂停，什么也不能做？？？
除了，当选择多个类别的图元后，再利用它选择某个具体类别的图元外，还有什么别的用外，请高手门指点！！！