(XD::Pickset:Grip)选择集夹点亮显

Lispboy

2. 
   
3. ;|
   
4. 夹点显示选择集或实体表
   
5. 参数：
   
6.    ss --- 选择集 or 实体表
   
7. 返回值：
   
8.    t
   
9. |;
   
10. (defun XD::Pickset:Grip(ss)
    
11.    (if (= (type ss) 'LIST)
    
12.       (setq ss (XD::Entity->PickSet ss))
    
13.    )
    
14.    (sssetfirst nil ss)
    
15.    t
    
16. )
    
17. 
    

<br /> ;|<br /> 夹点显示选择集或实体表<br /> 参数：<br />    ss --- 选择集 or 实体表<br /> 返回值：<br />    t<br /> |;<br /> (defun XD::Pickset:Grip(ss)<br />    (if (= (type ss) 'LIST)<br />       (setq ss (XD::Entity->PickSet ss))<br />    )<br />    (sssetfirst nil ss)<br />    t<br /> )<br /> <br />