（XD::VLA->Pickset）VLA对象集转选择集

marting

1. ;|
   
2. 函数名称:        XD::VLA->Pickset
   
3. 调用格式:        (XD::VLA->Pickset lst)
   
4. 参数说明:        lst ---- vla对象表
   
5. 返回值:        选择集
   
6. 函数简介:        VLA对象集转选择集
   
7. 函数来源:        原创
   
8. 函数作者:        marting
   
9. 适用版本:        不限
   
10. 最后更新时间:        2018-12-31
    
11. 
    
12. **允许在项目中使用，但请保留版权注释信息**
    
13. 
    
14. |;
    
15. (defun XD::VLA->Pickset ( lst )
    
16.     (apply 'command (append '("_.select") (mapcar 'vlax-vla-object->ename lst) '("")))
    
17.     (ssget "_P")
    
18. )
    

;|<br /> 函数名称:        XD::VLA->Pickset<br /> 调用格式:        (XD::VLA->Pickset lst)<br /> 参数说明:        lst ---- vla对象表<br /> 返回值:        选择集<br /> 函数简介:        VLA对象集转选择集<br /> 函数来源:        原创<br /> 函数作者:        marting<br /> 适用版本:        不限 <br /> 最后更新时间:        2018-12-31<br /> <br /> **允许在项目中使用，但请保留版权注释信息**<br /> <br /> |;<br /> (defun XD::VLA->Pickset ( lst )<br />     (apply 'command (append '("_.select") (mapcar 'vlax-vla-object->ename lst) '("")))<br />     (ssget "_P")<br /> )<br />

qyming2000

学习        
来自: 微社区

konglong604

谢谢分享，这个函数很有用。