选择集处理函数

CAD智能@未来

2. ;获取选择集的图元列表
   
3. (setq ents (mapcar
   
4.         'cadr
   
5.           (vl-remove-if
   
6.             '(lambda (x)
   
7.               (< (car x) 0))
   
8.                 (ssnamex ss)
   
9.           )
   
10.       )
    
11. )
    
12. ;获取选择集端点集
    
13. (setq pts  (apply
    
14.         'append
    
15.           (mapcar  
    
16.             '(lambda (x)
    
17.               (mapcar
    
18.                 'cdr
    
19.                   (vl-remove-if-not
    
20.                         '(lambda (y)
    
21.                           (= 10 (car y))
    
22.                         )
    
23.                         (entget x)
    
24.                   )
    
25.               )
    
26.             )
    
27.             ents
    
28.           )
    
29.       )
    
30. )
    
31. ;获取选择集表文字内容
    
32. (setq str_lst(mapcar
    
33.         '(lambda(x)
    
34.           (cdr
    
35.             (assoc 1 (entget x))
    
36.           )
    
37.         )
    
38.           ents
    
39.       )
    
40. )
    
41. ;删除图元列表
    
42. (mapcar '(lambda (x) (entdel x)) ents)

;获取选择集的图元列表<br /> (setq ents (mapcar <br />         'cadr <br />           (vl-remove-if <br />             '(lambda (x)<br />               (< (car x) 0))<br />                 (ssnamex ss)<br />           )<br />       )<br /> )<br /> ;获取选择集端点集<br /> (setq pts  (apply <br />         'append <br />           (mapcar  <br />             '(lambda (x) <br />               (mapcar <br />                 'cdr <br />                   (vl-remove-if-not <br />                         '(lambda (y) <br />                           (= 10 (car y))<br />                         ) <br />                         (entget x)<br />                   )<br />               )<br />             ) <br />             ents<br />           )<br />       )<br /> )<br /> ;获取选择集表文字内容<br /> (setq str_lst(mapcar <br />         '(lambda(x)<br />           (cdr <br />             (assoc 1 (entget x))<br />           )<br />         )<br />           ents<br />       )<br /> )<br /> ;删除图元列表<br /> (mapcar '(lambda (x) (entdel x)) ents)

不一样地设计

感谢分享，很有用啊

w379106181

感谢大佬分享

zmzk

版主，有示例么，如何用？》

cq4920

反过来 有表转选择集的吗？

zmzk

在别的地方复制过来的，你看下能用么

2. ;9..表与选择集之间转换P
   
3. ;By caiqs
   
4. 
   
5. ;;;选择集变表 2007/8/30 师兄 QQ 361865648
   
6. (defun ss->lst (ss / retu)
   
7.   (setq retu (apply 'append (ssnamex ss)))
   
8.   (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   
9. )
   
10. ;;;测试
    
11. (setq ss (ssget));_构建选择集
    
12. (princ (ss->lst ss))
    
13. ;;;表变选择集 2007/8/30 师兄 QQ 361865648
    
14. (defun lst->ss(lst / ss)
    
15.   (setq ss(ssadd))
    
16.   (last(mapcar '(lambda (x) (ssadd x ss)) lst)))
    
17. 
    
18. ;;;测试
    
19. (setq lst(list (car(entsel)) (car(entsel))))
    
20. (lst->ss lst)

;9..表与选择集之间转换P <br /> ;By caiqs<br /> <br /> ;;;选择集变表 2007/8/30 师兄 QQ 361865648<br /> (defun ss->lst (ss / retu)<br />   (setq retu (apply 'append (ssnamex ss)))<br />   (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))<br /> )<br /> ;;;测试<br /> (setq ss (ssget));_构建选择集<br /> (princ (ss->lst ss))<br /> ;;;表变选择集 2007/8/30 师兄 QQ 361865648<br /> (defun lst->ss(lst / ss)<br />   (setq ss(ssadd))<br />   (last(mapcar '(lambda (x) (ssadd x ss)) lst)))<br /> <br /> ;;;测试<br /> (setq lst(list (car(entsel)) (car(entsel))))<br /> (lst->ss lst)

yefei812678

谢谢分享谢谢分享谢谢分享

muai2010

留名后面看看如何使用