本帖最后由 fangmin723 于 2022-12-6 07:47 编辑
AndyWang 发表于 2022-12-6 03:18
请问下，是不是不支持属性块的排序？我用的第二个函数，会提示错误: 参数类型错误: lentityp ( (8770.62 10 ...只要是图元就支持啊，而且插入点的组码是10，就行。你这需要处理下，entget后面跟的是<图元名: 7ff4ecd3a6b0>，并不是你拾取到的(<图元名: 7ff4ecd3a6b0> (8770.62 10805.2 0.0))，你使用(car (entsel))后，在传入我的函数中
fangmin723 发表于 2022-12-6 07:43
只要是图元就支持啊，而且插入点的组码是10，就行。你这需要处理下，entget后面跟的是，并不是你拾取到的(...
经您指点，可以用了。我想更进一步改成按Y轴坐标分组的函数，您麻烦您指点下吗
AndyWang 发表于 2022-12-6 14:39
经您指点，可以用了。我想更进一步改成按Y轴坐标分组的函数，您麻烦您指点下吗
来个图文示例
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 于 2022-12-8 07:53 编辑
AndyWang 发表于 2022-12-7 19:00
大概写下意思，上面说错了，应该是以X坐标分组
0（）----X=102.0，Y随意
1（）----X=105.0，Y随意
(SortLineByXAndY lst < < t)
fangmin723 发表于 2022-12-8 07:48
(SortLineByXAndY lst < < t)
现在排序出来是这样的
我想要的效果是如下
(<图元名: 7ff48e117300> <图元名: 7ff48e117420> <图元名: 7ff48e117390>)
(<图元名: 7ff48e125aa0> <图元名: 7ff48e125bc0>)
(<图元名: 7ff48e125b30> <图元名: 7ff48e12d400>)
。。。
最终的list是个以图元为元素的表中表。
这个排序函数已经很强大了。要做我这个功能，可能得部分重编吧。
本帖最后由 fangmin723 于 2022-12-9 07:32 编辑
AndyWang 发表于 2022-12-8 17:31
现在排序出来是这样的
修改部分内容就行了
;;说明:根据给定符号对图元表进行XY轴位置先后排序(如：先X轴升序，后Y轴降序)
;;参数:lst:图元表
;;参数:XSymbol:X轴升降序符号：<、>
;;参数:YSymbol:Y轴升降序符号：<、>
;;参数:isxfirst:是否先对X轴排序
;;返回:排序后的图元表！(setq hlst (SortLineByXAndY lshlst < > nil))
(defun SortLineByXAndY(lst XSymbol YSymbol isxfirst / hvlst lslst rowcol symbol ud xory xy)
(if isxfirst
(setq
XOrY cadr;;设置第一次依据排序坐标和第二次依据X轴位置比对
ud caddr;;设置第二次根据Y坐标进行排序
Symbol YSymbol;;设置第二次排序的升降序
lslst (vl-sort lst (function (lambda (x y) (XSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))));;先对表进行X轴排序
)
(setq
XOrY caddr;;设置第一次依据排序坐标和第二次依据Y轴位置比对
ud cadr;;设置第二次根据X坐标进行排序
Symbol XSymbol;;设置第二次排序的升降序
lslst (vl-sort lst (function (lambda (x y) (YSymbol (XOrY (assoc 10 (entget x))) (XOrY (assoc 10 (entget y)))))))
)
)
(setq rowcol nil xy (XOrY (assoc 10 (entget (nth 0 lslst)))) hvlst nil)
(foreach x lslst
(if (= xy (XOrY (assoc 10 (entget x))))
(setq rowcol (cons x rowcol))
(setq
hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst)
rowcol nil rowcol (cons x rowcol) xy (XOrY (assoc 10 (entget x)))
)
)
)
(setq hvlst (cons (vl-sort rowcol (function (lambda (x y) (Symbol (ud (assoc 10 (entget x))) (ud (assoc 10 (entget y))))))) hvlst))
(reverse hvlst)
)
fangmin723 发表于 2022-12-9 07:24
修改部分内容就行了
按新修改的好像也不行。
需要的效果如下：
本帖最后由 fangmin723 于 2022-12-10 08:00 编辑
AndyWang 发表于 2022-12-9 19:53
按新修改的好像也不行。
我这边没有任何问题，你自己在好好研究研究吧
fangmin723 发表于 2022-12-10 07:56
我这边没有任何问题，你自己在好好研究研究吧
那我再研究研究看看。