[求助]：对txt文本里的座标重新排序

kevinchan · 发表于 2008-5-6 20:49:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

在TXT文本中有很多这样的座标数据。
15.5990,5.4574
14.2639,6.8826
12.5492,8.4386
11.6068,6.7388
12.3398,5.8627
14.2246,6.0196
15.7429,6.7127
16.2796,7.9156
14.3817,7.7587
12.9943,7.2357

我想按照X或者Y值的大小重新排列，在LISP里可以做到了么？

zml84 · 发表于 2008-5-6 21:36:19

<center><h1>通用函数选择集按照给定组码排序.LSP</h1></center>

<hr /><pre>;;; 通用函数选择集按照给定的组码值进行排序
;;;
;|;;参数说明：SE ----要排序的选择集 
 DXF ----排序依据的组码号 
 INT ----如果组码值为一个表，则INT指出使用第几个；否则nil 
 FUZZ----允许偏差；若无为nil 
 K ----T表示从大到小，nil表示从小到大 
 返回值：排序后的选择集 
 示例：(SORT-SE SS 10 0 5.0 T ) 表示按照10组码的X坐标值进行排序，允许偏差值为5.0，顺序为从大到小
 (SORT-SE SS 10 1 3.0 NIL) 表示按照10组码的Y坐标值进行排序，允许偏差值为3.0，顺序为从小到大
 (SORT-SE SS 8 NIL NIL NIL) 表示按照8组码值（图层名称）进行排序，顺序为从小到大 
|;

源码见：http://zml84.blog.sohu.com/64213673.html

kevinchan · 发表于 2008-5-6 22:03:01

不错。可我要将选择集中的圆的座标数据按照排列从小到大输出到TXT文本中，应该怎么操作呢？

绿豆稀饭 · 发表于 2008-5-9 00:55:47

希望解决谢谢

kevinchan · 发表于 2008-5-24 09:30:02

继续等待，呵呵

hcjtjjgk · 发表于 2008-6-21 09:42:58

学习一下。。。

urljit · 发表于 2008-6-22 20:54:24

上传一个文本文件作个例子吧

cqnj023 · 发表于 2008-6-23 08:37:37

读出__排序____回写

liyl123 · 发表于 2008-6-24 18:45:31

将你的坐标数据赋给一个表然后用下式即可完成排序
下例是对Y坐标排序,(car 可对X坐标排序)
(vl-sort '((3 5 2) (2 2 2) (4 3 2))
(function (lambda (e1 e2)
(< (cadr e1) (cadr e2)) ) ) )
排序结果 ((2 2 2) (4 3 2) (3 5 2))

用(acad_strlsort "list表")也能完成

zooloo · 发表于 2008-6-24 20:57:13

不知道要做什么，说得更具体些。

marchwang88 · 发表于 2008-6-25 23:06:31

先读到内存中,排序,再写回去

寒光四射 · 发表于 2008-6-26 14:27:01

大家方法都不错
学习

wangxj2002 · 发表于 2008-7-2 16:26:29

非常希望高手解决！！

zooloo · 发表于 2008-7-11 09:04:51

源码的.

kevinchan · 发表于 2008-7-14 10:46:52

多谢，但附件不能下载。能不能发mail给我，ks_by@126.com。谢谢！

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

[求助] [求助]：对txt文本里的座标重新排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子