[求助]：获得相邻节点的问题

阿_Q

当用ENTSEL选择一PLINE时.
如何获得PLINE上 与拾取点相邻的 前后各一个节点 的坐标.假设PLINE不含圆弧.
3q.

Underway

(setq ee (entsel))
(setq pt (cadr ee)
     pt5 (osnap pt "mid")    ; Mid Point
      pt (osnap pt "end")    ; End Point A
      vv (angle pt pt5)
     pnt (polar pt5 vv (distance pt pt5))  ;; End Point B
)

zml84

二楼利用捕捉的功能可能引起程序的不稳定。请慎重。

个人看法，对PLINE顶点遍历是一个方法，还有一个方法就是对选择的PLINE打散，用先前得到的坐标拾取直线段，进而取出起终坐标。
1楼的意思大概是前者。

caddog

请查看　VLAX-CURVE-GETCLOSESTPOINTTO　函数和VLAX-CURVE-GETPARAMATPOINT函数
通过(VLAX-CURVE-GETPARAMATPOINT obj pp)取得的参数的值为小数
如0.8579说明用户所点取的点P的位置在多段线的0到1节点之间(第一个节点的索引是0的哈)，且0-P/0-1为0.8579，点位接近1点
由此，可能确定用户希望得到的是哪一个顶点。再进一步处理即可
下面是ACAD2000帮助文件中的相关内容
语法
返回曲线在指定点的参数
(vlax-curve-getParamAtPoint curve-obj point)

参数

curve-obj

要测量的 VLA 对象。

point

curve-obj.上的三维点表（在 WCS 中）。

返回值

如果成功则返回表示参数的实数，否则返回 nil。

样例

假定 ellipseObj 指向 vlax-curve-getArea 样例中的椭圆。设置 OSNAP 为“切点”并选择直线与椭圆相切的点：

_$ (setq selPt (getpoint))

(7.55765 5.55066 0.0)

获取选定点的参数值：

_$ (vlax-curve-getParamAtPoint ellipseObj selPt)

4.58296

阿_Q

经测试.4楼的方法切实可行.且方便.
2楼的方法太危险了,:).要是存在比较靠近的对象在拾取点旁边时会出错.