请教高手：排序问题

jsygsl · 发表于 2021-4-16 22:05:26

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

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

×

(princ "\n gao_lst2=") (princ gao_lst2)
(setq  gao_lst2 (vl-sort
         (mapcar '(lambda(x)
            (abs (- dx (vlax-curve-getDistAtPoint obj (list (car (nth 0 x)) (cadr (nth 0 x))))))) gao_lst2)
      '<)
   )

上面的程序执行结果如下：
gao_lst2=((513692.0 322764.0 27.489) (513690.0 322742.0 27.522) (513683.0
322741.0 27.153) (513683.0 322762.0 27.754)); 错误: 参数类型错误: consp 513692.0

这是按照当前位置求最近两个点的坐标，请高手指教，哪里出现了错误，谢谢！

zc1zc2 · 发表于 2021-4-16 23:40:38

(nth 0 x)换成x吗？

jsygsl · 发表于 2021-4-17 06:51:07

本帖最后由 jsygsl 于 2021-4-18 20:52 编辑

多谢指点！这样改完，返回值不是原来的坐标列表，而是一组数值。
gao_lst2=(2.04546 23.919 31.4152 52.8976)
可以这样进行更改：
(setq gao_lst2 (vl-sort (mapcar '(lambda(pt)
                                 ;表gao_lst2中各点里程
                                 (setq lcz (vlax-curve-getDistAtPoint obj (list (car pt) (cadr pt))))
                                 ;各点里程与里程dx差值的绝对值
                                 (setq dx-pt (abs (- lcz dx)))
                                 ;组成新表：'((里程差值绝对值1 点1) (里程差值绝对值2 点2) ... )
                                 (list dx-pt pt)
                              )
                              gao_lst2
                     )
                     ;按与里程DX差值绝对值由小到大排序
                     '(lambda(a b)(< (car a) (car b)))
            )
)
;如果只想得到排序后坐标值，不需要与里程DX差值绝对值，则如下操作
;(setq gao_lst2 (mapcar 'cadr gao_lst2))

hh_lj007 · 发表于 2021-4-20 08:33:19

学习了，谢谢分享

janshyl · 发表于 2021-5-19 07:50:16

感謝分享學習了

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

[求助] 请教高手：排序问题

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