拾取多段线一点，怎么能得到距离这个点最近的顶点？

lisp_beginner

各位老师，拾取多段线一点，怎么能得到距离这个点最近的顶点？
谢谢！

marting

1. (defun c:tt (/ ent lst)
   
2.   (if (and (setq lst (entsel))
   
3.            (= "LWPOLYLINE"
   
4.               (cdr (assoc 0 (entget (setq ent (car lst)))))
   
5.            )
   
6.       )
   
7.     (progn
   
8.       (setvar "pdmode" 33)
   
9.       (entmake
   
10.         (list
    
11.           '(0 . "POINT")
    
12.           (cons 10
    
13.                 (vlax-curve-getpointatparam
    
14.                   ent
    
15.                   (fix (+ 0.5
    
16.                           (vlax-curve-getparamatpoint
    
17.                             ent
    
18.                             (vlax-curve-getclosestpointto ent (cadr lst))
    
19.                           )
    
20.                        )
    
21.                   )
    
22.                 )
    
23.           )
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )
    
30. 
    

(defun c:tt (/ ent lst)<br />   (if (and (setq lst (entsel))<br />            (= "LWPOLYLINE"<br />               (cdr (assoc 0 (entget (setq ent (car lst)))))<br />            )<br />       )<br />     (progn<br />       (setvar "pdmode" 33)<br />       (entmake<br />         (list<br />           '(0 . "POINT")<br />           (cons 10<br />                 (vlax-curve-getpointatparam<br />                   ent<br />                   (fix (+ 0.5<br />                           (vlax-curve-getparamatpoint<br />                             ent<br />                             (vlax-curve-getclosestpointto ent (cadr lst))<br />                           )<br />                        )<br />                   )<br />                 )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

pengfei2010

vlax-curve-getclosestpointto  函数 即可实现你的想法

marting

pengfei2010 发表于 2018-3-20 11:17

他是想获得离拾取点最近的“顶点”，不是最近点。所以vlax-curve-getclosestpointto不行。

sicky111

学习一下。

pengfei2010

marting 发表于 2018-3-20 11:20

哦哦 我看错了，不过获取最近顶点的子程序我以前也写过，有两种办法，大概意思就是 最近点到 点表 里面连续两点 垂直距离最近的  就是最近边了，然后判断一下 这个边最近点是哪个顶点即可

pengfei2010

marting 发表于 2018-3-20 11:20

我想请问一下 您的代码 (fix (+ 0.5 (vlax-curve-getparamatpoint ent (vlax-curve-getclosestpointto ent (cadr lst)))))
这里的0.5是啥意思呀？为什么要加0.5呢？求指点，谢谢哈