经过一点的实体的选择

davehuhudave · 发表于 2010-8-16 10:25:00

Dim pc As New Point3dCollection
            pc.Add(p)
            Dim obc As ObjectId()
            Dim acTypValAr(0) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*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
            End if

好像SelectFence不支持经过一点的选择，该怎么弄呢？

雪山飞狐_lzh · 发表于 2010-8-16 10:43:00

你的线或多段线是端点在这个点？还是经过

davehuhudave · 发表于 2010-8-16 10:48:00

我本来想是经过这个点，如果是端点就在这个线上的话更好

davehuhudave · 发表于 2010-8-16 11:01:00

另外，上次问的经过两点的选择好像也有问题，检索结果有时候多有时候少
Dim pc As New Point3dCollection
            pc.Add(p1)
            pc.Add(p2)
            Dim obc As ObjectId()
            Dim acTypValAr(0) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*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
            Else : Return False

雪山飞狐_lzh · 发表于 2010-8-16 15:24:00

端点在pt1
         ed.SelectAll(
            new SelectionFilter(
                  new TypedValue[]
                  {
                     new TypedValue(0, "*line"),
                     new TypedValue(-4, "")
                  }));