四边形按方位获取坐标

vitalgg

tanle2020 发表于 2024-2-1 11:46
这是加载了网络自定义函数吧

是的，
原来下面也是从左到右啊。
代码和视频已更正。

kucha007

XXXXXXXXXXXXX

tanle2020

guosheyang 发表于 2024-1-31 20:31
方法一 保证节点方向为顺时针   然后 x从小到大排 x相同时 y从大到小排  确定第一点pt1 多段线节点表中 依 ...

我用这个排序方法实现了，先把四个点表按x排序，然后把最x最小的两个点按y排序得出左上和左下，剩余x最大的两个点同样按y排序得出右上和右下

xyp1964

tanle2020 发表于 2024-2-2 12:48
我用这个排序方法实现了，先把四个点表按x排序，然后把最x最小的两个点按y排序得出左上和左下，剩余x最大 ...

1. (defun abc (pl / ptn ptn1 ptn2 p1 p2 p3 p4)
   
2.   (setq ptn (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget pl)))
   
3.         ptn (vl-sort ptn '(lambda (x y) (> (cadr x) (cadr y))))
   
4.   )
   
5.   (mapcar 'set '(p1 p2 p3 p4) ptn)
   
6.   (setq ptn1 (vl-sort (list p1 p2) '(lambda (x y) (< (car x) (car y))))
   
7.         ptn2 (vl-sort (list p3 p4) '(lambda (x y) (< (car x) (car y))))
   
8.   )
   
9.   (append ptn1 ptn2)
   
10. )
    

(defun abc (pl / ptn ptn1 ptn2 p1 p2 p3 p4)<br />   (setq ptn (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget pl)))<br />         ptn (vl-sort ptn '(lambda (x y) (> (cadr x) (cadr y))))<br />   )<br />   (mapcar 'set '(p1 p2 p3 p4) ptn)<br />   (setq ptn1 (vl-sort (list p1 p2) '(lambda (x y) (< (car x) (car y))))<br />         ptn2 (vl-sort (list p3 p4) '(lambda (x y) (< (car x) (car y))))<br />   )<br />   (append ptn1 ptn2)<br /> )<br />

1. (defun abc2 (pl / ptn pptn1 ptn2 p1 p2 p3 p4)
   
2.   (setq ptn (mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget pl)))
   
3.         ptn (vl-sort ptn '(lambda (x y) (< (car x) (car y))))
   
4.   )
   
5.   (mapcar 'set '(p1 p2 p3 p4) ptn)
   
6.   (setq ptn1 (vl-sort (list p1 p2) '(lambda (x y) (> (cadr x) (cadr y))))
   
7.         ptn2 (vl-sort (list p3 p4) '(lambda (x y) (> (cadr x) (cadr y))))
   
8.   )
   
9.   (list (car ptn1) (car ptn2) (cadr ptn1) (cadr ptn2))
   
10. )
    

(defun abc2 (pl / ptn pptn1 ptn2 p1 p2 p3 p4)<br />   (setq ptn (mapcar 'cdr(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget pl)))<br />         ptn (vl-sort ptn '(lambda (x y) (< (car x) (car y))))<br />   )<br />   (mapcar 'set '(p1 p2 p3 p4) ptn)<br />   (setq ptn1 (vl-sort (list p1 p2) '(lambda (x y) (> (cadr x) (cadr y))))<br />         ptn2 (vl-sort (list p3 p4) '(lambda (x y) (> (cadr x) (cadr y))))<br />   )<br />   (list (car ptn1) (car ptn2) (cadr ptn1) (cadr ptn2))<br /> )<br />