怎么取得列表中的这些表

newer

kcad2010 发表于 2013-8-20 07:49
想返回距比较点最近的物体的坐标,可能是一个物体或多个物体

那那个实体的基点是什么，你想用实体上的哪个点做特征点？

Free-Lancer

kcad2010 发表于 2013-8-20 07:48
可能点弟表达能力差吧。现在上个图。一看就明白了

我给你描述下:
在选择集中任意指定一个实体，找出距离这个实体最近的所有实体，距离按给定的特征点计算

不过看你的图示还是没有说清这个距离是不是按 distance 计

ll_j

newer 发表于 2013-8-20 08:00
那那个实体的基点是什么，你想用实体上的哪个点做特征点？

楼主其实就是想找到离某个基准点最近的几个点而已，其它什么特征都无关紧要。
这也就是个排序函数，排序的条件要绕一点弯子。

说实在的，楼主的表达的确不太容易理解，看了那张图我感觉更容易歧义。

st788796

kcad2010 发表于 2013-8-20 08:30
自己任意设置的点。找最近距离的实体

距离不是LZ这样表示的吧！距离是 Distance！

ll_j

供参考：

1. (defun c:tt ()
   
2.   (setq ss  (ssget)
   
3.         len (sslength ss)
   
4.         i   -1
   
5.         lst nil
   
6.   )
   
7.   (repeat len
   
8.     (setq i   (1+ i)
   
9.           en  (ssname ss i)
   
10.           lst (cons en lst)    ;构成只包含实体名的表
    
11.     )
    
12.   )
    
13.   (setq pt (getpoint "\n基准点："))
    
14.   (setq lst (mapcar
    
15.               '(lambda (x)
    
16.                  (list x (distance pt (cdr (assoc 10 (entget x)))))
    
17.                )
    
18.               lst
    
19.             )                  ;构成实体名+距离的表
    
20.         lst (vl-sort
    
21.               lst
    
22.               '(lambda(a b)
    
23.                  (< (cadr a) (cadr b))
    
24.                )
    
25.             )                  ;按距离排序
    
26.   )
    
27. )

(defun c:tt ()<br />   (setq ss  (ssget)<br />         len (sslength ss)<br />         i   -1<br />         lst nil<br />   )<br />   (repeat len<br />     (setq i   (1+ i)<br />           en  (ssname ss i)<br />           lst (cons en lst)    ;构成只包含实体名的表<br />     )<br />   )<br />   (setq pt (getpoint "\n基准点："))<br />   (setq lst (mapcar<br />               '(lambda (x)<br />                  (list x (distance pt (cdr (assoc 10 (entget x)))))<br />                )<br />               lst<br />             )                  ;构成实体名+距离的表<br />         lst (vl-sort<br />               lst<br />               '(lambda(a b)<br />                  (< (cadr a) (cadr b))<br />                )<br />             )                  ;按距离排序<br />   )<br /> )