如何通过点选多段线来找到线上的两点

jyc1118

我想通过点选多段线来找到线上的两点，并且做标记，请问各位大神如何实现PS：希望能用纯LISP解决
=============================================

执行命令 点选这个矩形多段线上面那条边




得到如下效果

819534890

这个不难：
1、获取多段线上点选的点；
2、获得多段线的顶点坐标；
3、逐一判断点选的点与相邻两个顶点是否三点共线，如果是，那么该相邻的顶点就是你所需要的，标记顶点。
方法二：
1、获取多段线的顶点坐标；
2、点选的点 到 相邻顶点之间组成的直线 的最短距离就是你所需要的那一段，标记顶点

iLisp

vlax-curce-getparamatpoint
fix
1+

zxq0220

2. (defun c:tt ()
   
3.   (setvar "CMDECHO" 0)
   
4.   (if (and (setq s1 (entsel "\n选择多段线: "))
   
5.         (setq ent (entget(car s1)))
   
6.         (wcmatch (cdr(assoc 0 ent)) "*POLYLINE")) (progn
   
7.     (command "EXPLODE" s1)
   
8.     (setq pt (cadr s1))
   
9.     (setq pt1 (osnap pt "NEAR"))
   
10.     (setq ss (ssget "c" pt1 pt1))
    
11.     (setq ent1 (entget(ssname ss 0)))
    
12.     (setq pt2 (cdr(assoc 10 ent1)))
    
13.     (setq pt3 (cdr(assoc 11 ent1)))
    
14.     (command "U")
    
15.   ))
    
16.   (setvar "CMDECHO" 1)
    
17.   (list pt2 pt3)
    
18. )

(defun c:tt ()<br />   (setvar "CMDECHO" 0)<br />   (if (and (setq s1 (entsel "\n选择多段线: "))<br />         (setq ent (entget(car s1)))<br />         (wcmatch (cdr(assoc 0 ent)) "*POLYLINE")) (progn<br />     (command "EXPLODE" s1)<br />     (setq pt (cadr s1))<br />     (setq pt1 (osnap pt "NEAR"))<br />     (setq ss (ssget "c" pt1 pt1))<br />     (setq ent1 (entget(ssname ss 0)))<br />     (setq pt2 (cdr(assoc 10 ent1)))<br />     (setq pt3 (cdr(assoc 11 ent1)))<br />     (command "U")<br />   ))<br />   (setvar "CMDECHO" 1)<br />   (list pt2 pt3)<br /> )

jyc1118

819534890 发表于 2014-10-29 18:00
这个不难：
1、获取多段线上点选的点；
2、获得多段线的顶点坐标；

关于方法一：
点选出这个点的问题，我是用entsel得到这个多段线图元和一个点的坐标，但是这个点不一定会和多段线的坐标三点共线吧。好像会存在偏差，也就是这个坐标并不在多段线上。请问有其他点选的方式吗？
关于方法二：
最短距离方法的我试过，存在BUG，对于有两个最短距离的多段线就没办法了。
点选PT1和PT2之间的线段时，有可能选中PT3和PT4这两点。这个有办法解决吗？

XDSoft

jyc1118 发表于 2014-10-29 22:58
关于方法一：
点选出这个点的问题，我是用entsel得到这个多段线图元和一个点的坐标，但是这个点不一定会 ...

怕有偏差你就near一下咯。

jyc1118

zxq0220 发表于 2014-10-29 18:32

osnap还能这么用啊 多谢 多谢

jyc1118

XDSoft 发表于 2014-10-29 23:13
怕有偏差你就near一下咯。

之前没用过osnap这个函数，原来还能这么用，那除了NEAR还有其他的捕捉形式，是用哪些英文来表示的？

jyc1118

iLisp 发表于 2014-10-29 18:25
vlax-curce-getparamatpoint
fix
1+

这个函数没用过 研究研究

eachy

jyc1118 发表于 2014-10-29 23:38
这个函数没用过 研究研究

1. (defun getpts (curve p / pam)
   
2.   (setq        pam (vlax-curve-getparamatpoint
   
3.               curve
   
4.               (vlax-curve-getclosestpointto curve p)
   
5.             )
   
6.   )
   
7.   (list        (vlax-curve-getpointatparam curve (fix pam))
   
8.         (vlax-curve-getpointatparam curve (1+ (fix pam)))
   
9.   )
   
10. )
    

(defun getpts (curve p / pam)<br />   (setq        pam (vlax-curve-getparamatpoint<br />               curve<br />               (vlax-curve-getclosestpointto curve p)<br />             )<br />   )<br />   (list        (vlax-curve-getpointatparam curve (fix pam))<br />         (vlax-curve-getpointatparam curve (1+ (fix pam)))<br />   )<br /> )<br />

守仁格竹GM

XD::Polyoine:-Index+ 晓东论坛函数，也可以根据这个自己写出来，