求一条多段线顶点到另一条多段线的最短距离,然后导出到excel，程序

fjrj

求一条多段线顶点到另一条多段线的最短距离，两条多段线不相交,然后将每个顶点对应的最小距离依照顺序导出到excel．每个顶点都求一次，太麻烦了．在此谢过拉．

fjrj

有高手晓得吗．这里我提供些我知道的资料

好象VLISP中有VLAX-CURVE-GETCLOSEDPOINTTO
这么一个函数直接返回点到曲线的最短距离.....

 

Hawking

时间问题，呵，有时间也许帮你坐坐

fjrj

huhu.没有人啊．哪个高人帮我解决下呀．

fjrj

帮帮忙啊　．５５５

aceowen

我的集成工具中“轴线至边线距离（平面）”可实现该功能，但得分两步，第一步，运用工具中桩号标注，将折点桩号标出，并形成数据文件，第二步，然后将数据文件中折点桩号列入EXCEL中，将鼠标点在首桩号，然后运行轴线至边线距离，可求得指定桩号的点到另一线的距离，但限于平面。

挂职网

高手在哪里呢

Andyhon

路过...
未能理出编程所需的具体素材来
上个图再加以说明会好些

Gu_xl

请试试这个函数，是到CSV文件的。excel有点麻烦

2. 
   
3. ;;;参数 SourcePoly 要计算的多段线图元名 TargetPoly 另一条多段线 CSVFile 输出文件名
   
4. (defun NearstPtoCSV (SourcePoly TargetPoly CSVFile)
   
5.   (setq f (open CSVFile "a"))
   
6.   (if (vlax-curve-isClosed SourcePoly)
   
7.     (setq n (fix(1- (vlax-curve-getEndParam SourcePoly))))
   
8.     (setq n (fix(vlax-curve-getEndParam SourcePoly)))
   
9.     )
   
10.   (setq nn 0)
    
11.   (repeat n
    
12.     (setq p (vlax-curve-getPointAtParam SourcePoly nn)
    
13.           p1 (vlax-curve-getClosestPointTo TargetPoly p)
    
14.           d (rtos (distance p p1) 2 3)
    
15.           rtn (cons d rtn)
    
16.           )
    
17.     (setq nn (1+ nn))
    
18.     )
    
19.   (setq rtn (reverse rtn))
    
20.   (setq str "" nn 0)
    
21.   (repeat n
    
22.     (if (/= str "")
    
23.       (setq str (strcat str "," (nth nn rtn)))
    
24.       (setq str (nth nn rtn))
    
25.       )
    
26.     )
    
27.   (write-line str f)
    
28.   (close f)
    
29.   str
    
30.   )
    

<br /> ;;;参数 SourcePoly 要计算的多段线图元名 TargetPoly 另一条多段线 CSVFile 输出文件名<br /> (defun NearstPtoCSV (SourcePoly TargetPoly CSVFile)<br />   (setq f (open CSVFile "a"))<br />   (if (vlax-curve-isClosed SourcePoly)<br />     (setq n (fix(1- (vlax-curve-getEndParam SourcePoly))))<br />     (setq n (fix(vlax-curve-getEndParam SourcePoly)))<br />     )<br />   (setq nn 0)<br />   (repeat n<br />     (setq p (vlax-curve-getPointAtParam SourcePoly nn)<br />           p1 (vlax-curve-getClosestPointTo TargetPoly p)<br />           d (rtos (distance p p1) 2 3)<br />           rtn (cons d rtn)<br />           )<br />     (setq nn (1+ nn))<br />     )<br />   (setq rtn (reverse rtn))<br />   (setq str "" nn 0)<br />   (repeat n<br />     (if (/= str "")<br />       (setq str (strcat str "," (nth nn rtn)))<br />       (setq str (nth nn rtn))<br />       )<br />     )<br />   (write-line str f)<br />   (close f)<br />   str<br />   )<br />