[求助]：这样一个问题，向各位求助！

fjw_ok

这样一个问题，向各位求助！
在VBA中可用GET族方法在屏幕上点选object
正如下面所附HELP文件所述，点选的点不一定
在object上,因为关心的是返回的object,在有时
对返回的点同样关心，如何在选择前设定捕捉
使点一定在object上呢？
我这样设置不行！
thisDrawing.SetVariable "OSMODE", 128
ThisDrawing.Utility.prompt "请选择第一根钢筋"
ThisDrawing.Utility.GetEntity obj, pt
firstgj.Highlight (True)


以下是HELP文件有关内容：

This method requires the AutoCAD user to
select an object by picking a point on the
graphics screen. If an entity is picked,
it is returned in the first parameter and
the second parameter will contain the point
picked in WCS coordinates. If the pick point
is not on an entity the call will fail.

The pick point returned by GetEntity does
not necessarily lie on the selected object.
The returned point represents the location
of the crosshairs at the time of selection.
The relationship between this point and the
object varies depending on the size of the
pickbox and the current zoom scale.

T

efan2000

在VBA中，没有选中对象时，会产生错误，而通过错误捕获，则可以判断出有没有选中对象。对于GetEntity和GetSubEntity，可以在错误捕捉中，使用GetVariable("errno")，获取系统变更ERRNO的值，如果为7，表示没有选中对象，否则可能是其它错误，如单击鼠标右键或者点击工具栏等等。如下：

2. 
   
3.   [FONT=courier new]
   
4. Sub Test()
   
5.     On Error GoTo ErrTrap
   
6.     ThisDrawing.Utility.GetEntity EntObj, Pt, "请选择第一根钢筋"
   
7.     Exit Sub
   
8.    
   
9. ErrTrap:
   
10.     If ThisDrawing.GetVariable("errno") = 7 Then
    
11.         Err.Clear
    
12.         Resume
    
13.     End If
    
14.     On Error GoTo 0
    
15. End Sub
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Test()<br />     On Error GoTo ErrTrap<br />     ThisDrawing.Utility.GetEntity EntObj, Pt, "请选择第一根钢筋"<br />     Exit Sub<br />     <br /> ErrTrap:<br />     If ThisDrawing.GetVariable("errno") = 7 Then<br />         Err.Clear<br />         Resume<br />     End If<br />     On Error GoTo 0<br /> End Sub<br />   [/FONT]<br />

fjw_ok

斑竹？：你可能明白我说的
其实选到了物体
但返回的点不一在object上,
现在既要选到物体，又要使点
在物体上，如何做？

efan2000

一种方法是判断返回点跟对象之间的关系，比如在端点附近，还是在中点附近。
另一种是使用VLAX类库中的获取最近点的函数，但也不能获的十分精确的点，一般要自己判断，方法是根据捕捉靶框的大小结合点来操作。

fjw_ok

谁能有好办法？

gyl

我也遇到这个问题，希望高手再研究研究如何捕捉到所期望的对象。
我要遍历所有的多段线和样条曲线（这些线可能首尾相连，但不重复不交叉），分别对每条线使用measure命令；然而measure命令的参数是一个能够捕捉到这些点的坐标，我无法得到。我想使用线的中点坐标或是线上距离端点一定长度的点可以捕捉目标，不知如何取得这样的点。

rave

在VBA中可以直接调用arx函数 acedNEntSelP(),
网友[B]zf9568[/B]  的非凡发现, 看看这个帖子http://www.xdcad.net/forum/showthread.php?s=&threadid=77238

gyl

最初由 rave 发布
[B]在VBA中可以直接调用arx函数 acedNEntSelP(),
网友[B]zf9568[/B]  的非凡发现, 看看这个帖子http://www.xdcad.net/forum/showthread.php?s=&threadid=77238 [/B]

我不懂ARX，斑竹能否详细介绍一下VBA中调用arx函数 acedNEntSelP()的方法：语法怎样写？是不是需要ARX的库文件？

lijiao

是这种效果吗？

gyl

用VBA如何得到这样一个点的坐标：该点位于指定的线上，距离端点的距离是个定值（比如5米）。

fjw_ok

最初由 lijiao 发布
[B]是这种效果吗？ [/B]

应该就是这种效果，但要在ThisDrawing.Utility.prompt "请选择第一根钢筋"后点选实体时得到实体上的点

如何作的？？