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

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

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

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

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

谢谢大师，非常有用。

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


黄大师的作品 ，期待。

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

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

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

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

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

本帖最后由 自贡黄明儒 于 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)))))
)
)

hn10183051 发表于 2024-6-27 08:59:38

很强的排序
页: 52 53 54 55 56 57 58 59 60 61 [62]
查看完整版本: 点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22