超强的批量的“融合线段”工具

small2013520

支持晓东~~~~~~~~

chbddzx12

;|
基于行、列的（支持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
  )
)

pp521yy

谢谢老大的新功能,试试

tangsz2006

这个有实际用处

tangsz2006

加载了所有需要加载的api，lsp再加载这个还是用不了？

qing412808

谢谢分享，，谢谢分享，，

grs432

谢谢了，，用的上呀！！

晨曦的明天

kankan,xiexie le

踩单车的牛尾巴

这个好   还是比较有用的

252744373

但不知这种不同角度的行不行

liulangqigai

这个可以有,回复看看先！！...

zxdopiu

正需要这样的

zhizhen2008

超强的批量的“融合线段”工具太棒啦

819534890

看起来很不错，学习

関吣

{:soso_e120:}谢谢楼主这个融合的功能哈，用于梁线连接爽