mahuan1279 发表于 2023-3-24 11:37
平移或旋转：图形相似+对应初始边长相等=两图全等
镜像：共轭取反---逆向除法----图形相似+对应初始边 ...
群论{:1_1:}
本帖最后由 kkq0305 于 2023-4-14 09:17 编辑
你这个代码写得 好多都是重复计算优化下速度应该挺快 一个表要重复求好多次没有保存起来 对比一次求一次我之前也用向量对比不过比你这个快
本帖最后由 xyp1964 于 2023-4-17 13:33 编辑
(defun c:tt ()
(if (setq ss (ssget '((0 . "*polyLINE"))))
(progn
(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))
lst (vl-remove-if '(lambda (x) (< (cadr x) 4)) (xyp-list-count lst))
)
(princ lst)
)
)
(princ)
)
直接获取图形顶点判断应该就可以了，速度快，还准