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

yu960312 · 发表于 2020-11-20 15:55

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

wzg356 · 发表于 2020-11-20 16:59

(defun c:e1 ( / en e n)
(setq en (entsel "选择LWPOLYLINE,POLYLINE多线段")  e (car en))
(setq n(fix (vlax-curve-getparamatpoint e
                  (vlax-curve-getclosestpointto e (cadr en))))
);所击子段
(list (vlax-curve-getpointatparam e n)
   (vlax-curve-getpointatparam e (1+ n))
)
)

yu960312 · 发表于 2020-11-20 18:30

wzg356 发表于 2020-11-20 16:59
(defun c:e1 ( / en e n)
(setq en (entsel "选择LWPOLYLINE,POLYLINE多线段") e (car en))
(setq n(fix ...

大佬,怎么把两个坐标值赋予变量

自贡黄明儒 · 发表于 2020-11-20 19:48

(setq p1(vlax-curve-getpointatparam n e))

yu960312 · 发表于 2020-11-20 19:54

自贡黄明儒发表于 2020-11-20 19:48
(setq p1(vlax-curve-getpointatparam n e))

怎么顺便获取点选这条线段的角度

wzg356 · 发表于 2020-11-20 20:38

为什么不搜。。。。。。。。。。方位角
(angle p1 p2)

ketxu · 发表于 2020-11-21 01:18

Don't ask before trying to search

sandyvs · 发表于 2023-10-29 23:44

本帖最后由 sandyvs 于 2023-10-29 23:57 编辑

wzg356 发表于 2020-11-20 16:59
(defun c:e1 ( / en e n)
(setq en (entsel "选择LWPOLYLINE,POLYLINE多线段") e (car en))
(setq n(fix ...

请教下，点击多段线的终点，前一个端点坐标就没有了，得到的额结果为（终点坐标 nil），如何解决？

加个判断好像就可以了，如果是nil，就返回前一段去

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源