[求助]：当通过程序找到几个交点后如何自动删除不要的交点？

wangwangnn

我想实现这样一个功能：找到一个点，这个点到一个已知点1的距离为L1同时到已知点2的距离为L2。
想找到这个点是容易的，可以分别以点1、点2为圆心，以L1、L2为半径画两个圆，两圆交点既是要找的点。问题是这样会找到两个点，可是只想保留其中的一个点，比如，我想这样做，把鼠标移到想要得点上，此点高亮显示，点下鼠标，此点画出，另外一个点删除。不知怎样实现？或者还有其他方法？总之，就是保留选中的一个点，删除另外一个。还请大家帮忙。

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setvar "pdsize" 100)
    
18.   (setvar "pdmode" 98)
    
19.   (setq        pt1 (getpoint "\n点1 : ")
    
20.         pt2 (getpoint pt1 "\n点2 : ")
    
21.         l1  (UREAL 7 "" "\n距离1" l1)
    
22.         l2  (UREAL 7 "" "\n距离2" l2)
    
23.   )
    
24.   (command "circle" pt1 l1)
    
25.   (setq s1 (entlast))
    
26.   (command "circle" pt2 l2)
    
27.   (setq        s2  (entlast)
    
28.         ptn (xyp-get-Inters s1 s2 0)
    
29.   )
    
30.   (if ptn
    
31.     (progn
    
32.       (setq pt1        (car ptn)
    
33.             pt2        (cadr ptn)
    
34.       )
    
35.       (entdel s1)
    
36.       (entdel s2)
    
37.       (command "Point" pt1)
    
38.       (setq s1 (entlast))
    
39.       (command "Point" pt2)
    
40.       (setq s2 (entlast))
    
41.       (setq pt (getpoint "\n选择要保留的点 : "))
    
42.       (if (< (abs (distance pt pt1)) (abs (distance pt pt2)))
    
43.         (entdel s2)
    
44.         (entdel s1)
    
45.       )
    
46.     )
    
47.     (progn
    
48.       (entdel s1)
    
49.       (entdel s2)
    
50.       (princ"\n不存在此点!")
    
51.       )
    
52.   )
    
53.   (CMDLA1)
    
54. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setvar "pdsize" 100)<br />   (setvar "pdmode" 98)<br />   (setq        pt1 (getpoint "\n点1 : ")<br />         pt2 (getpoint pt1 "\n点2 : ")<br />         l1  (UREAL 7 "" "\n距离1" l1)<br />         l2  (UREAL 7 "" "\n距离2" l2)<br />   )<br />   (command "circle" pt1 l1)<br />   (setq s1 (entlast))<br />   (command "circle" pt2 l2)<br />   (setq        s2  (entlast)<br />         ptn (xyp-get-Inters s1 s2 0)<br />   )<br />   (if ptn<br />     (progn<br />       (setq pt1        (car ptn)<br />             pt2        (cadr ptn)<br />       )<br />       (entdel s1)<br />       (entdel s2)<br />       (command "Point" pt1)<br />       (setq s1 (entlast))<br />       (command "Point" pt2)<br />       (setq s2 (entlast))<br />       (setq pt (getpoint "\n选择要保留的点 : "))<br />       (if (< (abs (distance pt pt1)) (abs (distance pt pt2)))<br />         (entdel s2)<br />         (entdel s1)<br />       )<br />     )<br />     (progn<br />       (entdel s1)<br />       (entdel s2)<br />       (princ"\n不存在此点!")<br />       )<br />   )<br />   (CMDLA1)<br /> )[/FONT]

wangwangnn

谢谢，明白了