[求助]：新建选择集，如何能拿取块里的单独一个对象添加到选择集？

andyhua5240

TRIM命令，提示在选择对象时，如果选择的是块里的对象，是仍然可以以块中所选择的对象作为边界进行剪裁和延伸的，但是如果我把TRIM命令用LISP组合起来，就不行了，想选择块中的对象，结果却选择了整个块对象。
如何新建一个选择集，能让其选中块内的单独的对象？

2. 
   
3.   [FONT=courier new]
   
4. (defun c:t (/ cm ps ss)
   
5.   (princ "\n* 修剪对象→|边=延伸、组选=关闭| *")
   
6.   (setq cm (getvar "cmdecho"))
   
7.   (setq ps (getvar "pickstyle"))
   
8.   (setq *error* ee_err)
   
9.   (setvar "cmdecho" 1)
   
10.   (setvar "pickstyle" 0)
    
11.   (setvar "edgemode" 1)
    
12.   (princ "\n选择对象或 <全部选择>:")
    
13.   (if (setq ss (ssget))
    
14.       (command ".trim" ss "")
    
15.       (command ".trim" "" "e" "n")
    
16.   )
    
17.   (while (/= 0 (getvar "cmdactive")) (command pause))
    
18.   (setvar "cmdecho" cm)
    
19.   (setvar "pickstyle" ps)
    
20.   (princ)
    
21. )
    
22. 
    
23. (defun ee_err (s)
    
24.   (setvar "cmdecho" cm)
    
25.   (setvar "pickstyle" ps)
    
26.   (command "_.undo" "_e")
    
27. )
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:t (/ cm ps ss)<br />   (princ "\n* 修剪对象→|边=延伸、组选=关闭| *")<br />   (setq cm (getvar "cmdecho"))<br />   (setq ps (getvar "pickstyle"))<br />   (setq *error* ee_err)<br />   (setvar "cmdecho" 1)<br />   (setvar "pickstyle" 0)<br />   (setvar "edgemode" 1)<br />   (princ "\n选择对象或 <全部选择>:")<br />   (if (setq ss (ssget))<br />       (command ".trim" ss "")<br />       (command ".trim" "" "e" "n")<br />   )<br />   (while (/= 0 (getvar "cmdactive")) (command pause))<br />   (setvar "cmdecho" cm)<br />   (setvar "pickstyle" ps)<br />   (princ)<br /> )<br /> <br /> (defun ee_err (s)<br />   (setvar "cmdecho" cm)<br />   (setvar "pickstyle" ps)<br />   (command "_.undo" "_e")<br /> )<br />   [/FONT]<br />

利用上面的代码，如果选择块的话，将是整个块对象。但是如果用TRIM命令来选择块中的对象对，则是选择的是块中的单一的一个对象，为什么会有这样的区别？请求高手们指点一下？另我是一个LISP外行，上面的代码如何修改可以让其选择块中的单一的一个对象做为剪裁边界呀？

谢谢！