直线如何按连续性分组

marting

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

一行内的，上下距离一样，那左右距离能一样吗？
你排 水平的，都求和包围盒垂直边的距离，
排竖直的，就求和包围盒水平边的距离

aeo

当年消重线就是这么写的。

直线都是 y=kx+b ,k相同的时候，其实直接排序x就可以（除垂直线）

dyjwyqz5221

我试一下，感觉不一定能分开的样子。

marting

dyjwyqz5221 发表于 2018-6-11 07:55
我试一下，感觉不一定能分开的样子。

是一定能分开。看你怎么构造“索引”了。

dyjwyqz5221

我按你们的说法，水平直线的中点到选择集包围盒左竖直边的距离进行索引，结果一行内的断开直线还是在一个表内。

Lisphk

dyjwyqz5221 发表于 2018-6-11 09:06
我按你们的说法，水平直线的中点到选择集包围盒左竖直边的距离进行索引，结果一行内的断开直线还是在一个表 ...

肯定是代码写的不对了。

dyjwyqz5221

再有我写的那段程序只适合于水平方向及垂直方向的直线，斜直线恐怕有问题

dyjwyqz5221

我发出来，大家看看，给优化一下，使用范围要包括斜直线。
这个找不到，后面的程序就无法进行了，卡在这里了。
(setq ss (ssget '((0 . "line")(8 . "S_NET")))
        box (XD::Entity:box ss)
        pt1 (car box)
        pt2 (cadr box)
        pt4 (last box)
)

(setq lst1 (xd::list:groupbyindex
                    (mapcar '(lambda (x)
                                (setq pts (xdrx_getpropertyvalue x "startpoint" "endpoint" "midpoint"))
                                (setq ang (angle (car pts) (cadr pts)))
                                (if (equal ang 0.0 1e-1)
                                        (progn
                                                  (setq baseline (list pt1 pt4))
                                                (list ang (list (cadr #startpoint) (list (abs (xdrx_point_dist2Line #midpoint (car baseline) (cadr baseline))) x)))
                                        )
                                        (progn
                                                (setq baseline (list pt1 pt2))
                                                (list ang (list (car #startpoint) (list (abs (xdrx_point_dist2Line #midpoint (car baseline) (cadr baseline))) x)))
                                        )      
                                )
                         )
                           (xdrx_pickset->ents ss)
                    )
                1e-3
        )
)
(setq lst2
        (mapcar
                '(lambda(x)
                        (xd::list:groupbyindex (cdr x) 1e-1)
                )
                lst1
        )
)

;;;仅对x方向直线按直线的中点到选择集ss包围盒box左垂直边的距离进行排序
(setq lst3-x
        (mapcar
                '(lambda(x)
                        (xd::list:groupbyindex (cdr x) 1e-1)
                )
                (car lst2)
        )
)