这样的排序谁会呀!

q3_2006 · 发表于 2013-12-4 12:56:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 q3_2006 于 2013-12-4 12:58 编辑

这是搞测绘网友的提问测试图上传了,给这个房子编个号

st788796 · 发表于 2013-12-4 13:39:21

以 Pline 中心排行列, 隔行 Reverse

newer · 发表于 2013-12-4 14:25:27

456是怎么排出来的？同第一个图片规则不一样啊。

q3_2006 · 发表于 2013-12-4 14:35:16

newer 发表于 2013-12-4 14:25
456是怎么排出来的？同第一个图片规则不一样啊。

说实话我也没看出来!{:soso_e127:}

q3_2006 · 发表于 2013-12-4 14:38:24

st788796 发表于 2013-12-4 13:39
以 Pline 中心排行列, 隔行 Reverse

用中心不行的....看起来会很乱....

st788796 · 发表于 2013-12-4 14:40:52

q3_2006 发表于 2013-12-4 14:38
用中心不行的....看起来会很乱....

规则是人定的, 以左上角点为基准

q3_2006 · 发表于 2013-12-4 14:41:14

这就是中心排序的...看起来很神经....{:soso_e110:}

q3_2006 · 发表于 2013-12-4 14:43:12

如果正常上下左右排序,房屋面积差很多...如何设置容差???

q3_2006 · 发表于 2013-12-4 14:45:18

st788796 发表于 2013-12-4 14:40
规则是人定的, 以左上角点为基准

面积差很多呢....怎么处理??

newer · 发表于 2013-12-4 14:47:06

q3_2006 发表于 2013-12-4 14:41
这就是中心排序的...看起来很神经....

要考虑精度了，误差范围内的算一行。函数发布有现成的
XD::Pickset:TableSort

st788796 · 发表于 2013-12-4 14:48:30

按 Pline 的最上顶点, 哪个先冒头就先排哪个

aeo · 发表于 2013-12-4 17:10:49

应该是随便排的，按一排排排列也没错，只要找着方便。

newer · 发表于 2013-12-4 21:04:09

q3_2006 发表于 2013-12-4 14:43
如果正常上下左右排序,房屋面积差很多...如何设置容差???

到底是什么规则？还有面积？还是按照房子的几何位置排？

q3_2006 · 发表于 2013-12-5 08:48:18

newer 发表于 2013-12-4 21:04
到底是什么规则？还有面积？还是按照房子的几何位置排？

E大说今天要精简增效XD::List:TableSort.....期待ing.....

eachy · 发表于 2013-12-6 10:59:59

q3_2006 发表于 2013-12-5 08:48
E大说今天要精简增效XD:ist:TableSort.....期待ing.....

给你个思路

(defun c:tt (/ ss el i)
(if (setq ss (ssget '((0 . "lwpolyline") (-4 . "&=") (70 . 1))))
(progn
(setq el
(mapcar
'(lambda (x)
(list (car (vl-sort (xdrx_getpropertyvalue x "Vertices")
'(lambda (p1 p2)
(> (cadr p1) (cadr p2))
)
)
)
x
)
)
(xdrx_pickset->ents ss)
)
el (Ea::List:TableSort el 0 4 0.01)
)
(setq i 0)
(mapcar '(lambda (x)
(mapcar '(lambda (b / box p)
(setq box (xdrx_entity_box b)
p (xdrx_line_midp (car box) (caddr box))
)
(xdrx_text_make
p
(itoa (setq i (1+ i)))
(getvar "textsize")
0.
)
)
x
)
)
(mapcar '(lambda (a) (mapcar 'cdr a)) el)
)
)
)
(princ)
)

(defun c:tt (/ ss el i) 
  (if (setq ss (ssget '((0 . "lwpolyline") (-4 . "&=") (70 . 1)))) 
    (progn 
      (setq el 
               (mapcar 
                 '(lambda (x) 
                    (list (car (vl-sort        (xdrx_getpropertyvalue x "Vertices") 
                                        '(lambda (p1 p2) 
                                           (> (cadr p1) (cadr p2)) 
                                         ) 
                               ) 
                          ) 
                          x 
                    ) 
                  ) 
                 (xdrx_pickset->ents ss) 
               ) 
            el (Ea::List:TableSort el 0 4 0.01) 
      ) 
      (setq i 0) 
      (mapcar '(lambda (x) 
                 (mapcar '(lambda (b / box p) 
                            (setq box (xdrx_entity_box b) 
                                  p   (xdrx_line_midp (car box) (caddr box)) 
                            ) 
                            (xdrx_text_make 
                              p 
                              (itoa (setq i (1+ i))) 
                              (getvar "textsize") 
                              0. 
                            ) 
                          ) 
                         x 
                 ) 
               ) 
              (mapcar '(lambda (a) (mapcar 'cdr a)) el) 
      ) 
    ) 
  ) 
  (princ) 
)

账号		自动登录	找回密码
密码			立即注册

[求助] 这样的排序谁会呀!

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评

点评

点评

点评

点评