[VBA程序]：请教选择集的selectatpoint方法

luln

请教选择集的selectatpoint方法怎么回事呀，它的点point参数如何执行？

efan2000

SelectAtPoint函数之后跟一个三维的点数组参数。
如：

2. 
   
3.   [FONT=courier new]
   
4.     Dim point(0 To 2) As Double
   
5.     point(0) = 6.8: point(1) = 9.4: point(2) = 0
   
6.     ssetObj.SelectAtPoint point
   
7.   [/FONT]
   

<br />   [FONT=courier new]<br />     Dim point(0 To 2) As Double<br />     point(0) = 6.8: point(1) = 9.4: point(2) = 0<br />     ssetObj.SelectAtPoint point<br />   [/FONT]<br />

不过，它有一个Bug，就是实际只能选择到过那点的一个实体，最好以那一点为中心，足够小的距离，比如0.05单位，构造一个四边形，左下角为Point1，右上角Point2。然后使用Select函数，后面跟acSelectionSetCrossing参数表示选择与这个四边形相交的实体，这样也就与SelectAtPoint的功能一样。

luln

这一点我知道，可是为什么有时候，根据这个点选出来的图形是不是一定会经过这一点呢？为什么我的一个图形不经过这一点，反而被选中了呢？