关于ssget 获取多种图形实体的方法

xiaxiang

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

2. (setq ss1 (ssget '((0 . "LINE"))))
   
3.   (setq ss2 (ssget '((0 . "circle"))))

(setq ss1 (ssget '((0 . "LINE"))))<br />   (setq ss2 (ssget '((0 . "circle"))))

但是要选择两次,无疑是个笨办法.所以我把它改成

2. (setq sss (ssget  '((0 . "LINE,circle"))))

(setq sss (ssget  '((0 . "LINE,circle"))))

问题来了,我如何将其分离,就是把直线实体赋给选择集ss1,圆实体赋给选择集ss2 ?
我的解决办法如下

2. (defun c:test ()
   
3.   (setq ss1 nil ss2 nil)
   
4.   (if (setq ss1 (ssget '((0 . "LINE,circle"))))
   
5.     (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))
   
6.       (if (= (cdr (assoc 0 (entget itm))) "CIRCLE")
   
7.         (progn
   
8.           (or ss2 (setq ss2 (ssadd)))
   
9.           (ssadd itm ss2)
   
10.           (ssdel itm ss1)
    
11.         )
    
12.       )
    
13.     )
    
14.   )
    
15. )

(defun c:test ()<br />   (setq ss1 nil ss2 nil)<br />   (if (setq ss1 (ssget '((0 . "LINE,circle"))))<br />     (foreach itm (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss1)))<br />       (if (= (cdr (assoc 0 (entget itm))) "CIRCLE")<br />         (progn<br />           (or ss2 (setq ss2 (ssadd)))<br />           (ssadd itm ss2)<br />           (ssdel itm ss1)<br />         )<br />       )<br />     )<br />   )<br /> )

期待各路高手的讲解,希望在此跟帖,看到您的解决办法.最后请斑竹评一下谁的代码最实用最精简.谢谢大家!
.

lazybug

(defun c:test ()
  (setq ss1 nil ss2 nil)
  (if (setq ss1 (ssget '((0 . "LINE,circle"))))
    (progn
      (setq ss2 (ssget "p" '((0 . "circle"))))
      (command "select" ss1 "")
      (setq ss1 (ssget "p" '((0 . "LINE"))))
    )
  )
)

icefrog

MARK~~~~~~

革天明

谢谢楼主分享，代码很巧妙

firstinti

刚好前一段写代码有碰到这个问题，跟大家分享一下吧，我是这种做法
(setq ss(ssget))  
  ;墙
  (setq ss-wall(ssget "p" (list(cons 0 "TCH_WALL"))))
  (sssetfirst nil ss)
  ;窗
  (setq ss-window(ssget "p" (list(cons 0 "TCH_OPENING")(cons  71 1))))
  (sssetfirst nil ss)
  ;柱
  (setq ss-column(ssget "p" (list(cons 0 "TCH_COLUMN"))))

srv2

谢谢楼主，学习学习

xyp1964

2. (defun c:tt ()
   
3.   (if (setq ss (ssget '((0 . "LINE,circle"))))
   
4.     (progn (setq ss1 (ssadd)
   
5.                  ss2 (ssadd)
   
6.                  i   -1
   
7.            )
   
8.            (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.              (if (= (cdr (assoc 0 (entget s1))) "LINE")
   
10.                (ssadd s1 ss1)
    
11.                (ssadd s1 ss2)
    
12.              )
    
13.            )
    
14.     )
    
15.   )
    
16. )
    
17. 
    
18. ;; 伪源码方式
    
19. (defun c:tt ()
    
20.   (if (setq ss (ssget '((0 . "LINE,circle"))))
    
21.     (setq ss1 (ssget "p" '((0 . "LINE")))
    
22.           ss2 (ssdiff ss ss1)
    
23.     )
    
24.   )
    
25. )
    

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "LINE,circle"))))<br />     (progn (setq ss1 (ssadd)<br />                  ss2 (ssadd)<br />                  i   -1<br />            )<br />            (while (setq s1 (ssname ss (setq i (1+ i))))<br />              (if (= (cdr (assoc 0 (entget s1))) "LINE")<br />                (ssadd s1 ss1)<br />                (ssadd s1 ss2)<br />              )<br />            )<br />     )<br />   )<br /> )<br /> <br /> ;; 伪源码方式<br /> (defun c:tt ()<br />   (if (setq ss (ssget '((0 . "LINE,circle"))))<br />     (setq ss1 (ssget "p" '((0 . "LINE")))<br />           ss2 (ssdiff ss ss1)<br />     )<br />   )<br /> )<br />

chlh_jd

2. (defun c:test (/ SS _OC)  
   
3.   (if (setq ss (ssget '((0 . "LINE,CIRCLE"))))
   
4.     (progn
   
5.        (setq ss1 (ssget "p" '((0 . "LINE"))))
   
6.        (setq _oc (getvar 'CMDECHO))
   
7.        (setvar 'CMDECHO 0)
   
8.        (vl-cmdf "_Select"  ss "")
   
9.        (setvar 'CMDECHO _OC)
   
10.        (setq ss2 (ssget "p" '((0 . "CIRCLE"))))         
    
11.            )
    
12.     )
    
13.   (princ)
    
14.   )

(defun c:test (/ SS _OC)  <br />   (if (setq ss (ssget '((0 . "LINE,CIRCLE"))))<br />     (progn<br />        (setq ss1 (ssget "p" '((0 . "LINE"))))<br />        (setq _oc (getvar 'CMDECHO))<br />        (setvar 'CMDECHO 0)<br />        (vl-cmdf "_Select"  ss "")<br />        (setvar 'CMDECHO _OC)<br />        (setq ss2 (ssget "p" '((0 . "CIRCLE"))))          <br />            )<br />     )<br />   (princ)<br />   )

xujinhua

学习了...又学到一个好方法..谢谢