[求助]：lsp里，怎样把一个表里的实数从小到大重新排列？

无忧

lsp里，怎样把一个表里的实数从小到大重新排列？这个表的元素数目不一定的
比如一个表 (600.0 300.0 500.0 400.0 )
变成(300.0 400.0 500.0 600.0)

XDSoft

最初由 无忧 发布
[B]lsp里，怎样把一个表里的实数从小到大重新排列？这个表的元素数目不一定的
比如一个表 (600.0 300.0 500.0 400.0 )
变成(300.0 400.0 500.0 600.0) [/B]

XDRX_API相关函数：

1. 
   
2. 
   
3. 20.xdrx_realsort1
   
4. 
   
5. 功能：对给定的一组整(实数)从小到大排升序,省略重复项。
   
6. 
   
7. 调用格式：(xdrx_realsort1 <数1> <数2> ... [数n])
   
8. 
   
9. 返回值：返回排序后的表。
   
10. 
    
11. 示例：a='(3 4.6 56.0 2.1 4.6)
    
12.       (apply 'xdrx_realsort1 a)
    
13.       返回：(2.1 3.0 4.6 56.0)
    
14. 
    
15. 21.xdrx_realsort2
    
16. 
    
17. 功能：对给定的一组整(实数)从小到大排升序,不省略重复项。
    
18. 
    
19. 调用格式：(xdrx_realsort2 <数1> <数2> ... [数n])
    
20. 
    
21. 返回值：返回排序后的表。
    
22. 
    
23. 示例：a='(3 4.6 56.0 2.1 4.6)
    
24.       (apply 'xdrx_realsort1 a)
    
25.       返回：(2.1 3.0 4.6 4.6 56.0)
    
26. 
    
27. 22.xdrx_rlistsort1
    
28. 
    
29. 功能：根据关联表的索引值，把关联表从小到大排升序,省略重复项。
    
30. 
    
31. 调用格式：(xdrx_rlistsort1 <关联表项1> <关联表项1> ... [关联表项n])
    
32. 
    
33. 返回值：返回排序后的表。
    
34. 
    
35. 示例：a='((34.0 "a")(2.0 (2 3))(34 ("a" "b")))
    
36.       (apply 'xdrx_rlistsort2 a)
    
37.       返回值：((2.0 (2.0 3.0)) (34 ("a" "b")))
    
38. 
    
39. 23.xdrx_rlistsort2
    
40. 
    
41. 功能：根据关联表的索引值，把关联表从小到大排升序,不省略重复项。
    
42. 
    
43. 调用格式：(xdrx_rlistsort2 <关联表项1> <关联表项1> ... [关联表项n])
    
44. 
    
45. 返回值：返回排序后的表。
    
46. 
    
47. 示例：a='((34.0 "a")(2.0 (2 3))(34 ("a" "b")))
    
48.       (apply 'xdrx_rlistsort2 a)
    
49.       返回值：((2.0 (2.0 3.0)) (34 ("a" "b")) (34.0 "a"))
    
50. 
    
51. 24. xdrx_rlistdel1
    
52. 
    
53. 功能：根据关联表的索引值，把关联表中和给定的索引值相同的项删除。不省略重复项。凡是相等的都删除。
    
54. 
    
55. 调用格式：(xdrx_rlistdel1 <索引值> <关联表项1> <关联表项1> ... [关联表项n])
    
56. 
    
57. 返回值：返回表。
    
58. 
    
59. 示例：将关联表a='((3 "a" "b")(5 ("a" "c"))(3 (2 3)))中索引值为3的关联表项删除
    
60.       (apply 'xdrx_rlistdel1 (cons 3 a))
    
61.       返回值为：'((5 ("a" "c")))
    
62. 
    
63. 25. xdrx_rlistdel2
    
64. 
    
65. 功能：根据关联表的索引值，把关联表中和给定的索引值相同的项删除。省略重复项。只删除第一个相等的关联表项。
    
66. 
    
67. 调用格式：(xdrx_rlistdel2 <索引值> <关联表项1> <关联表项1> ... [关联表项n])
    
68. 
    
69. 返回值：返回表。
    
70. 
    
71. 示例：将关联表a='((3 "a" "b")(5 ("a" "c"))(3 (2 3)))中索引值为3的关联表项删除
    
72.       (apply 'xdrx_rlistdel1 (cons 3 a))
    
73.       返回值为：'((5 ("a" "c"))(3 (2 3)))
    
74. 
    

复制代码

无忧

谢谢xd，请删掉一个我的一个主题。

LUCAS

autocad 2000以上
(vl-sort '(600.0 300.0 500.0 400.0 ) '<)

aeo

(defun range (a / b x x1)
  (while (setq x (car a))
    (setq x1 x
          a (cdr a))
    (foreach y a (if (> y x)
                   (setq x y)
                 )
    )
    (setq a (subst x1 x a))
    (if (or (< x (car b)) (not b))
      (setq b (cons x b))
    )
  )
  b
)
(defun range1 (a / b x x1)
  (while (setq x (car a))
    (setq x1 x
          a (cdr a))
    (foreach y a (if (> (car y) (car x))
                   (setq x y)
                 )
    )
    (setq a (subst x1 x a))
    (if (or (< (car x) (caar b)) (not b))
      (setq b (cons x b))
    )
  )
  b
)

前生

还是(vl-sort '(600.0 300.0 500.0 400.0 ) '<)简洁一些

John

最初由 前生 发布
[B]还是(vl-sort '(600.0 300.0 500.0 400.0 ) '<)简洁一些 [/B]

vl-sort 是visuallisp函数，在r14下如果没有加载vlisp库是不能使用的，就象要使用XD的函数必须加载XDapi一样。
排序有标准算法，无论哪个函数，都是基于算法的移植，天正程序体现了算法的过程，比较适合想深入了解API的朋友。