点选一条多段线,获取点选位置最近的两个端点坐标

yjs2020

多段线abcdef,如果点选在ab线段上就获取点a 点b的坐标,如果点选在bc线段上就获取点b 点c的坐标...

newer

加载 XDRX API

1. (defun _get (e pnt)
   
2.   (if (setq inx (xdrx-getpropertyvalue e "onsegat" pnt))
   
3.     (progn
   
4.       (setq inxs (xdrx-getpropertyvalue e "-index+" (car inx)))
   
5.       (list (xdrx-getpropertyvalue e "pointat" (car inx))
   
6.             (xdrx-getpropertyvalue e "pointat" (last inxs))
   
7.       )
   
8.     )
   
9.   )
   
10. )
    

(defun _get (e pnt)<br />   (if (setq inx (xdrx-getpropertyvalue e "onsegat" pnt))<br />     (progn<br />       (setq inxs (xdrx-getpropertyvalue e "-index+" (car inx)))<br />       (list (xdrx-getpropertyvalue e "pointat" (car inx))<br />             (xdrx-getpropertyvalue e "pointat" (last inxs))<br />       )<br />     )<br />   )<br /> )<br />

测试：
令: (setq pts (_get (car (entsel)) (getpoint)))

选择对象: ((5.28029 5.81065 0.0) (6.13866 3.85819 0.0))

yjs2020

newer 发表于 2020-11-21 00:32
加载 XDRX API

谢谢大佬

yangjian001

做一个热心并受欢迎的人

测完收工

感谢yjs2020的分享