点集分组可用于路径计算

dcl1214

很多直线构成的图纸中，从一点找其他点，或者是快速将点分组找到哪些线的端点在一起，本示例可以参考一下，如果谁有速度更快的方法，发上来切磋
本示例还可以找出孤岛线条

1. (DEFUN $dian-ji-fen-zu$        (pts rc lst / a b fzd i pt-fzd zj zj-t)
   
2.                                         ;点集分组
   
3.                                         ;pts 很多的坐标数据
   
4.                                         ;rc 容差
   
5.   (or rc (setq rc 10))
   
6.   (setq        pts (vl-sort pts
   
7.                      (function (lambda (x y)
   
8.                                  (< (car X) (car Y))
   
9.                                )
   
10.                      )
    
11.             )
    
12.   )                                        ;排序
    
13.   (setq pts (vl-remove nil pts))
    
14.   (setq pt-fzd nil)
    
15.   (setq i 1)
    
16.   (while (setq a (car pts))
    
17.     (SETQ ZJ-T NIL)
    
18.     (SETQ fzd NIL)
    
19.     (SETQ zj NIL)
    
20.     (setq old nil)
    
21.     (setq old-cdr nil)                        ;每个点给一个编号
    
22.     (cond
    
23.       (
    
24.        (and (setq
    
25.               old (vl-some (function (lambda (b)
    
26.                                        (if (<= (distance (cadr b) a) rc)
    
27.                                          b
    
28.                                        )
    
29.                                      )
    
30.                            )
    
31.                            pt-fzd
    
32.                   )
    
33.             )
    
34.             (setq fzd (car old))
    
35.             (setq old-cdr (cdr old))
    
36.             (setq old-cdr (cons a old-cdr))
    
37.             (setq pt-fzd (vl-remove old pt-fzd))
    
38.        )
    
39.        (setq pt-fzd (cons (cons fzd old-cdr) pt-fzd))
    
40.       )
    
41.       (t
    
42.        (if (> i 9)
    
43.          (setq fzd (strcat "J" (ITOA i)))
    
44.          (setq fzd (strcat "J0" (ITOA i)))
    
45.        )
    
46.        (setq pt-fzd (cons (cons fzd (list a)) pt-fzd))
    
47.        (setq i (1+ i))
    
48.       )
    
49.     )
    
50.     (setq pts (cdr pts))
    
51.   )
    
52.   (setq pt-fzd (reverse pt-fzd))
    
53.   pt-fzd
    
54. )

(DEFUN $dian-ji-fen-zu$        (pts rc lst / a b fzd i pt-fzd zj zj-t)<br />                                         ;点集分组<br />                                         ;pts 很多的坐标数据<br />                                         ;rc 容差<br />   (or rc (setq rc 10))<br />   (setq        pts (vl-sort pts<br />                      (function (lambda (x y)<br />                                  (< (car X) (car Y))<br />                                )<br />                      )<br />             )<br />   )                                        ;排序<br />   (setq pts (vl-remove nil pts))<br />   (setq pt-fzd nil)<br />   (setq i 1)<br />   (while (setq a (car pts))<br />     (SETQ ZJ-T NIL)<br />     (SETQ fzd NIL)<br />     (SETQ zj NIL)<br />     (setq old nil)<br />     (setq old-cdr nil)                        ;每个点给一个编号<br />     (cond<br />       (<br />        (and (setq<br />               old (vl-some (function (lambda (b)<br />                                        (if (<= (distance (cadr b) a) rc)<br />                                          b<br />                                        )<br />                                      )<br />                            )<br />                            pt-fzd<br />                   )<br />             )<br />             (setq fzd (car old))<br />             (setq old-cdr (cdr old))<br />             (setq old-cdr (cons a old-cdr))<br />             (setq pt-fzd (vl-remove old pt-fzd))<br />        )<br />        (setq pt-fzd (cons (cons fzd old-cdr) pt-fzd))<br />       )<br />       (t<br />        (if (> i 9)<br />          (setq fzd (strcat "J" (ITOA i)))<br />          (setq fzd (strcat "J0" (ITOA i)))<br />        )<br />        (setq pt-fzd (cons (cons fzd (list a)) pt-fzd))<br />        (setq i (1+ i))<br />       )<br />     )<br />     (setq pts (cdr pts))<br />   )<br />   (setq pt-fzd (reverse pt-fzd))<br />   pt-fzd<br /> )

guosheyang

感谢杜总的分享！

chslwj521

guosheyang 发表于 2024-5-6 08:20
感谢杜总的分享！

感谢分享

ynhh

有个实例就好理解了
谢谢