直线如何按连续性分组

dyjwyqz5221

如何将连续的直线为一组。
如下图：
1、两条直线的交点处为相关直线的起点或终点。
2、x方向每条直线的起点、终点均为从左到右。
3、y方向每条直线的起点、终点均为从下到上。4、最终形成一个图元表如下：
((x1 x2 x3)(x4)(x5)(x6 x7 x8)(x9 x10 x11)
(y1 y2 y3)(y4 y5 y6)(y7 y8 y9)(y10 y11 y12))

其中：x* y* 为各条直线的图元名
图元名及各子表的顺序同上表。
附图:

newer

dyjwyqz5221 发表于 2018-6-11 09:10
再有我写的那段程序只适合于水平方向及垂直方向的直线，斜直线恐怕有问题

斜线也没有问题，选包围盒做边界只是正交时候的一个选择，如果你斜的，你就选这个角度垂直方向一个无限远的距离做参照就够，你只要保证所有要排序的位于这个参照一侧就行了。

coverne

这个有思路么

dyjwyqz5221

我已经用xd::list:groupbyindex 做到了每行、每列的直线各自成一组，如何将连续的直线分成一组就不知道如何进行了

dyjwyqz5221

[Plain Text] 纯文本查看 复制代码

(setq ss(ssget '((0 . "line")(8 . "S_NET"))))
;;;按角度分开，分为横向与竖向
(setq lst1 (xd::list:groupbyindex
                                    (mapcar '(lambda (x)
                                                (setq pts (xdrx_getpropertyvalue x                                                                      "startpoint" "endpoint"))
                                                (setq ang (angle (car pts) (cadr pts)))
                                                (if (equal ang 0.0 1e-1) 
                                                        (list ang (list (cadr #startpoint) x))
                                                        (list ang (list (car #startpoint) x))        
                                                )
                                             )
                                            (xdrx_pickset->ents ss)
                                    )
                                 1e-3
        )
)
;;;x、y方向分别按每行、每列分开
(setq lst2 (mapcar
                '(lambda(x)
                        (setq lst-3 (xd::list:groupbyindex (cdr x) 1e-1))
                        (mapcar
                                '(lambda(y)
                                        (vl-sort (cdr y) '(lambda(a b)
                                                                (equal  (xdrx_getpropertyvalue a "endpoint")                                                                            (xdrx_getpropertyvalue b "startpoint") 1e-3)
                                                        )        
                                        )
                                )
                                lst-3
                        )
                )
                lst1
        )
)

newer

你最终想要做什么？ 如果是表格的话，你得到按行按列排序的矩形框多好。

newer

coverne 发表于 2018-6-8 09:06
这个有思路么

去看看 xd::pickset:tablesort

dyjwyqz5221

那个函数不适合

dyjwyqz5221

用两直线有无直接相交点进行过滤应该可以

newer

dyjwyqz5221 发表于 2018-6-8 11:44
那个函数不适合

你怎么知道这个函数不行？

另外的思路，用XD::LIST:GroupByIndex，

按直线的角度分组，得到角度一样的在一个组

然后对上面的每个组，按到包围盒最边的上下距离，分组

你就得到结果了。


给你个另外的代码，如果你最终想要这个的话

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (if (setq box (xdrx_geom_bpoly dynpt ss t))
   
4.       (progn (setq box (xdrx_points_box box))
   
5.              (if (not (equal box oldbox 0.01))
   
6.                (progn (xdrx_entity_delete so)
   
7.                       (setq so (xdrx_solid_make
   
8.                                  (car box)
   
9.                                  (cadr box)
   
10.                                  (last box)
    
11.                                  (caddr box)
    
12.                                )
    
13.                       )
    
14.                       (xdrx_setpropertyvalue so "color" 1)
    
15.                       (setq oldbox box)
    
16.                )
    
17.              )
    
18.       )
    
19.     )
    
20.   )
    
21.   (if (setq ss (ssget '((0 . "LINE,*POLYLINE"))))
    
22.     (progn (xdrx_begin)
    
23.            (xdrx_pointmonitor "_callback")
    
24.            (getpoint)
    
25.            (xdrx_pointmonitor)
    
26.            (xdrx_end)
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )
    
31. 
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (if (setq box (xdrx_geom_bpoly dynpt ss t))<br />       (progn (setq box (xdrx_points_box box))<br />              (if (not (equal box oldbox 0.01))<br />                (progn (xdrx_entity_delete so)<br />                       (setq so (xdrx_solid_make<br />                                  (car box)<br />                                  (cadr box)<br />                                  (last box)<br />                                  (caddr box)<br />                                )<br />                       )<br />                       (xdrx_setpropertyvalue so "color" 1)<br />                       (setq oldbox box)<br />                )<br />              )<br />       )<br />     )<br />   )<br />   (if (setq ss (ssget '((0 . "LINE,*POLYLINE"))))<br />     (progn (xdrx_begin)<br />            (xdrx_pointmonitor "_callback")<br />            (getpoint)<br />            (xdrx_pointmonitor)<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

newer

dyjwyqz5221 发表于 2018-6-8 11:47
用两直线有无直接相交点进行过滤应该可以

另外去看看这个帖子

                               
登录/注册后可看大图

http://bbs.xdcad.net/thread-671284-1-1.html

dyjwyqz5221

我这段程序就是用xd::list:groupbyindex按角度先分组，然后又用xd::list:groupbyindex
按x、y坐标值分行、分列的。
现在的问题是，第二行两条直线的图元在一个组内，这两条直线不共点，
如何将它两个分组呢？

(setq ss(ssget '((0 . "line")(8 . "S_NET"))))
;;;按角度分开，分为横向与竖向
(setq lst1 (xd::list:groupbyindex
                    (mapcar '(lambda (x)
                                (setq pts (xdrx_getpropertyvalue x "startpoint" "endpoint"))
                                (setq ang (angle (car pts) (cadr pts)))
                                (if (equal ang 0.0 1e-1)
                                        (list ang (list (cadr #startpoint) x))
                                        (list ang (list (car #startpoint) x))       
                                )
                         )
                           (xdrx_pickset->ents ss)
                    )
                1e-3
        )
)
;;;x、y方向分别按每行、每列分开
(setq lst2
        (mapcar
                '(lambda(x)
                        (xd::list:groupbyindex (cdr x) 1e-1)
                )
                lst1
        )
)

newer

dyjwyqz5221 发表于 2018-6-8 15:54
我这段程序就是用xd::list:groupbyindex按角度先分组，然后又用xd::list:groupbyindex
按x、y坐标值分行、 ...

你得需要两次分组
1、角度分组
2、对上面角度分组里面的 每个组，再分组，分组的规则是你求出直线特征点到 包围盒的距离，距离排序后的分组，你就把同一行的，不挨着的给分开了。
用MAPCAR很快处理的，理解了一个分组，再深层的同理了。只是分组的INDEX怎么确定的事。

dyjwyqz5221

newer 发表于 2018-6-8 16:09
你得需要两次分组
1、角度分组
2、对上面角度分组里面的 每个组，再分组，分组的规则是你求出直线特征 ...

“再分组，分组的规则是你求出直线特征点到 包围盒的距离，距离排序后的分组，你就把同一行的，不挨着的给分开了。”
这句话理解不了。1是，包围盒是哪个的包围盒，是整个选择集的吗？
2是，直线的特征点到包围盒的距离，同一水平线上的，距离包围盒的上下边应该是一样的距离吧。
能否麻烦你给指点一下

marting

dyjwyqz5221 发表于 2018-6-8 18:02
“再分组，分组的规则是你求出直线特征点到 包围盒的距离，距离排序后的分组，你就把同一行的，不挨着的 ...

当然是唯一不变的东西做参照了，就是整个选择集的选择集的包围盒，你求出一行内的，所有直线的中点到包围盒一个边的距离，你要排序那个方向的，距离不同的，不就分出来了。