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

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

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

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

(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:25

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:31

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

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

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

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

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

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

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

Don't ask before trying to search

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

本帖最后由 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，就返回前一段去
页: [1]
查看完整版本: 点选一条多段线,获取点选位置最近的两个端点坐标