求助，搜索最近转角？

cawy113116

各位大神，如何搜索这个点最近的房角？能否帮我给一个思路？

ysq101

新手思路:   "画"个圆用圆半径选取法

最先被选中的对像为最近

xyccf

1. (vl-load-com)(defun PtLists (en)
   
2.   (mapcar 'cdr
   
3.           (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))
   
4.   )
   
5. )
   
6. (defun ss->lst (ss / i)
   
7.   (setq l nil)
   
8.   (if ss
   
9.     (repeat (setq i (sslength ss))
   
10.       (setq l (cons (ssname ss (setq i (1- i))) l))
    
11.     )
    
12.   )
    
13. l
    
14. )
    
15. (defun c:tt ()
    
16.   (setq ptzero (getpoint))
    
17.   (setq sslst (ss->lst (ssget '((0 . "*POLYLINE")))))
    
18.   (setq ptlst nil)
    
19.   (foreach x sslst
    
20.     (setq ptlst (append (PtLists x) ptlst))
    
21.   )
    
22.   (setq closestpt (car (vl-sort ptlst '(lambda (y z) (< (distance y ptzero) (distance z ptzero))))))
    
23.   (entmake (list '(0 . "CIRCLE") (cons 10 closestpt) (cons 40 50)));圆半径可以根据实际情况设定
    
24. )

(vl-load-com)(defun PtLists (en)<br />   (mapcar 'cdr<br />           (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))<br />   )<br /> )<br /> (defun ss->lst (ss / i)<br />   (setq l nil)<br />   (if ss<br />     (repeat (setq i (sslength ss))<br />       (setq l (cons (ssname ss (setq i (1- i))) l))<br />     )<br />   )<br /> l<br /> )<br /> (defun c:tt ()<br />   (setq ptzero (getpoint))<br />   (setq sslst (ss->lst (ssget '((0 . "*POLYLINE")))))<br />   (setq ptlst nil)<br />   (foreach x sslst<br />     (setq ptlst (append (PtLists x) ptlst))<br />   )<br />   (setq closestpt (car (vl-sort ptlst '(lambda (y z) (< (distance y ptzero) (distance z ptzero))))))<br />   (entmake (list '(0 . "CIRCLE") (cons 10 closestpt) (cons 40 50)));圆半径可以根据实际情况设定<br /> )

cawy113116

xyccf 发表于 2018-5-14 14:52

怎么在这一步就运行不走了呢？(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))

xyccf

cawy113116 发表于 2018-5-16 20:46
怎么在这一步就运行不走了呢？(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget en))

试试先运行一行(vl-load-com)，有可能你的vl函数没加载