davehuhudave 发表于 2010-8-13 10:23:00

如何获取经过两点的所有直线或多段线？

<font face="Verdana">如何获取经过两点的所有直线或多段线？</font>

雪山飞狐_lzh 发表于 2010-8-13 12:46:00

<p>栏选</p>
<p>Editor.SelectFence Method </p>

davehuhudave 发表于 2010-8-16 08:37:00

<p>再请教下版主，这里头涉及多项选择，多段线或直线，还涉及到我有时候只搜索经过一个点的线，所以关系到几个问题：</p>
<p>&nbsp; 1 。对于经过一个点的搜索来说，试过之后好像SelectFence不支持吧？其他的函数Editor里头好像都不太像</p>
<p>&nbsp; 2&nbsp;&nbsp; 对于搜索多项选择来说，我用如下代码视乎返回总是为空，不知道为何</p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pc.Add(p1)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pc.Add(p2)</font><font face="Verdana"><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim obc As ObjectId()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acTypValAr(0) As TypedValue<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; acTypValAr.SetValue(New TypedValue(DxfCode.Start, "LWPolyline,Line"), 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim acSSet As SelectionSet = acSSPrompt.Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Not acSSet Is Nothing Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; obc = acSSet.GetObjectIds</font></p>

chpmould 发表于 2010-10-31 18:11:00

谢谢分享，先学习一下，以后总能看懂的
页: [1]
查看完整版本: 如何获取经过两点的所有直线或多段线？