点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22

fayadetudou · 发表于 2023-10-24 15:55

大儒的程序，一定要顶啊。

hubeiwdlue · 发表于 2023-11-1 09:31

谢谢黄大师的分享，这个函数太有用了。

飞的鱼儿 · 发表于 2023-12-23 09:12

谢谢大师，非常有用。

mojianxing · 发表于 2023-12-25 23:20

黄大师的作品，期待。

纵横八方 · 发表于 2024-3-30 17:04

点个赞，再加上往返排序 8式就完美了

tanjurun · 发表于 2024-3-31 12:08

是一个不错的思路。好东西

自贡黄明儒 · 发表于 2024-4-1 09:48

本帖最后由自贡黄明儒于 2024-4-1 11:02 编辑

纵横八方发表于 2024-3-30 17:04
点个赞，再加上往返排序 8式就完美了

;;x弓形排序
(defun C:t1 ()
  (setq L nil)
  (setq ss (ssget))
  ;;Y从大到小，X从大到小
  (setq L1 (HH:ssPts:Sort ss "YX" 0.1))

  (while L1
;;取最上一排
(setq e (car L1));右上角
(setq L1 (HH:ssPts:Sort L1 "Yx" 0.1))
(while (and       (setq a (car L1))
            (setq L (cons a L))
            (setq L1 (cdr L1))
            (not (equal a e))
         )
)
;;左上角第一个
(setq e (car L1));左上角
(setq L1 (HH:ssPts:Sort L1 "YX" 0.1))
(while (and       (setq a (car L1))
            (setq L (cons a L))
            (setq L1 (cdr L1))
            (not (equal a e))
         )
)
  )
  (setq L (reverse L))

  ;;验证
  (setq n 0)
  (foreach x L
(setq n (1+ n))
(entmod (append (entget x) (list (cons 1 (itoa n)))))
  )
)

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

[源码] 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22