急...l请问isp如何取得多段线中鼠标点击段的两个端点！

蔡__洛

如题  想请问 lisp中如何得到一个多段线的鼠标点击选中时候的线段的两端点！
比如我用entsel 点击一条5段多段线第3段的位置， 并且选中了这条多段线，想请问一下这时候如何返回我点击位置的这一段（也就是第3段）的两头端点的坐标！ 求一下思路！或者简单的代码！
我是初学 问题困绕好久 想请问下各位解决办法！

蔡__洛

现在处理多段线的函数也很少 每次都要绕很大个圈子啊

kingcai

你用 vlax-curve-getparamatdist 得出一个double的数值，在fix一下就是对应的边了

zyhandw

参考这个帖子http://bbs.mjtd.com/forum.php?mo ... id=93398&page=1，看看C版的回复

Gu_xl

1. (defun c:tt()
   
2. (
   
3. (lambda (poly pt / param)
   
4.    (cond
   
5.      ((not (WCMATCH (cdr (assoc 0 (entget poly))) "*POLYLINE")) )
   
6.      ((not pt) )
   
7.      (t
   
8.       (list (vlax-curve-getPointAtParam
   
9.               poly
   
10.               (setq param
    
11.                      (fix (vlax-curve-getParamAtPoint
    
12.                             poly
    
13.                             (vlax-curve-getclosestpointto poly pt)))))
    
14.             (vlax-curve-getPointAtParam poly (1+ param))
    
15.             )
    
16.       )
    
17.      )
    
18.    )
    
19.   (car (setq e (entsel "\n选择多段线")))
    
20.   (cadr e)
    
21.   )
    
22. )
    

(defun c:tt()<br /> (<br /> (lambda (poly pt / param)<br />    (cond<br />      ((not (WCMATCH (cdr (assoc 0 (entget poly))) "*POLYLINE")) )<br />      ((not pt) )<br />      (t<br />       (list (vlax-curve-getPointAtParam<br />               poly<br />               (setq param<br />                      (fix (vlax-curve-getParamAtPoint<br />                             poly<br />                             (vlax-curve-getclosestpointto poly pt)))))<br />             (vlax-curve-getPointAtParam poly (1+ param))<br />             )<br />       )<br />      )<br />    )<br />   (car (setq e (entsel "\n选择多段线")))<br />   (cadr e)<br />   )<br /> )<br />

soly2006

为gu版而来，