ssget一次选择后分组

77077

用ssget获取圆 多段线和直线的代码如下

2. 
   
3. (setq ss1 (ssget '((0 . "LINE"))))
   
4. (setq ss2 (ssget '((0 . "CIRCLE"))))
   
5. (setq ss3 (ssget '((0 . "LWPOLYLINE"))))
   

<br /> (setq ss1 (ssget '((0 . "LINE"))))<br /> (setq ss2 (ssget '((0 . "CIRCLE"))))<br /> (setq ss3 (ssget '((0 . "LWPOLYLINE"))))<br />

如此一来，就要出现了三次选择，觉得有点点麻烦。

如何能一次选择后按图元类型分配到三个组里面呢？

2. 
   
3. (setq ents (ss-ents (ssget ":s")));获取图元列表
   
4. (group-ents ents '("CIRCLE" "LINE" "LWPOLYLINE"));分组
   

<br /> (setq ents (ss-ents (ssget ":s")));获取图元列表<br /> (group-ents ents '("CIRCLE" "LINE" "LWPOLYLINE"));分组<br />

至于分组后能干什么，就看自己的用途了~~~


相关函数

2. 
   
3. ;选择集到图元列表
   
4. (defun ss-ents(ss / i en ents)
   
5.    (setq i 0)
   
6.    (repeat (sslength ss)
   
7.       (setq en (ssname ss i)
   
8.                   ents (cons en ents)
   
9.                   i (1+ i)
   
10.       )
    
11.     )
    
12.    ents
    
13. )
    
14. ;图元列表按类型分组
    
15. (defun group-ents (ents tylst / ty s1 s2 en)
    
16. (foreach ty tylst
    
17.   (setq s1 '())
    
18.   (foreach en ents
    
19.     (if (= (cdr(assoc 0 (entget en))) ty)
    
20.         (setq s1 (cons en s1))
    
21.     )
    
22.   )
    
23. (setq s1 (cons ty s1))
    
24. (setq s2 (cons s1 s2))
    
25. )
    
26. (reverse s2)
    
27. )

<br /> ;选择集到图元列表<br /> (defun ss-ents(ss / i en ents)<br />    (setq i 0)<br />    (repeat (sslength ss)<br />       (setq en (ssname ss i)<br />                   ents (cons en ents)<br />                   i (1+ i)<br />       )<br />     )<br />    ents<br /> )<br /> ;图元列表按类型分组<br /> (defun group-ents (ents tylst / ty s1 s2 en)<br /> (foreach ty tylst <br />   (setq s1 '())<br />   (foreach en ents<br />     (if (= (cdr(assoc 0 (entget en))) ty)<br />         (setq s1 (cons en s1))<br />     )<br />   )<br /> (setq s1 (cons ty s1))<br /> (setq s2 (cons s1 s2))<br /> )<br /> (reverse s2)<br /> )

ziyouwzb

(setq ss (ssget))
(setq ss1 (ssget "p" '((0 . "LINE"))))
(command "select" ss "")
(setq ss2 (ssget "p" '((0 . "CIRCLE"))))
(command "select" ss "")
(setq ss3 (ssget "p" '((0 . "LWPOLYLINE"))))

zhangkui9070

好像对文字无效

479274135

666先收藏了

77077

相关问题
http://bbs.mjtd.com/thread-84990-1-1.html


命令: (setq ents (ss-ents (ssget ":s")))
(<图元名: 7efbd430> <图元名: 7efbd438> <图元名: 7efbd440> <图元名: 7efbd448> <图元名: 7efbd450> <图元名: 7efbd458> <图元名: 7efbd460> <图元名: 7efbd468> <图元名: 7efbd470>)

命令: (group-ents ents '("CIRCLE" "LINE" "LWPOLYLINE"))
(("CIRCLE" <图元名: 7efbd458> <图元名: 7efbd450> <图元名: 7efbd448>)
        ("LINE" <图元名: 7efbd440> <图元名: 7efbd438> <图元名: 7efbd430>)
        ("LWPOLYLINE" <图元名: 7efbd470> <图元名: 7efbd468> <图元名: 7efbd460>)
)

434939575

比较实用.支持！

fan_zh

学习了，mark

易云网络

这个很实用

小师傅

按图层信息分组要怎么写呢

xyp1964

小师傅 发表于 2015-5-5 13:22
按图层信息分组要怎么写呢

2. ;; 需要e派工具箱(XCAD)的支持
   
3. (defun c:tt ()
   
4.   (if (setq ss (ssget))
   
5.     (setq lst (xyp-count1 (mapcar '(lambda (x) (list (xyp-DXF 8 x) x)) (xyp-ss2list ss))))
   
6.   )
   
7.   (princ)
   
8. )

;; 需要e派工具箱(XCAD)的支持<br /> (defun c:tt ()<br />   (if (setq ss (ssget))<br />     (setq lst (xyp-count1 (mapcar '(lambda (x) (list (xyp-DXF 8 x) x)) (xyp-ss2list ss))))<br />   )<br />   (princ)<br /> )

小师傅

xyp1964 发表于 2015-5-5 13:35

谢谢院长的及时回复