根据选择方式自动确定基点的选择集行列排序

st788796

1. ;;ss - pickset
   
2. ;;row --- row --- 排序方式，0 按行 1 按列，选择方式为拾取或 F 方式时无效
   
3. ;;x-oper- 行方向，'< 以SS整体包围盒的0/1连线做基线（小号在下），'> 以2/3连线做基线（小号在上）
   
4. ;;y-oper- 列方向，'< 以SS整体包围盒的0/3连线做基线（小号在左），'> 以1/2连线做基线（小号在右）
   
5. (defun XD::Pickset:TableSortbySelect (ss row x-oper y-oper / pts->dircect info el pts mod)
   
6.   (defun pts->dircect (p1 p2 / an mod)
   
7.     (setq an (angle p1 p2))
   
8.     (cond
   
9.       ((< 0. an (* pi 0.5)) ;_左下
   
10.        (setq mod 0)
    
11.       )
    
12.       ((< (* pi 0.5) an pi) ;_右下
    
13.        (setq mod 1)
    
14.       )
    
15.       ((< pi an (* pi 1.5)) ;_右上
    
16.        (setq mod 2)
    
17.       )
    
18.       (t (setq mod 3))
    
19.     ) ;_左上
    
20.     mod
    
21.   )
    
22.   (setq info (ssnamex ss 0))
    
23.   (if (member (car info) '(1 4)) ;_ Pick & f
    
24.     (setq el (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))
    
25.     (progn ;_2 w & wp ; 3 c & cp
    
26.       (setq pts (mapcar 'cadr (cdadr info)))
    
27.       (if (= (length pts) 4)
    
28. (setq mod (pts->direct (car pts) (caddr pts)))
    
29. (setq mod
    
30.         (pts->direct (car pts) (apply 'xdrx_points_centroid pts))
    
31. )
    
32.       )
    
33.       (setq el (xd::pickset:tablesort ss row  mod x-oper y-oper))
    
34.     )
    
35.   )
    
36.   el
    
37. )

;;ss - pickset<br /> ;;row --- row --- 排序方式，0 按行 1 按列，选择方式为拾取或 F 方式时无效<br /> ;;x-oper- 行方向，'< 以SS整体包围盒的0/1连线做基线（小号在下），'> 以2/3连线做基线（小号在上）<br /> ;;y-oper- 列方向，'< 以SS整体包围盒的0/3连线做基线（小号在左），'> 以1/2连线做基线（小号在右）<br /> (defun XD::Pickset:TableSortbySelect (ss row x-oper y-oper / pts->dircect info el pts mod)<br />   (defun pts->dircect (p1 p2 / an mod)<br />     (setq an (angle p1 p2))<br />     (cond<br />       ((< 0. an (* pi 0.5)) ;_左下<br />        (setq mod 0)<br />       )<br />       ((< (* pi 0.5) an pi) ;_右下<br />        (setq mod 1)<br />       )<br />       ((< pi an (* pi 1.5)) ;_右上<br />        (setq mod 2)<br />       )<br />       (t (setq mod 3))<br />     ) ;_左上<br />     mod<br />   )<br />   (setq info (ssnamex ss 0))<br />   (if (member (car info) '(1 4)) ;_ Pick & f<br />     (setq el (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss))))<br />     (progn ;_2 w & wp ; 3 c & cp<br />       (setq pts (mapcar 'cadr (cdadr info)))<br />       (if (= (length pts) 4)<br /> (setq mod (pts->direct (car pts) (caddr pts)))<br /> (setq mod<br />         (pts->direct (car pts) (apply 'xdrx_points_centroid pts))<br /> )<br />       )<br />       (setq el (xd::pickset:tablesort ss row  mod x-oper y-oper))<br />     )<br />   )<br />   el<br /> )

newer

这个和 XD::Pickset:TableSort 有什么区别？

st788796

newer 发表于 2013-9-27 18:18
这个和 XD:ickset:TableSort 有什么区别？

ssget 有 pick f w c wp cp 几种选择方式，这个就是根据选择方式自动确定基点，更智能点，比如用两点F方式选择，返回由起点到终点排序的实体表

当选择方式为 Pick 或 F 时，后面的参数无效(任意值)

st788796

经仔细分析，此函数有问题，对 W C 的点信息不过哪个方向选择始终第一点是左上点