表修改

ymcui2005 · 发表于 2016-9-3 21:56:59

要求得出的结果(setq s1 '( ((F1 2.00 定位孔) (1817.81 -268.253 0.0)) ( (F2 4.00 定位孔) (1819.23 -276.239 0.0) (F2 4.00 定位孔) (1885.85 -276.239 0.0) ) ( (F3 6.00 定位孔) (1810.72 -285.955 0.0) (F3 6.00 定位孔) (1827.85 -285.955 0.0) (F3 6.00 定位孔) (1877.35 -285.955 0.0) (F3 6.00 定位孔) (1894.48 -285.955 0.0) (F3 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) ) )

ymcui2005 · 发表于 2016-9-5 19:58:21

newer 发表于 2016-9-3 17:20
这只是到你最后结果的中间一步而已，已经得到排好序的表了，然后你接着再按你的要求继续处理。

命令: ...

请教如何排序？第按字母ABC排好后再从字母后面数字从小到大再排好。谢谢

newer · 发表于 2016-9-5 20:31:22

ymcui2005 发表于 2016-9-5 19:58
请教如何排序？第按字母ABC排好后再从字母后面数字从小到大再排好。谢谢

那个函数不是告诉你了吗，XD::LIST:GroupByIndex , 函数源码在 “开源函数库论坛里面” 去找找。
或者你下载晓东通用LISP函数库，加载，这个函数在里面。

ymcui2005 · 发表于 2016-9-6 08:25:08

newer 发表于 2016-9-5 20:31
那个函数不是告诉你了吗，XD::LIST:GroupByIndex , 函数源码在 “开源函数库论坛里面” 去找找。
或者你 ...

(setq s1 '(
((F 6.00 定位孔,割,单+0.01) (1810.72 -285.955 0.0))
((A 11.00 螺丝孔,钻穿) (1805.79 -297.073 0.0))
((B 10.00 销钉孔,割,单+0.01) (1822.5 -297.78 0.0))
((F 6.00 定位孔,割,单+0.01) (1827.85 -285.955 0.0))
((B 10.00 销钉孔,割,单+0.01) (1836.93 -297.78 0.0))
((F 4.00 定位孔,割,单+0.01) (1819.23 -276.239 0.0))
((F 6.00 定位孔,割,单+0.01) (1877.35 -285.955 0.0))
((A 11.00 螺丝孔,钻穿) (1872.6 -297.073 0.0))
((B 10.00 销钉孔,割,单+0.01) (1888.17 -297.78 0.0))
((F 6.00 定位孔,割,单+0.01) (1894.48 -285.955 0.0))
((B 10.00 销钉孔,割,单+0.01) (1901.46 -297.78 0.0))
((F 4.00 定位孔,割,单+0.01) (1885.85 -276.239 0.0))
((F 2.00 定位孔,割,单+0.01) (1817.81 -268.253 0.0))
((F 6.00 定位孔,割,单+0.01) (1793.74 -285.955 0.0))
)
)
(PRINC (xd::list:groupbyindex s1 0.0001))

我得出的数是下面这样的
(((F 2.0 定位孔,割,单+0) (1817.81 -268.253 0.0)) ((F 4.0
定位孔,割,单+0) nil (1819.23 -276.239 0.0)) ((B 10.0 销钉孔,割,单+0) nil nil
nil (1822.5 -297.78 0.0)) ((A 11.0 螺丝孔,钻穿) nil (1805.79 -297.073 0.0)) ((F
6.0 定位孔,割,单+0) nil nil nil nil (1810.72 -285.955 0.0)))

newer · 发表于 2016-9-6 08:37:11

