如何获取矩形或键槽的端点，按顺序标记为p1 p2 p3 p4

75215195

如图，无论矩形或键槽的角度如何，逆时针或顺时针方向顺序获取从直线段开始标记为P1 P2 P3 P4
暨p1-p2 为直线 p2-p3为圆弧 p3-p4为直线 p4-p1为圆弧
以下的代码如何修改？或者新的代码如何实现？
                           (setq e (ssname s 0)
                              plst (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget e)))
                              )
                    (setq plst (vl-sort plst
                                  '(lambda (x1 x2)
                                   (setq p1 (car x1) p3 (cadr x1))
                                   (setq p2 (car x2) p4 (cadr x2))
                                   (if (equal p1 p2 0.001) (> p3 p4) (< p1 p2))  
                                           )
                                )
                        )
                    (setq p1 (nth 1 plst)
                          p2 (nth 3 plst)
                          p3 (nth 2 plst)
                          p4 (nth 0 plst)
                          )

sdf_1234

看不懂是什么?_?

newer

搜索论坛函数，多段线指定起点，逆时针

kqqt6236

论坛有源码。