获取即将被删除的选择集

s1os5210

想要获取被删除前的选择集，再删除其关联的一些对象，但是在(setq sser (ssget "_P"))这一步始终是nil。除了ERASE的其他命令都能获取到。想过直接用 (ssget)，但是会出现无论是否先手动选择，都还要再选一遍，不符合初衷。有哪位大神指导一下问题出在哪里？

2. (defun becomm (v e /)
   
3.   (cond
   
4.     ((equal (car e) "ERASE") (setq sser (ssget "_P")));;;这一步获取的选择集为nil
   
5.   )
   
6. )
   
7. (defun comm (v e /)
   
8.   (cond
   
9.    
   
10.     ((equal (car e) "ERASE")     
    
11.      (print "这里删除一些与之相关的对象")
    
12.      )   
    
13.   )
    
14. )
    
15. (or commreactor
    
16.     (setq commreactor
    
17.      (vlr-command-reactor
    
18.        nil
    
19.        '((:vlr-commandEnded . comm)
    
20.          (:vlr-commandWillStart . becomm)
    
21.         )
    
22.      )
    
23.     )
    
24. )

(defun becomm (v e /)<br />   (cond<br />     ((equal (car e) "ERASE") (setq sser (ssget "_P")));;;这一步获取的选择集为nil<br />   )<br /> )<br /> (defun comm (v e /) <br />   (cond<br />     <br />     ((equal (car e) "ERASE")     <br />      (print "这里删除一些与之相关的对象")<br />      )   <br />   )<br /> )<br /> (or commreactor<br />     (setq commreactor<br />      (vlr-command-reactor<br />        nil<br />        '((:vlr-commandEnded . comm)<br />          (:vlr-commandWillStart . becomm)<br />         )<br />      )<br />     )<br /> )