[LISP函数]：求 获得封闭多义线包围的对象集 最快捷的方法?

oyxx_1023

(setq ent (car (entsel "\n选择封闭多义线:")))后,
如何用开销最省的方法获得该封闭多义线包住的实体选择集,
要求最后用SSGET WP的方法.
xiexie.

caddog

看看这个能不能满足你的要求

2. 
   
3.   [FONT=courier new]
   
4. ;;;--------------------------------------------------------
   
5. ;;;函数： c:SW
   
6. ;;;--------------------------------------------------------
   
7. ;;;编制日期:2006.4.1
   
8. ;;;编制者  :hj
   
9. ;;;函数说明:本函数选择用户指定多边形内的实体(注意多边形要在当前视口内)。
   
10. ;;;--------------------------------------------------------
    
11. (DEFUN c:sw (/ ENAME #MYLIST SS1)
    
12.   (princ "\n 选择用户指定多边形内的实体(注意多边形要在当前视口内)。")
    
13.   (SETQ ename (CAR (ENTSEL "\n请选择一个多边形:")))
    
14.   (SETQ #mylist (getpllist ename))
    
15.   (SETQ ss1 (SSGET "_WP" #mylist))
    
16.   (SSSETFIRST NIL ss1)
    
17.   (SETQ ss1 ss1)
    
18. ) ;_ 结束defun
    
19. ;;;--------------------------------------------------------
    
20. ;;;函数： c:CW
    
21. ;;;--------------------------------------------------------
    
22. ;;;编制日期:2006.4.1
    
23. ;;;编制者  :hj
    
24. ;;;函数说明:本函数选择用户指定多边形内以及与多边形相交的实体
    
25. ;;;         (注意多边形要在当前视口内)。
    
26. ;;;--------------------------------------------------------
    
27. (DEFUN c:cw (/ ENAME #MYLIST SS1)
    
28.   (princ "\n 选择用户指定多边形内以及与多边形相交的实体(注意多边形要在当前视口内)")
    
29.   (SETQ ename (CAR (ENTSEL "\n请选择一个多边形:")))
    
30.   (SETQ #mylist (getpllist ename))
    
31.   (SETQ ss1 (SSGET "_CP" #mylist))
    
32.   (SSSETFIRST NIL ss1)
    
33.   (SETQ ss1 ss1)
    
34. ) ;_ 结束defun
    
35. ;;;--------------------------------------------------------
    
36. ;;;要用到一个子函数
    
37. ;;;--------------------------------------------------------
    
38. ;;;--------------------------------------------------------
    
39. ;;;函数： getPlList                               
    
40. ;;;--------------------------------------------------------
    
41. ;;;说明：本函数提取多段线的各端点坐标值构成一张表并返回
    
42. ;;;               
    
43. ;;;               
    
44. ;;;编制者:高老师               
    
45. ;;;--------------------------------------------------------
    
46. 
    
47. (DEFUN getPlList (#entity)
    
48.   (SETQ obj (ENTGET #entity))
    
49.   (SETQ lw_t8 (CDR (ASSOC 8 obj)))
    
50.   (SETQ obj_1 nil)
    
51.   (WHILE (/= (ASSOC 10 obj) nil)
    
52.     (IF        (AND (= (CAAR obj) 10)
    
53.              (NOT (EQUAL (CDAR obj) (LAST obj_1) 0.001))
    
54.         )
    
55.       (SETQ obj_1 (APPEND obj_1 (LIST (CDAR obj))))
    
56.     )                                        ;生成坐标表同时去掉相邻重点,不带10
    
57.     (SETQ obj (CDR obj))
    
58.   )
    
59.   (SETQ obj obj_1)
    
60.   (IF (EQUAL (CAR obj) (LAST obj) 0.0001)
    
61.     (SETQ obj (REVERSE (CDR (REVERSE obj))))
    
62.   )
    
63.   ;;判断首闭
    
64.   (SETQ #temp obj)
    
65. )
    
66. ;;end defun
    
67. 
    
68.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;--------------------------------------------------------<br /> ;;;函数： c:SW<br /> ;;;--------------------------------------------------------<br /> ;;;编制日期:2006.4.1<br /> ;;;编制者  :hj<br /> ;;;函数说明:本函数选择用户指定多边形内的实体(注意多边形要在当前视口内)。<br /> ;;;--------------------------------------------------------<br /> (DEFUN c:sw (/ ENAME #MYLIST SS1)<br />   (princ "\n 选择用户指定多边形内的实体(注意多边形要在当前视口内)。")<br />   (SETQ ename (CAR (ENTSEL "\n请选择一个多边形:")))<br />   (SETQ #mylist (getpllist ename))<br />   (SETQ ss1 (SSGET "_WP" #mylist))<br />   (SSSETFIRST NIL ss1)<br />   (SETQ ss1 ss1)<br /> ) ;_ 结束defun<br /> ;;;--------------------------------------------------------<br /> ;;;函数： c:CW<br /> ;;;--------------------------------------------------------<br /> ;;;编制日期:2006.4.1<br /> ;;;编制者  :hj<br /> ;;;函数说明:本函数选择用户指定多边形内以及与多边形相交的实体<br /> ;;;         (注意多边形要在当前视口内)。<br /> ;;;--------------------------------------------------------<br /> (DEFUN c:cw (/ ENAME #MYLIST SS1)<br />   (princ "\n 选择用户指定多边形内以及与多边形相交的实体(注意多边形要在当前视口内)")<br />   (SETQ ename (CAR (ENTSEL "\n请选择一个多边形:")))<br />   (SETQ #mylist (getpllist ename))<br />   (SETQ ss1 (SSGET "_CP" #mylist))<br />   (SSSETFIRST NIL ss1)<br />   (SETQ ss1 ss1)<br /> ) ;_ 结束defun<br /> ;;;--------------------------------------------------------<br /> ;;;要用到一个子函数<br /> ;;;--------------------------------------------------------<br /> ;;;--------------------------------------------------------<br /> ;;;函数： getPlList                                <br /> ;;;--------------------------------------------------------<br /> ;;;说明：本函数提取多段线的各端点坐标值构成一张表并返回<br /> ;;;                <br /> ;;;                <br /> ;;;编制者:高老师                <br /> ;;;--------------------------------------------------------<br /> <br /> (DEFUN getPlList (#entity)<br />   (SETQ obj (ENTGET #entity))<br />   (SETQ lw_t8 (CDR (ASSOC 8 obj)))<br />   (SETQ obj_1 nil)<br />   (WHILE (/= (ASSOC 10 obj) nil)<br />     (IF        (AND (= (CAAR obj) 10)<br />              (NOT (EQUAL (CDAR obj) (LAST obj_1) 0.001))<br />         )<br />       (SETQ obj_1 (APPEND obj_1 (LIST (CDAR obj))))<br />     )                                        ;生成坐标表同时去掉相邻重点,不带10<br />     (SETQ obj (CDR obj))<br />   )<br />   (SETQ obj obj_1)<br />   (IF (EQUAL (CAR obj) (LAST obj) 0.0001)<br />     (SETQ obj (REVERSE (CDR (REVERSE obj))))<br />   )<br />   ;;判断首闭<br />   (SETQ #temp obj)<br /> )<br /> ;;end defun<br /> <br />   [/FONT]<br />

Underway

if the ExpressTools available

(acet-ent-geomextents ent)
or
(acet-geom-extents ent)
or
(acet-geom-ss-extents (ssget) T)