建立离定点距离小于某数值的对象的选择集的快捷方法

changyiran

我想选择与某一定点距离小于某一给定数值的高程点，想通过选择集的方法直接实现。
(setq ss(ssget "x"'((0 . "INSERT")(8 . "GCD"))))这个是选择了所有的高程点，假设给定点为z（坐标a，b），指定距离为s，能不能在(8 . "GCD")的后面再加一个过滤表实现？

changyiran

是不是理论上根本不可能啊，也没有高手现身说下嘛？

zyhandw

仅仅在(8 . "GCD")的后面再加一个过滤表实现，应该不太可能，真能的话就太简单了！
不过我试着编写了一段程序，应该可以满足你的要求：

2. (setq pt (getpoint "\n请输入指定一点:"))
   
3.    (setq ssn 0)
   
4.    (if (setq ss (ssget "x"'((0 . "INSERT")(8 . "GCD"))))
   
5.        (repeat (sslength ss)
   
6.          (setq ss_name (ssname ss ssn))
   
7.          (setq ss_att (entget ss_name))
   
8.          (setq ss_name_xy (cdr (assoc '10 ss_att)))
   
9.          (setq pt_ss_dis (distance pt ss_name_xy))
   
10.          (if (> pt_ss_dis 20.0) (setq ss (ssdel ss_name ss))
    
11.          (setq ssn (1+ ssn))
    
12.          )
    
13.        )
    
14.    )

(setq pt (getpoint "\n请输入指定一点:"))<br />    (setq ssn 0)<br />    (if (setq ss (ssget "x"'((0 . "INSERT")(8 . "GCD"))))<br />        (repeat (sslength ss)<br />          (setq ss_name (ssname ss ssn))<br />          (setq ss_att (entget ss_name))<br />          (setq ss_name_xy (cdr (assoc '10 ss_att)))<br />          (setq pt_ss_dis (distance pt ss_name_xy))<br />          (if (> pt_ss_dis 20.0) (setq ss (ssdel ss_name ss))<br />          (setq ssn (1+ ssn))<br />          )<br />        )<br />    )

changyiran

zyhandw 发表于 2012-4-6 16:53
仅仅在(8 . "GCD")的后面再加一个过滤表实现，应该不太可能，真能的话就太简单了！
不过我试着编写了 ...

这个我已经实现了，我只是想有没有更快捷的方法，还是谢谢你！！