[求助]：谁能编一个求多段线上点与点距离的程序呀

ahopera

我想请教各位大侠在一个多段线或者弧段上，怎么能够求出在这个多段线上的一个点到别外一个在这个多段线上的点的距离？这条多段线上有多个节点，并不是一条直线。或者，知道了距离，怎么把另一个点在这条多段线上标出来，这个程序上怎么实现？谁能给个算法？

zhangpu_80

我也需要的

ahopera

晓东知道么？

yshf

用(vlax-curve-)类函数。

ahopera

最初由 yshf 发布
[B]用(vlax-curve-)类函数。 [/B]

这是什么函数？目前有这样的软件么？

Free-Lancer

好像 晓东工具箱 中就有这个程序

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. [url]http://free.ys168.com/?xyp1964[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        s1   (car (entsel "\n选择曲线: "))
    
18.         pt1  (getpoint "\n第1点: ")
    
19.         pt2  (getpoint pt1 "\n第2点: ")
    
20.         pt1  (osnap pt1 "near")
    
21.         pt2  (osnap pt2 "near")
    
22.         dist (abs (- (xyp-get-LengthAtPoint s1 pt1)
    
23.                      (xyp-get-LengthAtPoint s1 pt2)
    
24.                   )
    
25.              )
    
26.   )
    
27.   (princ "\n两点建曲线长 : ")
    
28.   (princ dist)
    
29.   (CMDLA1)
    
30. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        s1   (car (entsel "\n选择曲线: "))<br />         pt1  (getpoint "\n第1点: ")<br />         pt2  (getpoint pt1 "\n第2点: ")<br />         pt1  (osnap pt1 "near")<br />         pt2  (osnap pt2 "near")<br />         dist (abs (- (xyp-get-LengthAtPoint s1 pt1)<br />                      (xyp-get-LengthAtPoint s1 pt2)<br />                   )<br />              )<br />   )<br />   (princ "\n两点建曲线长 : ")<br />   (princ dist)<br />   (CMDLA1)<br /> )[/FONT]

ahopera

为什么我现在在晓东怎么一个文件也下不了了呢？

我怎么不能运行这个程序？
命令: appload 已成功加载 xyp_lib.VLX。
命令:
命令:
命令: test
请回答“是”或“否”。
是否垂直? <N>
“宋体”是当前文字样式。
命令: test
请回答“是”或“否”。
是否垂直? <N>
“宋体”是当前文字样式。

怎么回事？