onlooker 发表于 2018-3-11 09:42:46

求助！请问论坛的各位大神，坐标点如何按y坐标分组，急用

((0.0 0.0 0.0) (15.0 0.0 0.0) (0.0 0.0 0.0) (15.0 15.0 0.0) (15.0218 15.0
0.0) (0.0 20.8341 0.0) (30.0 30.0 0.0) (40.0 30.0 0.0) (60.0 55.0 0.0) (90.0
80.0 0.0) (80.0 80.0 0.0) (90.0 90.0 0.0) (100.0 90.0 0.0) (100.0 100.0 0.0)
(79.5591 100.0 0.0))

情迷法兰西0 发表于 2018-4-20 13:19:29


(setq lst '((0.0 0.0 0.0)
      (15.0 0.0 0.0)
      (0.0 0.0 0.0)
      (15.0 15.0 0.0)
      (15.0218 15.0 0.0)
      (0.0 20.8341 0.0)
      (30.0 30.0 0.0)
      (40.0 30.0 0.0)
      (60.0 55.0 0.0)
      (90.0 80.0 0.0)
      (80.0 80.0 0.0)
      (90.0 90.0 0.0)
      (100.0 90.0 0.0)
      (100.0 100.0 0.0)
      (79.5591 100.0 0.0)))
(defun JC-tt(lst)(mapcar'(lambda(x)(vl-remove-if-not'(lambda(y)(= x (cadr y)))lst))(vl-sort (jc-remove (mapcar'cadr lst))'<)))
(defun jc-remove(lst / X LSTX)(while (setq x(car lst))(setq lst(vl-remove x lst))(setq lstx(cons x lstx)))(reverse lstx))

onlooker 发表于 2023-9-24 15:00:31

情迷法兰西0 发表于 2018-4-20 13:19


谢谢你的回复
页: [1]
查看完整版本: 求助！请问论坛的各位大神，坐标点如何按y坐标分组，急用