(XD::List:GroupByIndex)按索引对表进行分组

eachy

守仁格竹GM 发表于 2013-11-9 09:37
运行效率很高

多谢指出Bug，再次更新，去除冗余语句

守仁格竹GM

:lol:lol终于完善了 现在暂时挑不出问题了。 收藏了

守仁格竹GM

这么好的函数 一定得顶啊

q3_2006

是不是扩展到能识别颜色号.....(rtos (cdr (assoc 62 (entget x)))) 经常忘记...花半天找错...{:soso_e127:}

q3_2006

E大....STR索引....不能忽略大小写呀....POINT...point...不相等.....

q3_2006

早上起来细看了函数....似乎不太容易实现这个功能,只能表转成统一大小写再来处理....{:soso_e110:}

eachy

q3_2006 发表于 2014-1-10 06:44
早上起来细看了函数....似乎不太容易实现这个功能,只能表转成统一大小写再来处理....

_$ (XD::List:GroupByIndex '(("A" 1) ("a" 1) ("A1" 3) ("b" 1) ("B" 1) ("B" 2) ("A1" 1)) 0)
(("b" 1) ("a" 1) ("B" 2 1) ("A1" 1 3) ("A" 1))
_$

_$ (XD::List:GroupByIndex '(("A" 1) ("a" 1)("POINT" 232 343) ("A1" 3) ("point" 123) ("b" 1) ("B" 1) ("B" 2) ("A1" 1) ("POINT" 1 2 )) 0)
(("point" 123) ("b" 1) ("a" 1) ("POINT" 1 2 232 343) ("B" 2 1) ("A1" 1 3) ("A" 1))
_$

贴上你的测试数据

q3_2006

eachy 发表于 2014-1-10 07:52
_$ (XD:ist:GroupByIndex '(("A" 1) ("a" 1) ("A1" 3) ("b" 1) ("B" 1) ("B" 2) ("A1" 1)) 0)
(("b" 1 ...

是我的想法有问题....大小写问题应该在输入lst时就统一,让分组函数来识别没什么道理........{:soso_e110:}

q3_2006

eachy 发表于 2014-1-10 07:52
_$ (XD:ist:GroupByIndex '(("A" 1) ("a" 1) ("A1" 3) ("b" 1) ("B" 1) ("B" 2) ("A1" 1)) 0)
(("b" 1 ...

(("A" 1) ("a" 1)("POINT" 232 343) ("A1" 3) ("point" 123) ("b" 1) ("B" 1) ("B" 2) ("A1" 1) ("POINT" 1 2 ))
->(("POINT" 1 2 123 232 343) ("B" 1 1 2) ("A" 1 1) ("A1" 1 3) )

这是我想返回的值...已经解决了,分组前统一成大写就OK了!

st788796

q3_2006 发表于 2014-1-10 09:20
(("A" 1) ("a" 1)("POINT" 232 343) ("A1" 3) ("point" 123) ("b" 1) ("B" 1) ("B" 2) ("A1" 1) ("POINT" ...

函数尽量单纯才通用，数据处理用户完成，这个要求对一般用户可能高些，但也只有这样才能体现函数价值

q3_2006

st788796 发表于 2014-1-10 09:36
函数尽量单纯才通用，数据处理用户完成，这个要求对一般用户可能高些，但也只有这样才能体现函数价值

9494...还不是因为懒....{:soso_e110:}

eachy

更新 2013.03.15
修正 INT 索引时的 BUG

eachy

20141004 更新

jyzas

支持楼主:)

st788796

整数时有 bug
_1_$ (xd::list:groupbyindex '((1. 2) (2. 3) (9 0) (10 1)(11 2)) 1.1)
((11 2 1 0) (2.0 3 2))