表修改

XDSoft

ymcui2005 发表于 2016-9-6 12:26
做成表是为了方便处理，坐标是用来插入表头字母到加工孔位置的点

你表里面的元素 文字的 要是 字符串，才能排序。 你给的数据是符号

"F" 对正确的， F是不行的。F 是变量名。

你别把 (princ s1)贴出来， 你把  !s1  或者 (prin1 s1) 结果贴上来。

princ结果把字符串引号都去掉了，别人没法利用你提供的数据。

ymcui2005

XDSoft 发表于 2016-9-6 12:40
你表里面的元素 文字的 要是 字符串，才能排序。 你给的数据是符号

"F" 对正确的， F是不行的。F 是变 ...

((("F" "4.00" "定位孔,割,单+0.01") (10442.1 -325.073 0.0))
(("F" "4.00" "定位孔,割,单+0.01") (10451.8 -326.804 0.0))
(("F" "4.00" "定位孔,割,单+0.01") (10460.5 -328.708 0.0))
(("B" "10.00" "销钉孔,割,单+0.01") (10408.2 -344.37 0.0))
(("B" "10.00" "销钉孔,割,单+0.01") (10408.2 -330.125 0.0))
(("F" "2.00" "定位孔,割,单+0.01") (10382.1 -341.185 0.0))
(("F" "2.00" "定位孔,割,单+0.01") (10380.0 -334.262 0.0))
(("A" "8.50" "M10xP1.5螺纹孔,攻穿") (10369.1 -312.602 0.0))
(("A" "8.50" "M10xP1.5螺纹孔,攻穿") (10369.1 -382.602 0.0))
(("F" "6.00" "定位孔,割,单+0.01") (10341.2 -346.368 0.0))
(("F" "6.00" "定位孔,割,单+0.01") (10330.3 -356.714 0.0))
(("F" "6.00" "定位孔,割,单+0.01") (10308.4 -360.574 0.0)))

Lispboy

(setq s1
'(
(
(F 6.00 定位孔) (1810.72 -285.955 0.0)
(F 6.00 定位孔) (1827.85 -285.955 0.0)
(F 6.00 定位孔) (1877.35 -285.955 0.0)
(F 6.00 定位孔) (1894.48 -285.955 0.0)
(F 6.00 定位孔) (1793.74 -285.955 0.0)
)
(
(A 11.00 螺丝孔) (1805.79 -297.073 0.0)
(A 11.00 螺丝孔) (1872.6 -297.073 0.0)
)
(
(B 10.00 销钉孔) (1822.5 -297.78 0.0)
(B 10.00 销钉孔) (1836.93 -297.78 0.0)
(B 10.00 销钉孔) (1888.17 -297.78 0.0)
(B 10.00 销钉孔) (1901.46 -297.78 0.0)
)
(
(F 4.00 定位孔) (1819.23 -276.239 0.0)
(F 4.00 定位孔) (1885.85 -276.239 0.0)
)
((F 2.00 定位孔) (1817.81 -268.253 0.0))
)
)

上面是你已经得到的表？

那么
在这个基础上，你把每项的前两个字符串合并了，然后再用下 xd::list:groupbyindex , 就得到前两个一样的 表了，排序合并后， 然后循环每一个，加个计数器 ， 分开前两项后，给第一个字符加 计数器就行了。

("F6.00" 定位孔) (1810.72 -285.955 0.0)
("F6.00" 定位孔) (1827.85 -285.955 0.0)
("F4.00" 定位孔) (1885.85 -276.239 0.0)
--------

alliuyx

啥也不说了，感谢楼主分享哇！