(求助)求LWPOLYLINE 或 POLYLINE指定处 前后 各一个点坐标
我想做个小程序超人工具箱里有就是旋转井篦子的那个。核心代码应该是 求LWPOLYLINE或 POLYLINE指定处 前后 各一个点坐标望各位指导
提供思路
谢谢
(setq ENT (entsel))
(setq PNT (apply 'vlax-curve-getClosestPointTo ENT))
(setq ENT (car ENT))
(setq PP(fix (vlax-curve-getParamAtPoint ENT PNT)))
(vlax-curve-getPointAtParam ENTPP);;节点1
(vlax-curve-getPointAtParam ENT (1+ PP));;节点2
感谢c版的热心帮助
页:
[1]