[讨论]：返回表格每个小范围的中心点

snsj

看大家有什么好的思路
一个用纯LINE画成的表格，要求狂选后返回每个格子的中心点并进行从左到右，从上到下的顺序排列

eachy

交点-〉生成 线段-〉生成 Region -〉获取 Centroid

雨箭风刀

如果作图规则，按x，y排序，再求每个小块中点

xyp1964

表格排序标注：

zml84

1.关于单元格的判断
演示和更多源码见：http://zml84.blog.sohu.com/83261102.html
[PHP]
(vl-load-com)
;;;====================================
;;;    通用函数  根据点位获取单元格
;;;参数：SS  ----边框对象选择集
;;;      PT  ----指定的点位
;;;使用限制：表格由LINE对象绘制；
;;;          LINE横平竖直；
;;;          单元格无合并现象。
(defun ZML-CELL-POINT (SS PT / LST1 LST2 I ENT PT10 PT11 ANG XMIN XMAX
                       YMIN YMAX)
    ;;根据线条方向，划分两大表 ：纵线  横线
    ;;分别得到 纵横表 对应的 x y 坐标（每条线只有一个）
    (setq LST1 '() ;_纵线X坐标表
          LST2 '() ;_横线Y坐标表
    )
    (setq I 0)
    (repeat (sslength SS)
        (setq ENT  (entget (ssname SS I))
              PT10 (cdr (assoc 10 ENT))
              PT11 (cdr (assoc 11 ENT))
              ANG  (angle PT10 PT11)
        )
        (if (or        (equal ANG (* 0.5 pi) 1e-6)
                (equal ANG (* 1.5 pi) 1e-6)
            )
            (setq LST1 (cons (car PT10) LST1))
        )
        (if (or        (equal ANG 0.0 1e-6)
                (equal ANG pi 1e-6)
            )
            (setq LST2 (cons (cadr PT10) LST2))
        )
        (setq I (1+ I))
    )
    ;;判断单元格范围
    (if        (and
            ;;判断是否存在表格
            (>= (length LST1) 2)
            (>= (length LST2) 2)
            ;;判断点是否在表格之内
            (<= (apply 'min LST1) (car PT) (apply 'max LST1))
            (<= (apply 'min LST2) (cadr PT) (apply 'max LST2))
        )
        (progn
            ;;排序
            (setq LST1 (vl-sort LST1 '<)
                  LST2 (vl-sort LST2 '<)
            )
            ;;查找X范围
            (setq TMP (car LST1))
            (foreach I (cdr LST1)
                (if (<= TMP (car PT) I)
                    (setq XMIN TMP
                          XMAX I
                          TMP  I
                    )
                    (setq TMP I)
                )
            )
            ;;查找Y范围
            (setq TMP (car LST2))
            (foreach I (cdr LST2)
                (if (<= TMP (cadr PT) I)
                    (setq YMIN TMP
                          YMAX I
                          TMP  I
                    )
                    (setq TMP I)
                )
            )
            ;;返回
            (list (list XMIN YMIN) (list XMAX YMAX))
        )
    ) ;_结束if
) ;_结束defun
[/PHP]

2.关于排序
源码见：http://zml84.blog.sohu.com/64213673.html

eachy

Net 网格当然简单了，中间有合并的就没那么容易了:)

xyp1964

区域内收：