R14中能否对列表坐标点按顺序排列

zcjhy · 发表于 2004-3-30 22:20:00

看了论坛贴子上的对坐标点进行排序的几个程序，我发现它们都是针对VLisp的，Alisp中可有类似的函数调用。如给定一个列表，如下：
(setq aa '(("MM" 50 30) ("S2" 75 45) ("M" 40 30) ("S" 25 45) ("LL" 20 30)))
如第一项中 20代表X坐标 30代表Y坐标
如何[U]先按Y坐标排序[/U]，再[U]在相同的Y坐标来对X排序[/U]，要求结果如下：
(("LL" 20 30) ("M" 40 30) ("MM" 50 30) ("S" 25 45) ("S2" 75 45))

yxp · 发表于 2004-3-30 22:33:00

R14下肯定行,不过麻烦些,我见过那个子程序,而且还有容差的功能,就是如果两个数据相差小于某个值就被认为是相等的,可以忽略不排序.如果这个值为0,就是正常的排序.
谁编出来了,麻烦共享一下,我也需要.

meflying · 发表于 2004-3-30 22:37:00

???
2楼那么长的链接地址一点都看不到？

yxp · 发表于 2004-3-30 22:38:00

meflying兄,人家是说在R14下运行的,你的帖子里有扩展函数R14如何运行啊。 .

meflying · 发表于 2004-3-30 22:40:00

1、仔细看看，哪儿有VL扩展函数，你指一个出来看看
2、判断一个程序是否能用，最好的方法是用用看，敢问你用过了吗？
3、如果用了扩展函数，已经有VL-SORT了，还需要写什么？

yxp · 发表于 2004-3-30 22:43:00

sorry,看错了.我正在调试呢.谢谢.

zcjhy · 发表于 2004-3-31 23:53:00

飞哥真是多谢你了最近帮部门写了一些对图纸加工的程序，遇到不少问题，而每次都能在这里得到解答，真有点过意不去，占用了你不少时间，再次表示感谢！没办法，因为日本的系统是用的R14，所以为了保证两地能正常联络，公司一直只能用R14，想用VBA也不行呀。
上次我提到的在R14下安装VLISP后不能运行(可以进入VLISP编辑窗口，但不能在命令行中执行语句),执行(vl-load-com)后在VLISP编辑器中提示如下：
; *** ERROR: no function definition: VL-LOAD-COM
在命令行下执行（vl-load-com）出现错误信息：
Command: (vl-load-com)
error: null function
(VL-LOAD-COM)
*Cancel*
Command: *Cancel*
为什么呢，要是R14中可以用VLISP那我就可以用更多的函数了。