关于经过两点的各类线获取

davehuhudave

         我用的如下代码：

            Dim acTypValAr(0) As TypedValue

            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0)
            Dim pc As New Point3dCollection
            pc.Add(ss.pos)
            pc.Add(ps.pos)
            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

奇怪的是，明明经过两点的直线只有一条，却总是得到好几条，并且从我调试的前几个点来看，筛选的obc里头，一般都是最后一个才是真正要获取的，这是为什么啊？

雪山飞狐_lzh

栏选的方式是与两点连线有交点的图元就会被选中，你可以选择后在遍历过滤一下

davehuhudave

那有什么更好的方法只选择startpoint和endpoint只为给出的两点的线呢？上面方法对于大图来说，搜索时间太烦

雪山飞狐_lzh

过滤组码10/11

davehuhudave

          这样吗？但是我搜索不到线条

  Dim acTypValAr(4) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0)
            acTypValAr.SetValue(New TypedValue(-4, "<OR"), 1)
            acTypValAr.SetValue(New TypedValue(10, ss.pos), 2)
            acTypValAr.SetValue(New TypedValue(11, ps.pos), 3)
            acTypValAr.SetValue(New TypedValue(-4, "OR>"), 4)
            Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
            Dim acSSPrompt As PromptSelectionResult = ed.SelectAll(acSelFtr)
            Dim acSSet As SelectionSet = acSSPrompt.Value

雪山飞狐_lzh

2.         [CommandMethod("tt5")]
3.         public static void test25()
4.         {
5.             Document doc = Application.DocumentManager.MdiActiveDocument;
6.             Editor ed = doc.Editor;
7.             Database db = doc.Database;
8.             var resPt1 = ed.GetPoint("\n请输入第一点:");
9.             if (resPt1.Status != PromptStatus.OK)
10.                 return;
11.             var resPt2 = ed.GetPoint("\n请输入第二点:");
12.             if (resPt2.Status != PromptStatus.OK)
13.                 return;
14.             var resSel =
15.                 ed.SelectAll(
16.                     new ResultList
17.                     {
18.                         {0, "line"},
19.                         {-4, "<xor"},
20.                             {-4, "<and"},
21.                                 {10, resPt1.Value},
22.                                 {11, resPt2.Value},
23.                             {-4, "and>"},
24.                             {-4, "<and"},
25.                                 {10, resPt2.Value},
26.                                 {11, resPt1.Value},
27.                             {-4, "and>"},
28.                         {-4, "xor>"}
29.                     });
30.             if (resSel.Status == PromptStatus.OK)
31.                 ed.SetImpliedSelection(resSel.Value.GetObjectIds());
32.         }

复制代码

davehuhudave

我按照 版主的代码改了，但是还是没有？

 Dim acTypValAr(10) As TypedValue
            acTypValAr.SetValue(New TypedValue(DxfCode.Start, "*Line"), 0)
            acTypValAr.SetValue(New TypedValue(-4, "<XOR"), 1)
            acTypValAr.SetValue(New TypedValue(-4, "<AND"), 2)
            acTypValAr.SetValue(New TypedValue(10, ss.pos), 3)
            acTypValAr.SetValue(New TypedValue(11, ps.pos), 4)
            acTypValAr.SetValue(New TypedValue(-4, "AND>"), 5)
            acTypValAr.SetValue(New TypedValue(-4, "<AND"), 6)
            acTypValAr.SetValue(New TypedValue(10, ps.pos), 7)
            acTypValAr.SetValue(New TypedValue(11, ss.pos), 8)
            acTypValAr.SetValue(New TypedValue(-4, "AND>"), 9)
            acTypValAr.SetValue(New TypedValue(-4, "XOR>"), 10)
            Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
            Dim acSSPrompt As PromptSelectionResult = ed.SelectAll(acSelFtr)

雪山飞狐_lzh

多段线用下面的

{0 ,  "LWPOLYLINE"},

{10, ss.pos},

{10, ps.pos}

davehuhudave

版主，好像还是没有唉，我搜索所有直线包括多段线，或者单独多段线也不行。

雪山飞狐_lzh

我这里测试是正常的

1.             var resSel =
2.                 ed.SelectAll(
3.                     new ResultList
4.                     {
5.                         {-4, "<or"},
6.                         {-4, "<and"},
7.                             {0, "line"},
8.                             {-4, "<xor"},
9.                                 {-4, "<and"},
10.                                     {10, resPt1.Value},
11.                                     {11, resPt2.Value},
12.                                 {-4, "and>"},
13.                                 {-4, "<and"},
14.                                     {10, resPt2.Value},
15.                                     {11, resPt1.Value},
16.                                 {-4, "and>"},
17.                             {-4, "xor>"},
18.                         {-4, "and>"},
19.                         {-4, "<and"},
20.                             {0, "lwpolyline"},
21.                             {10, resPt1.Value},
22.                             {10, resPt2.Value},
23.                         {-4, "and>"},
24.                         {-4, "or>"},
25.                     });

复制代码