求平面全等直线段封闭多边形最佳算法

kkq0305

mahuan1279 发表于 2023-3-24 11:37
平移或旋转：图形相似+对应初始边长相等=两图全等

镜像：共轭取反---逆向除法----图形相似+对应初始边 ...

群论

kkq0305

你这个代码写得 好多都是重复计算  优化下速度应该挺快   一个表要重复求好多次  没有保存起来   对比一次求一次  我之前也用向量对比  不过比你这个快

xyp1964

1. (defun c:tt ()
   
2.   (if (setq ss (ssget '((0 . "*polyLINE"))))
   
3.     (progn
   
4.       (setq lst (mapcar '(lambda (x) (list (length (xyp-Vertexs x 0))(rtos (xyp-Get "area" x) 2 2)(rtos (xyp-CurveLength x) 2 2)))(xyp-Ss2List ss))
   
5.             lst (vl-remove-if '(lambda (x) (< (cadr x) 4)) (xyp-list-count lst))
   
6.       )
   
7.       (princ lst)
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )

(defun c:tt ()<br />   (if (setq ss (ssget '((0 . "*polyLINE"))))<br />     (progn<br />       (setq lst (mapcar '(lambda (x) (list (length (xyp-Vertexs x 0))(rtos (xyp-Get "area" x) 2 2)(rtos (xyp-CurveLength x) 2 2)))(xyp-Ss2List ss))<br />             lst (vl-remove-if '(lambda (x) (< (cadr x) 4)) (xyp-list-count lst))<br />       )<br />       (princ lst)<br />     )<br />   )<br />   (princ)<br /> )

正能量的一诺

直接获取图形顶点判断应该就可以了，速度快，还准