点集中最近两点-->>(距离 (p1 p2))

guosheyang

guosheyang 发表于 2025-7-24 12:15
好像高飞鸟版主也写过这个

哦  记错了  是递归哥   曾经写过

韩飞翔

gzxl 发表于 2025-7-24 21:18
综合经验来说（个人观点），lisp 与 arx 以一万个点求解最近点对的话，在同一算法基础上两者速度综合约10~2 ...

;测试代码；直接复制到命令行；同时加载那个vlx文件；看看大概差多少
(defun c:tt(/ fx-ssget-10pt-ptn fx-time-st l ptn)
        (defun fx-ssget-10pt-ptn (ss / i l a b c)
                (setq i 0)
                (if ss
                        (repeat (sslength ss)
                                (setq a (ssname ss i))
                                (setq i (1+ i))
                                (setq b (entget a))
                                (setq c (cdr (assoc 10 b)))
                                (setq l (cons c l))
                        )
                )
                (reverse l)
        )
        (setq ptn (fx-ssget-10pt-ptn (ssget '((0 . "point")))))
        (setq fx-time-st (car (_vl-times)))
        (setq l (fx-ptn-minNear2pt ptn t))       
        (if fx-time-st (print (strcat "花费" (rtos (* 0.001 (- (car (_vl-times)) fx-time-st)) 2 4) "秒")))
        (vl-princ-to-string l)
)

gzxl

guosheyang 发表于 2025-7-25 09:01
哦  记错了  是递归哥   曾经写过

高大侠写过。
http://bbs.mjtd.com/forum.php?mo ... E%D0%A1%BE%E0%C0%EB