ymcui2005 发表于 2016-9-6 08:25
(setq s1 '(
((F 6.00 定位孔,割,单+0.01) (1810.72 -285.955 0.0))
((A 11.00 螺丝孔,钻穿) (1805. ...

你是用的开源函数库里面的源码还是加载的晓东通用函数库？
你试试加载晓东通用LISP函数库，然后用这个函数，看看结果是什么？

ymcui2005 · 发表于 2016-9-6 09:31:52

晓东通用LISP函数库Build 2016.08.31加载完毕...; 错误: no function definition:
xdrx_matrix_identity
命令: _lspload (((F 2.0 定位孔,割,单+0) (1817.81 -268.253 0.0)) ((F 4.0
定位孔,割,单+0) nil (1819.23 -276.239 0.0)) ((B 10.0 销钉孔,割,单+0) nil nil
nil (1822.5 -297.78 0.0)) ((A 11.0 螺丝孔,钻穿) nil (1805.79 -297.073 0.0)) ((F
6.0 定位孔,割,单+0) nil nil nil nil (1810.72 -285.955 0.0)))

ymcui2005 · 发表于 2016-9-6 09:57:49

newer 发表于 2016-9-6 08:37
你是用的开源函数库里面的源码还是加载的晓东通用函数库？
你试试加载晓东通用LISP函数库，然 ...

效果是一样的.

newer · 发表于 2016-9-6 10:14:06

ymcui2005 发表于 2016-9-6 09:57
效果是一样的.

你的数据不是字符串？

命令: !s1
(((F 6.0 ,割,单+0) (1810.72 -285.955 0.0)) ((A 11.0 ,钻穿) (1805.79 -297.073 0.0))
((B 10.0 ,割,单+0) (1822.5 -297.78 0.0)) ((F 6.0 ,割,单+0) (1827.85 -285.955 0.0))
((B 10.0 ,割,单+0) (1836.93 -297.78 0.0)) ((F 4.0 ,割,单+0) (1819.23 -276.239 0.0))
((F 6.0 ,割,单+0) (1877.35 -285.955 0.0)) ((A 11.0 ,钻穿) (1872.6 -297.073 0.0))
((B 10.0 ,割,单+0) (1888.17 -297.78 0.0)) ((F 6.0 ,割,单+0) (1894.48 -285.955 0.0))
((B 10.0 ,割,单+0) (1901.46 -297.78 0.0)) ((F 4.0 ,割,单+0) (1885.85 -276.239 0.0))
((F 2.0 ,割,单+0) (1817.81 -268.253 0.0)) ((F 6.0 ,割,单+0) (1793.74 -285.955 0.0)))

不是 “F" "A" ..................... ?

ymcui2005 · 发表于 2016-9-6 10:36:50

newer 发表于 2016-9-6 10:14
你的数据不是字符串？

命令: !s1

这种的可以:((F 2.0 ,割,单+0) (1817.81 -268.253 0.0)) ((F 6.0 ,割,单+0) (1793.74 -285.955 0.0)))
下面带小数点位数的不行:((F 2.0 ,割,单+0.01) (1817.81 -268.253 0.0)) ((F 6.0 ,割,单+0) (1793.74 -285.955 0.0)))

newer · 发表于 2016-9-6 10:54:06

ymcui2005 发表于 2016-9-6 10:36
这种的可以:((F 2.0 ,割,单+0) (1817.81 -268.253 0.0)) ((F 6.0 ,割,单+0) (1793.74 -285.955 0.0)))
...

你把你的数据里面

((F 2.0 ,割,单+0)........

F -----> "F"

割 -----> "割"

单+0 ----> "单+0"

都转换好，再用xd::list:groupbyindex

newer · 发表于 2016-9-6 11:00:24

ymcui2005 发表于 2016-9-6 10:36
这种的可以:((F 2.0 ,割,单+0) (1817.81 -268.253 0.0)) ((F 6.0 ,割,单+0) (1793.74 -285.955 0.0)))
...

你的准备数据里面

(F 6.00 定位孔,割,单+0.01)

这样写是什么意思？定位孔,割,单+0.01 在表里面，这代表什么？表里面的元素要是LISP能处理的类型。你这样写他们只是一个符号。

不是这样("F" "6.00" ”定位孔" "割" "单+0.01") ?

ymcui2005 · 发表于 2016-9-6 12:14:59

这个表实际是样插入到CAD内面的F6.00定位孔，割，单+0.01 做成表就是为了排例好顺序

ymcui2005 · 发表于 2016-9-6 12:16:05

newer 发表于 2016-9-6 11:00
你的准备数据里面

(F 6.00 定位孔,割,单+0.01)

就是一个加工说明。

ymcui2005 · 发表于 2016-9-6 12:17:13

加工明细

ymcui2005 · 发表于 2016-9-6 12:26:32

做成表是为了方便处理，坐标是用来插入表头字母到加工孔位置的点

账号		自动登录	找回密码
密码			立即注册

[编程申请] 表修改

点评

点评

点评

点评

点评

点评

点评

点评

点评