(XD::Pickset:TableSortAtEcs) 基于行列的基于UCS的实体排序函数

XDSoft · 发表于 2013-10-25 11:19:53

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

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

×

;|
基于行、列的（支持UCS)的实体任意排序函数
参数：
ss ---- 选择集
xAxis---实体名 or X轴向量
row --- 排序方式，0 按行 1 按列
basePt- 实体的基点（包围盒4个角点， 0- 左下 1-右下 2-右上 3-左上）
x-oper- 行方向，'< 以SS整体包围盒的0/1连线做基线（小号在下），'> 以2/3连线做基线（小号在上）
y-oper- 列方向，'< 以SS整体包围盒的0/3连线做基线（小号在左），'> 以1/2连线做基线（小号在右）
|;
(defun XD::Pickset:TableSortAtEcs (ss xAxis row basePt x-oper y-oper / baseline baseline1 box ents ents1 oper p1 p2 p3 x x1 x2)
(defun _tt (ents basePt baseline oper / ents1 x x1 x2)
(setq ents1 (mapcar
'(lambda (x)
(cons x (XD::Entity:BoxAtEcs x xAxis))
)
ents
)
)
(setq ents1 (mapcar
'(lambda (x)
(cons (abs (apply
'XD::Pnt:Dist2Line
(cons (nth basePt (cdr x)) baseline)
)
) (list (car x))
)
)
ents1
)
)
(setq ents1 (XD::List:MergeItemByNumKey ents1))
(setq ents1 (mapcar
'cdr
(vl-sort ents1 '(lambda (x1 x2)
(eval (list oper (car x1) (car x2)))
)
)
)
)
)
(if (= (type ss) 'PICKSET)
(setq ents (xdrx_pickset->ents ss))
(setq ents ss)
)
(setq ss (XD::Entity->Pickset ents))
(setq box (XD::Entity:BoxAtEcs ss xAxis)
p1 (car box)
p2 (cadr box)
p3 (last box)
)
(if (= row 0)
(progn
(setq baseline (list p1 p2))
(setq baseline1 (list p1 p3))
)
(progn
(setq baseline (list p1 p3))
(setq baseline1 (list p1 p2))
)
)
(setq ents1 (_tt ents basePt baseline x-oper))
(setq ents1 (mapcar
'(lambda (x)
(_tt x basePt baseline1 y-oper)
)
ents1
)
)
(mapcar
'(lambda (x)
(apply
'append
x
)
)
ents1
)
)

;| 
基于行、列的（支持UCS)的实体任意排序函数 
参数： 
 
ss ---- 选择集 
xAxis---实体名 or  X轴向量 
row --- 排序方式，0 按行 1 按列 
basePt- 实体的基点（包围盒4个角点， 0- 左下 1-右下 2-右上 3-左上） 
x-oper- 行方向，'< 以SS整体包围盒的0/1连线做基线（小号在下），'> 以2/3连线做基线（小号在上） 
y-oper- 列方向，'< 以SS整体包围盒的0/3连线做基线（小号在左），'> 以1/2连线做基线（小号在右） 
|; 
(defun XD::Pickset:TableSortAtEcs (ss xAxis row basePt x-oper y-oper / baseline baseline1 box ents ents1 oper p1 p2 p3 x x1 x2) 
  (defun _tt (ents basePt baseline oper / ents1 x x1 x2) 
    (setq ents1 (mapcar 
                  '(lambda (x) 
                     (cons x (XD::Entity:BoxAtEcs x xAxis)) 
                   ) 
                  ents 
                ) 
    ) 
    (setq ents1 (mapcar 
                  '(lambda (x) 
                     (cons (abs (apply 
                                  'XD::Pnt:Dist2Line 
                                  (cons (nth basePt (cdr x)) baseline) 
                                ) 
                           ) (list (car x)) 
                     ) 
                   ) 
                  ents1 
                ) 
    ) 
    (setq ents1 (XD::List:MergeItemByNumKey ents1)) 
    (setq ents1 (mapcar 
                  'cdr 
                  (vl-sort ents1 '(lambda (x1 x2) 
                                    (eval (list oper (car x1) (car x2))) 
                                  ) 
                  ) 
                ) 
    ) 
  ) 
  (if (= (type ss) 'PICKSET) 
     (setq ents (xdrx_pickset->ents ss)) 
     (setq ents ss) 
  ) 
  (setq ss (XD::Entity->Pickset ents)) 
  (setq box (XD::Entity:BoxAtEcs ss xAxis) 
        p1 (car box) 
        p2 (cadr box) 
        p3 (last box) 
  ) 
  (if (= row 0) 
    (progn 
      (setq baseline (list p1 p2)) 
      (setq baseline1 (list p1 p3)) 
    ) 
    (progn 
      (setq baseline (list p1 p3)) 
      (setq baseline1 (list p1 p2)) 
    ) 
  ) 
  (setq ents1 (_tt ents basePt baseline x-oper)) 
  (setq ents1 (mapcar 
                '(lambda (x) 
                   (_tt x basePt baseline1 y-oper) 
                 ) 
                ents1 
              ) 
  ) 
  (mapcar 
    '(lambda (x) 
       (apply 
         'append 
         x 
       ) 
     ) 
    ents1 
  ) 
)

lgb711010 · 发表于 2014-5-18 21:16:50

这个功能很好用，有时需要！

xinyeyu · 发表于 2016-2-20 12:29:10

很好用，学习了

14702470 · 发表于 2016-4-3 15:10:35

很好用谢谢了

dyjwyqz5221 · 发表于 2018-4-3 09:59:43

学习学习学习

dyjwyqz5221 · 发表于 2018-4-8 17:28:18

怎么用？X轴向量指的啥？举例说明最好

shqvc · 发表于 2018-9-21 10:47:43

这个功能太好了很需要

m0033m · 发表于 2019-4-22 16:01:50

不错，有用,谢谢分享

jevil · 发表于 2023-4-7 14:52:11

想问问怎么加载函数，先试试

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

[选择集] (XD::Pickset:TableSortAtEcs) 基于行列的基于UCS的实体排序函数

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

相关帖子

浏览过的版块