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

davehuhudave

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

雪山飞狐_lzh

栏选

Editor.SelectFence Method

davehuhudave

再请教下版主，这里头涉及多项选择，多段线或直线，还涉及到我有时候只搜索经过一个点的线，所以关系到几个问题：

  1 。对于经过一个点的搜索来说，试过之后好像SelectFence不支持吧？其他的函数Editor里头好像都不太像

  2   对于搜索多项选择来说，我用如下代码视乎返回总是为空，不知道为何

            pc.Add(p1)
            pc.Add(p2)
                Dim obc As ObjectId()
                Dim acTypValAr(0) As TypedValue
                acTypValAr.SetValue(New TypedValue(DxfCode.Start, "LWPolyline,Line"), 0)
                Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
                Dim acSSPrompt As PromptSelectionResult = ed.SelectFence(pc, acSelFtr)
                Dim acSSet As SelectionSet = acSSPrompt.Value
                If Not acSSet Is Nothing Then
                    obc = acSSet.GetObjectIds

chpmould

谢谢分享，先学习一下，以后总能看懂的