求满足一定条件的距已知点距离最近的点表中的点

cdma2546

具体问题是这样：已知构造元素（（1 2 0） 0.35）和元素与此相似构造的表（（（4 7 0） 0.23） （（1 4 0） 0.35））求与构造元素第二个值（0.35）相等且距第一个值（1 2 0）点距离最近的构造表元素，有点不太好描述，希望能看懂，请帮助解决，谢谢！

lsjj

表的建構方式調整為0.35在前,使用ASSOC會更好處理

自贡黄明儒

搞成二维点表，排序

wowan1314

试试！ 好就不写了， 应该思路是对的。

2. (defun t11 (l1 l2 / a b c)
   
3.     (setq a (car l1) b (cadr l1))
   
4.     (setq c (vl-remove-if-not '(lambda(x)(eq (cadr x) b)) l2))
   
5.     (car (vl-sort c '(lambda(x y)(< (distance (car x) a)(distance (car y) a)))))
   
6. )

(defun t11 (l1 l2 / a b c) <br />     (setq a (car l1) b (cadr l1))<br />     (setq c (vl-remove-if-not '(lambda(x)(eq (cadr x) b)) l2))<br />     (car (vl-sort c '(lambda(x y)(< (distance (car x) a)(distance (car y) a)))))<br /> )

wowan1314

试试！ ！

2. (defun t22 (l1 l2 / a b c)
   
3.     (setq a (car l1) b (cadr l1))
   
4.     (mapcar
   
5.         '(lambda(x)
   
6.             (and (eq b (cadr x))
   
7.                 (if c
   
8.                     (and (< (distance (car x) a)(distance (car c) a))
   
9.                         (setq c x)
   
10.                     )
    
11.                     (setq c x)
    
12.                 )
    
13.             )
    
14.         )
    
15.         l2
    
16.     )
    
17.     c
    
18. )

(defun t22 (l1 l2 / a b c) <br />     (setq a (car l1) b (cadr l1))<br />     (mapcar<br />         '(lambda(x)<br />             (and (eq b (cadr x))<br />                 (if c<br />                     (and (< (distance (car x) a)(distance (car c) a))<br />                         (setq c x)<br />                     )<br />                     (setq c x)<br />                 )<br />             )<br />         )<br />         l2<br />     )<br />     c<br /> )

cdma2546

自贡黄明儒 发表于 2014-11-15 20:03
搞成二维点表，排序

你能出手帮助，非常感谢呀，关键等于这个条件限制让点距离排序有点困难。我就是想求框选范围内与指定单行文字角度相等且距插入点最近的单行文本对象，希望你再次赐教呀，感谢！

cdma2546

wowan1314 发表于 2014-11-15 21:06
试试！ ！

非常感谢呀，手机上的论坛，看不到你的代码，回头我用电脑下载下来试试，谢谢