[求助]：如何在已有的选择集内快速再过滤出一个新集？

Wildcat

例如：用(setq A (ssget))建立了一个名为A的选择集，集内含有上千个HATCH、上千根LINE、上千个圆。。。。
现需要把A选择集中的HATCH筛选出来，再建立一个新集。
如果用下面的方法历遍每一个图元，通过0 . "HATCH"辨别，虽然也可以构成SS集，速度会很慢。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test ()
   
5.   (princ "\n请选择物体:")
   
6.   (setq A (ssget))
   
7.   (setq i 0)
   
8.   (setq ss (ssadd))
   
9.   (repeat (sslength A)
   
10.     (setq en   (ssname A i)
    
11.           en_2 (cdr (assoc 0 (entget en)))
    
12.     )
    
13.     (if        (= en_2 "HATCH")
    
14.       (setq ss (ssadd en ss))
    
15.     )
    
16.     (setq i (1+ i))
    
17.   )
    
18. )
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test ()<br />   (princ "\n请选择物体:")<br />   (setq A (ssget))<br />   (setq i 0)<br />   (setq ss (ssadd))<br />   (repeat (sslength A)<br />     (setq en   (ssname A i)<br />           en_2 (cdr (assoc 0 (entget en)))<br />     )<br />     (if        (= en_2 "HATCH")<br />       (setq ss (ssadd en ss))<br />     )<br />     (setq i (1+ i))<br />   )<br /> )<br />   [/FONT]<br />

下面的方法虽然也可以，但要调用command。

2. 
   
3.   [FONT=courier new]
   
4. (defun c:test ()
   
5.   (princ "\n请选择物体:")
   
6.   (setq A (ssget))
   
7.   (command "select" A "")
   
8.   (setq ss (ssget "p" (list (cons '0 "HATCH"))))
   
9. )
   
10.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:test ()<br />   (princ "\n请选择物体:")<br />   (setq A (ssget))<br />   (command "select" A "")<br />   (setq ss (ssget "p" (list (cons '0 "HATCH"))))<br /> )<br />   [/FONT]<br />

请问有快速且不需调用command方法吗？

carrot1983

楼主是高手，我能想到的，你一定也想到了。。。
你就是不想遍历每一个图元，command肯定慢的
提议:多一个getkword先判断的要选择的类型，
    再用(ssget '((0 . 类型)))

taner

怕是沒辦法了!
http://www.xdcad.net/forum/showthread.php?s=&threadid=646479

Wildcat

最初由 carrot1983 发布
[B]楼主是高手，我能想到的，你一定也想到了。。。
你就是不想遍历每一个图元，command肯定慢的
提议:多一个getkword先判断的要选择的类型，
    再用(ssget '((0 . 类型))) [/B]

您太客气了，我离高手很远着呢。

由于实际应用中可能会先对选择集A进行处理，然后根据处理后的情况再对选择集A中的某类型的图元作另外的处理，所以使用getkword不大合用，而也会多作一次人工处理。

谢谢您的意见。

qiaqiadeng

(ssget "p" selectlist)
你查一下帮助，里面有的

gysjy

最初由 Wildcat 发布
[B]例如：用(setq A (ssget))建立了一个名为A的选择集，集内含有上千个HATCH、上千根LINE、上千个圆。。。。
现需要把A选择集中的HATCH筛选出来，再建立一个新集。
如果用下面的方法历遍每一个图元，通过0 . "HATCH"?.. [/B]

(setq ss (ssget "p" '((0 . "HATCH"))))

qjcpj

6楼的方法太好了，十分感谢。

carrot1983

太感谢了。。。学习了。。。
一直以为ssget "P"只能选择一个图元。。。

qiaqiadeng

L才只能选一个

浪奔

6楼的少了
(command "select" A "")
是不行的

gysjy

最初由 浪奔 发布
[B]6楼的少了
(command "select" A "")
是不行的 [/B]

(ssget)
(setq ss (ssget "p" '((0 . "HATCH"))))

浪奔

最初由 gysjy 发布
[B]
(ssget)
(setq ss (ssget "p" '((0 . "HATCH")))) [/B]

(defun c:test ()
  (princ "\n请选择物体:")
  (setq A (ssget))
.....
;;这里如果(setq B (ssget)),最后的结果会怎样??
.....
  (setq ss (ssget "p" (list (cons '0 "HATCH"))))
)



请注意楼主的要求"已有".

carrot1983

呵呵
那就
(setq A (ssget))
(setq ss1 (ssget "p" (list (cons '0 "HATCH"))))
(setq B (ssget))
(setq ss2(ssget "p" (list (cons '0 "LINE"))))类似这样

gysjy

最初由 浪奔 发布
[B]

(defun c:test ()
  (princ "\n请选择物体:")
  (setq A (ssget))
.....
;;这里如果(setq B (ssget)... [/B]

结果将只在选择集B中过滤出hatch。

xyp1964

中间不能有ssget或select的操作：

2. [FONT=courier new](defun c:test (/ a ss)
   
3.   (princ "\n请选择物体: ")
   
4.   (setq a (ssget))
   
5.   ;;...
   
6.   ;;...
   
7.   (setq ss (ssget "p" '((0 . "HATCH"))))
   
8.   ;;...
   
9.   ;;...
   
10. )[/FONT]

[FONT=courier new](defun c:test (/ a ss)<br />   (princ "\n请选择物体: ")<br />   (setq a (ssget))<br />   ;;...<br />   ;;...<br />   (setq ss (ssget "p" '((0 . "HATCH"))))<br />   ;;...<br />   ;;...<br /> )[/FONT]