求助：如何选择

sfjlx

如何在一个选择集中选择出多种符合要求的选择集？

比如在一个选择集中有多种不同图层的直线，我如何选择出符合要求(比如图层1)1的选择集放置在选择集1中

符合要求2的选择集(比如图层2)放置在选择集2中，符合要求3的选择集(比如图层3)放置在选择集3中，类推。谢谢！

caoyin

(ssget);;得到选择集

(setq SS2 (ssget "_P" '((8 . "图层1"))));;过滤条件参考ssget和wcmatch函数帮助

(setq SS3 (ssget "_P" '((8 . "图层3"))))

如果分组太多则建议不要太多的使用(ssget "p")，因为这样很慢。而采用遍历选集的方法。

NetBee

最好是遍历了，LISP遍历很快的。

sfjlx

caoyin发表于2010-4-8 23:16:00(ssget);;得到选择集(setq SS2 (ssget \"_P\" '((8 . \"图层1\"))));;过滤条件参考ssget和wcmatch函数帮助(setq SS3 (ssget \"_P\" '((8 . \"图层3\"))))如果分组太多则建议不要太多的使用(ssg

setq SS3 (ssget "_P" '((8 . "图层3"))))好像不行."_P" 第一次使用可以，第二次就不行了！我估计是不是认为ss2是"_P" 了？

(defun c:xxx( /  )
   (setq ss (ssget '((0 . "line" ) (8 .  "dote,dote1,dote2"))));建立选择集
     (setq ss1(ssget "_P" '((8 . "dote")))) 

      (setq ss2(ssget "_P"    '((8 . "dote1")))) 

       (setq ss3(ssget "_P"  '((8 . "dote2"))))

     (command "CHANGE" ss3  "" "P"  "C" "white" "")
    (prin1)
)

以上是我的程序，不能实现。

另，如何遍历整个选择集？

caoyin

是不行了，因为第3次 ssget p,是过滤第二次选集。

遍历选集：

(setq SS (ssget)) ;;得到选集
(repeat (setq I (sslength SS));;循环次数=选集长度
  (setq I   (1- I)
        EN  (ssname SS I)
        LAY (cdr (assoc 8 (entget EN)))
  )
  (cond ((eq LAY "图层1")
       ;;下面两行取其一
         (setq LST1 (cons EN LST1))   ;;加入表 LST1
       ;;(or SS2 (setq SS2 (ssadd)) (ssadd EN SS2) ;;加入选集SS2
        )
        ((eq LAY "图层2")
         (setq LST2 (cons EN LST2))   ;;同上
        )
        ;;......
  )
)

sfjlx

感谢斑竹的热心！我试试！