请教: 如何编写生成所选框内并且匹配过滤符表的实体选择集.

chang_sl

请问各位高手: 如何编写生成所选框内并且匹配过滤符表的实体选择集.
我的目的是这样的:
     此段程序用来汇一个DWG文件中的管子材料的,是一个文件一张图.现在想改成一个文件多张图, 下列语句需要加上框选条件,点由用户输入:
   (setq ab (ssget "X" (list '(0 . "TEXT") (cons 8 layer))))
   ;;;其中layer为变量
   已经知道框选的两个点:
   (setq w1 (list (+ x1 112) (+ y1 -117)))
   (setq w2 (list (+ x1 -320) (+ y1 190)))
   如何利用 (ssget "WP" pt_list 过滤符表) 选择在w1 w2 框内的,并且在layer层上的所有TEXT.我在R14上没有调试成功.
   (1) (setq ab (ssget "W" w1 w2 (list '(0 . "TEXT") (cons 8 layer))))
   (2) (setq ab (ssget "WP" (list w1 w2) (list '(0 . "TEXT") (cons 8 layer))))

  请教各位如何实现上述功能.

下面为管段图汇料原程序的一部分:

2. ;;;;;;========管子汇料=====<1>
   
3. (princ)
   
4. (princ "搜索管子")
   
5. (setq filename1 (strcat "c:\\cad-r14\\iso-edb\" xmgh_tpdi "\" djdh "\" djdh "gj.txt" ))
   
6. (setq fp (open filename1 "r"))
   
7. (while (setq dn (read-line fp))
   
8.      (setq filename (strcat "c:\\cad-r14\\iso-edb\" xmgh_tpdi "\" djdh "\" djdh "gz.txt"))
   
9.      (setq f (open filename "r")) (setq dn1 "333")
   
10.                     (while   (/= dn dn1)  
    
11.                                (setq sz (read-line f))
    
12.                 (setq sza (read sz))
    
13.                              (setq dn1 (nth 0 sza))
    
14.                              (if (= dn dn1)
    
15.                                    (progn
    
16.                     (setq gj (nth 1 sza))  (setq bh (nth 2 sza)) (setq ms (nth 3 sza))
    
17.                      (setq cl (nth 4 sza)) (setq by1 (nth 5 sza))(setq by2 (nth 6 sza))         
    
18.                      (setq desc (strcat "PIPE" " " gj "''" " " bh " " ms))
    
19.          (setq layer (strcat dn djdh "-iso"));;;;求层名
    
20.                           ))
    
21.               );;;end while
    
22.   (close f)  
    
23.    
    
24. ;;;========管子汇料开始
    
25. [b][U][I](setq ab (ssget "X" (list '(0 . "TEXT") (cons 8 layer))))[/I][/U][/b]
    
26. ;;;上句
    
27.       (if (/= ab nil)
    
28.          (progn
    
29.             (setq i 0)
    
30.              (while (< i (sslength ab))
    
31.                (setq b (ssname ab i))
    
32.                (setq a (entget b))
    
33.                (setq text (assoc '1 a))
    
34.                (setq text (cdr text))
    
35.                (setq gz-sl (+ gz-sl (atof text)))
    
36.                (setq i (+ 1 i))   
    
37.              )
    
38.             (setq gz-sl (/ gz-sl 1000))
    
39.             (setq gz-sl (rtos gz-sl 2 2))
    
40.             (if (/= gz-sl 0)
    
41.               (progn
    
42.                    (setq gz-sl (strcat gz-sl "m"))
    
43.                    (command "text" p1 2.3 0 desc)
    
44.                    (command "text" p2 2.3 0 cl)
    
45.                    (command "text" p3 2.3 0 gz-sl)
    
46.                    ;;;^*^
    
47.                    (princ)(princ "搜索管子")
    
48.                    (setq gz-sl 0)
    
49.                         (setq y1 (+ y1 6))
    
50.                         (setq p1 (list x1 y1));;DESCRIPTION
    
51.                         (setq p2 (list (+ x1 59.5) y1));;MATERIAL
    
52.                         (setq p3 (list (+ x1 75.5) y1));;QTY
    
53.                         (setq p4 (list (+ x1 85.3) y1));;REMARK
    
54. 
    
55.                      );;over progn
    
56.                     );;;;over if
    
57.                    );;;over progn
    
58.              );;;;over if
    
59. (PRINC".")
    
60. );;;end 每层循环结束
    
61. (close fp);;;;关掉管径数据库
    
62. ;;;;;;;;=======管子汇料结束

;;;;;;========管子汇料=====<1><br /> (princ)<br /> (princ "搜索管子")<br /> (setq filename1 (strcat "c:\\cad-r14\\iso-edb\" xmgh_tpdi "\" djdh "\" djdh "gj.txt" ))<br /> (setq fp (open filename1 "r"))<br /> (while (setq dn (read-line fp))<br />      (setq filename (strcat "c:\\cad-r14\\iso-edb\" xmgh_tpdi "\" djdh "\" djdh "gz.txt"))<br />      (setq f (open filename "r")) (setq dn1 "333")<br />                     (while   (/= dn dn1)  <br />                                (setq sz (read-line f)) <br />                 (setq sza (read sz)) <br />                              (setq dn1 (nth 0 sza)) <br />                              (if (= dn dn1)<br />                                    (progn<br />                     (setq gj (nth 1 sza))  (setq bh (nth 2 sza)) (setq ms (nth 3 sza)) <br />                      (setq cl (nth 4 sza)) (setq by1 (nth 5 sza))(setq by2 (nth 6 sza))          <br />                      (setq desc (strcat "PIPE" " " gj "''" " " bh " " ms)) <br />          (setq layer (strcat dn djdh "-iso"));;;;求层名<br />                           ))<br />               );;;end while<br />   (close f)  <br />    <br /> ;;;========管子汇料开始<br /> [b][U][I](setq ab (ssget "X" (list '(0 . "TEXT") (cons 8 layer))))[/I][/U][/b]<br /> ;;;上句<br />       (if (/= ab nil) <br />          (progn<br />             (setq i 0)<br />              (while (< i (sslength ab))<br />                (setq b (ssname ab i))<br />                (setq a (entget b))<br />                (setq text (assoc '1 a))<br />                (setq text (cdr text))<br />                (setq gz-sl (+ gz-sl (atof text)))<br />                (setq i (+ 1 i))   <br />              )<br />             (setq gz-sl (/ gz-sl 1000))<br />             (setq gz-sl (rtos gz-sl 2 2))<br />             (if (/= gz-sl 0)<br />               (progn<br />                    (setq gz-sl (strcat gz-sl "m"))<br />                    (command "text" p1 2.3 0 desc) <br />                    (command "text" p2 2.3 0 cl)<br />                    (command "text" p3 2.3 0 gz-sl)<br />                    ;;;^*^ <br />                    (princ)(princ "搜索管子")<br />                    (setq gz-sl 0)<br />                         (setq y1 (+ y1 6))<br />                         (setq p1 (list x1 y1));;DESCRIPTION<br />                         (setq p2 (list (+ x1 59.5) y1));;MATERIAL<br />                         (setq p3 (list (+ x1 75.5) y1));;QTY<br />                         (setq p4 (list (+ x1 85.3) y1));;REMARK<br /> <br />                      );;over progn<br />                     );;;;over if<br />                    );;;over progn<br />              );;;;over if<br /> (PRINC".")<br /> );;;end 每层循环结束<br /> (close fp);;;;关掉管径数据库<br /> ;;;;;;;;=======管子汇料结束

meflying

你说的不成功是指什么，有什么错误提示，或返回值是什么？

chang_sl

(1)(setq ab (ssget "W" w1 w2 (list '(0 . "TEXT") (cons 8 layer))))
   执行结果不对,应该搜索到的图元却没有搜索到.

(2)(setq ab (ssget "WP" (list w1 w2) (list '(0 . "TEXT") (cons 8 layer))))
错误信息为：Unexpected exception in lisp main!
现在我想知道第二种做法错在哪?
谢谢!!

meflying

我两个返回都正确，没有你说的错误，
第一个返回需要的结果，
第二个返回空，因为WP是在后面点列表围成的多边形中选择，两个点不能产生一个多边形，所以不能包含任何东西，因此返回空。

wujin

其实多看CAD的帮助文档会发现很多，呵呵，我就是看帮助文档编程的，当然起步是龙龙仔大哥对我的启发，不然可能我现在都不会。好像引用元素时元素是变量时应该都用cons的格式吧。如果框选范围不是要很精确的话，可以去掉ssget后面的参数。
(setq ab (ssget (list (cons 0 "text") (cons 8 layer))))