[VBA程序]：如何通过一个已知点获取一个多义线实体

东方不亮

如果已知一点在一条多义线上，如何通过点的坐标获取改多义线，而不需要重新选择，即不使用getentity entobj,point方法。feelblue@163.com

长清

最初由 feelblue 发布
[B]如果已知一点在一条多义线上，如何通过点的坐标获取改多义线，而不需要重新选择，即不使用getentity entobj,point方法。feelblue@163.com [/B]

特点：点到多义线的距离为0。
关键：用vlax-curve-getdistatpoint函数来实现：

函数说明：
(vlax-curve-getDistAtPoint  curve-obj point)

curve-obj - VLA object to be measured
point - 3-d point list (in WCS coordinates) on the curve

Returns:

Real number if successful, otherwise nil

步骤：
1  在点周围开一个矩形窗口，大小可以为 1x1。
2  通过矩形选取多义线选择集
3  判断：同时满足：A到点的距离最小；B距离小于0.01 这两个条件的那条多义线就是。

注意：本办法不能用于判断 3dpoly，这是因为本函数不能适用与该类实体。通常，不会用到3dpoly，如果真要用，自己写算法吧：3dpoly没有弧线段，关键是计算点到直线的距离。

唐僧肉

“运行后你会发现，并没有向（像）预期的那样选择到通过点（1，1，0）的所有实体，而只是选择到了一个——只有一个实体高亮度显示（见图11.2），msgbox提示也只有一个实体。该方法的实际功能可能没有AUTODESK公司预期的那样好。”——《AutoCAD Visaul Basic开发技术》 张国宝  科学出版社

XDSoft

最初由 唐僧肉 发布
[B]“运行后你会发现，并没有向（像）预期的那样选择到通过点（1，1，0）的所有实体，而只是选择到了一个——只有一个实体高亮度显示（见图11.2），msgbox提示也只有一个实体。该方法的实际功能可能没有AUTODESK公司预?.. [/B]

应该有误差的，比如若你的图范围是(0,0)--(1e20 1e20)这么大，那么开个1X1的矩形窗口肯定不行了，所以好的方法应该是得到当前屏幕的高度值，然后用这个高度值除以一个定值（比如400），也就是说不管图的范围任意变化，这个窗口都是固定的（和屏幕高度的比），然后构造这个窗口的选择集就入你说的AUTODESK的预想的那么好了，ADESK也肯定是这么做的：）

liming

在vba中若采用SelectAtPoint方法，在构造选择集的时候，只能选择一个物体，我试下来的结果好像是选择max(handle)，若通过一点，重新构造SELECT BY CROSS，因该有你说的结果了。我向东方兄的本意大概是通过SELECTATPOINT的方法来选择SPLINE，需要指出，当该点有两个OBJCET时，选择的结果没有预期的那样好了。

liming

订正：
上贴由唐僧肉发布（我用了人家的机器;)）
漏了标题：在VBA中使用SELECTATPOINT
------------------------------------------
在vba中若采用SelectAtPoint方法，在构造选择集的时候，只能选择一个物体，我试下来的结果好像是选择max(handle)，若通过一点，重新构造SELECT BY CROSS，因该有你说的结果了。我向东方兄的本意大概是通过SELECTATPOINT的方法来选择SPLINE，需要指出，当该点有两个OBJCET时，选择的结果没有预期的那样好了。
-----------------
向黎明同志致谦。