(SortLineByXAndY)根据给定符号对图元表进行XY轴位置先后排序(如：先X轴升序，后Y...

fangmin723

AndyWang 发表于 2022-12-6 03:18
请问下，是不是不支持属性块的排序？我用的第二个函数，会提示错误: 参数类型错误: lentityp ( (8770.62 10 ...

只要是图元就支持啊，而且插入点的组码是10，就行。你这需要处理下，entget后面跟的是<图元名: 7ff4ecd3a6b0>，并不是你拾取到的(<图元名: 7ff4ecd3a6b0> (8770.62 10805.2 0.0))，你使用(car (entsel))后，在传入我的函数中

AndyWang

fangmin723 发表于 2022-12-6 07:43
只要是图元就支持啊，而且插入点的组码是10，就行。你这需要处理下，entget后面跟的是，并不是你拾取到的(  ...

经您指点，可以用了。我想更进一步改成按Y轴坐标分组的函数，您麻烦您指点下吗

fangmin723

AndyWang 发表于 2022-12-6 14:39
经您指点，可以用了。我想更进一步改成按Y轴坐标分组的函数，您麻烦您指点下吗

来个图文示例

AndyWang

fangmin723 发表于 2022-12-7 07:47
来个图文示例

大概写下意思，上面说错了，应该是以X坐标分组
0（<图元名: 1><图元名: 3><图元名: 4>）----X=102.0，Y随意
1（<图元名: 2><图元名: 5>）----X=105.0，Y随意
2（<图元名: 6><图元名: 7>）----X=108.0，Y随意
3（<图元名: 8><图元名: 9>）----X=112.0，Y随意

fangmin723

AndyWang 发表于 2022-12-7 19:00
大概写下意思，上面说错了，应该是以X坐标分组
0（）----X=102.0，Y随意
1（）----X=105.0，Y随意

(SortLineByXAndY lst < < t)

AndyWang

fangmin723 发表于 2022-12-8 07:48
(SortLineByXAndY lst < < t)

现在排序出来是这样的




我想要的效果是如下

[0] (<图元名: 7ff48e117300> <图元名: 7ff48e117420> <图元名: 7ff48e117390>)
[1] (<图元名: 7ff48e125aa0> <图元名: 7ff48e125bc0>)
[2] (<图元名: 7ff48e125b30> <图元名: 7ff48e12d400>)
。。。


最终的list是个以图元为元素的表中表。

这个排序函数已经很强大了。要做我这个功能，可能得部分重编吧。

fangmin723

AndyWang 发表于 2022-12-8 17:31
现在排序出来是这样的

修改部分内容就行了

1. ;;说明:根据给定符号对图元表进行XY轴位置先后排序(如：先X轴升序，后Y轴降序)
   
2. ;;参数:lst:图元表
   
3. ;;参数:XSymbol:X轴升降序符号：<、>
   
4. ;;参数:YSymbol:Y轴升降序符号：<、>
   
5. ;;参数:isxfirst:是否先对X轴排序
   
6. ;;返回:排序后的图元表！(setq hlst (SortLineByXAndY lshlst < > nil))
   
7. (defun SortLineByXAndY(lst XSymbol YSymbol isxfirst / hvlst lslst rowcol symbol ud xory xy)
   
8.   (if isxfirst
   
9.     (setq
   
10.       XOrY cadr;;设置第一次依据排序坐标和第二次依据X轴位置比对
    
11.       ud caddr;;设置第二次根据Y坐标进行排序
    
12.       Symbol YSymbol;;设置第二次排序的升降序
    
13.       lslst (vl-sort lst (function (lambda (x y) (XSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))));;先对表进行X轴排序
    
14.     )
    
15.     (setq
    
16.       XOrY caddr;;设置第一次依据排序坐标和第二次依据Y轴位置比对
    
17.       ud cadr;;设置第二次根据X坐标进行排序
    
18.       Symbol XSymbol;;设置第二次排序的升降序
    
19.       lslst (vl-sort lst (function (lambda (x y) (YSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))))
    
20.     )
    
21.   )
    
22.   (setq rowcol nil xy (XOrY (assoc 10 (entget (nth 0 lslst)))) hvlst nil)
    
23.   (foreach x lslst
    
24.     (if (= xy (XOrY (assoc 10 (entget x))))
    
25.       (setq rowcol (cons x rowcol))
    
26.       (setq
    
27.         hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst)
    
28.         rowcol nil rowcol (cons x rowcol) xy (XOrY (assoc 10 (entget x)))
    
29.       )
    
30.     )
    
31.   )
    
32.   (setq hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst))
    
33.   (reverse hvlst)
    
34. )
    
35. 
    

;;说明:根据给定符号对图元表进行XY轴位置先后排序(如：先X轴升序，后Y轴降序)<br /> ;;参数:lst:图元表<br /> ;;参数:XSymbol:X轴升降序符号：<、><br /> ;;参数:YSymbol:Y轴升降序符号：<、><br /> ;;参数:isxfirst:是否先对X轴排序<br /> ;;返回:排序后的图元表！(setq hlst (SortLineByXAndY lshlst < > nil))<br /> (defun SortLineByXAndY(lst XSymbol YSymbol isxfirst / hvlst lslst rowcol symbol ud xory xy)<br />   (if isxfirst<br />     (setq<br />       XOrY cadr;;设置第一次依据排序坐标和第二次依据X轴位置比对<br />       ud caddr;;设置第二次根据Y坐标进行排序<br />       Symbol YSymbol;;设置第二次排序的升降序<br />       lslst (vl-sort lst (function (lambda (x y) (XSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))));;先对表进行X轴排序<br />     )<br />     (setq<br />       XOrY caddr;;设置第一次依据排序坐标和第二次依据Y轴位置比对<br />       ud cadr;;设置第二次根据X坐标进行排序<br />       Symbol XSymbol;;设置第二次排序的升降序<br />       lslst (vl-sort lst (function (lambda (x y) (YSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))))<br />     )<br />   )<br />   (setq rowcol nil xy (XOrY (assoc 10 (entget (nth 0 lslst)))) hvlst nil)<br />   (foreach x lslst<br />     (if (= xy (XOrY (assoc 10 (entget x))))<br />       (setq rowcol (cons x rowcol))<br />       (setq<br />         hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst)<br />         rowcol nil rowcol (cons x rowcol) xy (XOrY (assoc 10 (entget x)))<br />       )<br />     )<br />   )<br />   (setq hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst))<br />   (reverse hvlst)<br /> )<br /> <br />

AndyWang

fangmin723 发表于 2022-12-9 07:24
修改部分内容就行了

按新修改的好像也不行。



需要的效果如下：

fangmin723

AndyWang 发表于 2022-12-9 19:53
按新修改的好像也不行。

我这边没有任何问题，你自己在好好研究研究吧

AndyWang

fangmin723 发表于 2022-12-10 07:56
我这边没有任何问题，你自己在好好研究研究吧

那我再研究研究看看。