初学，请问怎么在多个封闭的多段线中，确定一点就能知道这个点在哪个多段线中？

kisetu

初学，请问怎么在多个封闭的多段线中，确定一点就能知道这个点在哪个多段线中？有没简单普通的命令呢？

Lisphk

多段线的起始参数值是0，终止参数值=顶点索引（从0开始）-1。

所以，你根据点，求出点所在多段线的参数值取下整，就代表是在多段线哪个索引开始的段上了

1. (defun _whichseg (pl pt / seg)
   
2.   (and
   
3.     pl
   
4.     pt
   
5.     (= (type pl) 'ENAME)
   
6.     (= (vla-get-objectname (vlax-ename->vla-object pl))
   
7.        "AcDbPolyline"
   
8.     )
   
9.     (setq pt (vlax-curve-getclosestpointto pl pt))
   
10.     (setq seg (fix (vlax-curve-getparamatpoint pl pt)))
    
11.   )
    
12.   seg
    
13. )
    
14. 
    

(defun _whichseg (pl pt / seg)<br />   (and<br />     pl<br />     pt<br />     (= (type pl) 'ENAME)<br />     (= (vla-get-objectname (vlax-ename->vla-object pl))<br />        "AcDbPolyline"<br />     )<br />     (setq pt (vlax-curve-getclosestpointto pl pt))<br />     (setq seg (fix (vlax-curve-getparamatpoint pl pt)))<br />   )<br />   seg<br /> )<br /> <br />

kisetu

Lisphk 发表于 2017-7-19 13:28

感谢，vlisp函数介绍里面似乎没有vlax-curve-getclose……，能不能用一般函数呢，上面我的意思就像是说中国地图划分的行省，随便在地图上点个点就知道这个点在哪个行省中

Lisphk

kisetu 发表于 2017-7-19 15:34

有那个函数，你没找到帮助，不代表没有

去看看下面的帖子，http://bbs.xdcad.net/forum.php?m ... ight=VL%BF%AA%CD%B7

你在命令行上输入  !vlax-curve-getclosestpointto 就知道了，正宗的VLISP函数

命令: !vlax-curve-getclosestpointto
#<SUBR @2d3a2af0 vlax-curve-getClosestPointTo>