ssget 选择图元后 二次分类

tempasdf

各位:
      请问一下 通过(setq ss (ssget'((0 . "LINE,CIRCLE")) ))选择图元后,如保再将 line  circle 分类保存到变量 ssline  sscircle中

咏郡

可以先取两点，分别(setq sscircle (ssget （list pt1 pt2）'((0 . "CIRCLE")) ))和(setq ssline （list pt1 pt2(ssget'((0 . "LINE")) ))

kozmosovia

用command或者ssgetfirst都是变相现需要选两次，不如直接遍历选择集一次，根据图元类型分组到指定的变量中

2. (and (setq ss (ssget '((0 . "line,circle"))))
   
3.      (setq ssline   (ssadd)
   
4.      sscircle (ssadd)
   
5.      idx      -1
   
6.      )
   
7.      (repeat (sslength ss)
   
8.        (setq sn (ssname ss (setq idx (1+ idx))))
   
9.        (ssadd sn
   
10.         (if (= (cdr (assoc 0 (entget sn))) "LINE")
    
11.     ssline
    
12.     sscircle
    
13.         )
    
14.        )
    
15.      )
    
16. )

(and (setq ss (ssget '((0 . "line,circle"))))<br />      (setq ssline   (ssadd)<br />      sscircle (ssadd)<br />      idx      -1<br />      )<br />      (repeat (sslength ss)<br />        (setq sn (ssname ss (setq idx (1+ idx))))<br />        (ssadd sn<br />         (if (= (cdr (assoc 0 (entget sn))) "LINE")<br />     ssline<br />     sscircle<br />         )<br />        )<br />      )<br /> )

hhh454

我也写了个画万家灯火的插件，正好有这个按类型分图元的。
分享给你，抛砖引玉。
可以按类型分，可以按图层分，可以分的有很多种。


分好的图形，为了看的清楚我加了分色，需要分色就增加图层：ngc6，ngc4
不要分色就删除2行代码

1. (defun c:tt()
   
2.   
   
3.   (setq ss (ssget));多选
   
4. 
   
5.   (command "select" ss  "");选中所有
   
6.   (setq ssline (ssget "p" '((0 . "LINE"))));按类型分
   
7.   (command "change" ssline  "" "p" "la" "ngc4" "" )
   
8. 
   
9.   (command "select" ss "");选中所有
   
10.   (setq sscircle (ssget "p" '((0 . "CIRCLE"))));按类型分
    
11.   (command "change" sscircle  "" "p" "la" "ngc6" "" )
    
12.   
    
13.   )

(defun c:tt()<br />   <br />   (setq ss (ssget));多选<br /> <br />   (command "select" ss  "");选中所有<br />   (setq ssline (ssget "p" '((0 . "LINE"))));按类型分<br />   (command "change" ssline  "" "p" "la" "ngc4" "" )<br /> <br />   (command "select" ss "");选中所有<br />   (setq sscircle (ssget "p" '((0 . "CIRCLE"))));按类型分<br />   (command "change" sscircle  "" "p" "la" "ngc6" "" )<br />   <br />   )

不想复制的就下载

你有种再说一遍

选择集的原理:
1,从索引树或堆中取出条件相同的,最左匹配
2,没有索引的,需要运算需要计算的条件,
3,聚合.

所以是不存在你说你的分别存放的,
你只能选两次.

vitalgg

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   
2. 
   
3. 
   
4. (setq ssline (pickset:from-list (vl-remove-if-not '(lambda(x)(eq (entity:getdxf x 0)"LINE")) (pickset:to-list ss))))
   
5. (setq sscircle (pickset:from-list (vl-remove-if-not '(lambda(x)(eq (entity:getdxf x 0)"CIRCLE")) (pickset:to-list ss))))
   
6. 
   
7. ;; 或
   
8. (setq ssline (pickset:get-sub ss '((0 . "LINE"))))
   
9. (setq sscircle (pickset:get-sub ss '((0 . "CIRCLE"))))

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br /> <br /> <br /> (setq ssline (pickset:from-list (vl-remove-if-not '(lambda(x)(eq (entity:getdxf x 0)"LINE")) (pickset:to-list ss))))<br /> (setq sscircle (pickset:from-list (vl-remove-if-not '(lambda(x)(eq (entity:getdxf x 0)"CIRCLE")) (pickset:to-list ss))))<br /> <br /> ;; 或<br /> (setq ssline (pickset:get-sub ss '((0 . "LINE"))))<br /> (setq sscircle (pickset:get-sub ss '((0 . "CIRCLE"))))

yaojing38

(sssetfirst nil ss)
(setq ssline (ssget "P" '((0 . "LINE" ))))
(setq sscircle (ssget "P" '((0 . "circle" ))))

wzg356

yaojing38 发表于 2024-11-12 16:06
(sssetfirst nil ss)
(setq ssline (ssget "P" '((0 . "LINE" ))))
(setq sscircle (ssget "P" '((0 . " ...

这种方式最好，比遍历ss分类高

e2002

问题在于后续是否需要使用选择集？如果获得选择集后，就转换为 List ，然后各种循环、遍历，都使用List，SelectionSet就不需要了。毕竟 List 在 LISP ，C#中都有大把函数与方法，处理数据方便多了。

xyp1964

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "LINE,CIRCLE"))))
   
3.     (progn
   
4.       (setq ss-l (ssget "p" '((0 . "LINE"))))
   
5.       (command "select" ss "")
   
6.       (setq ss-c (ssget "p" '((0 . "CIRCLE"))))
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "LINE,CIRCLE"))))<br />     (progn<br />       (setq ss-l (ssget "p" '((0 . "LINE"))))<br />       (command "select" ss "")<br />       (setq ss-c (ssget "p" '((0 . "CIRCLE"))))<br />     )<br />   )<br />   (princ)<br /> )