批量选择多段线，最长边独立出来，并删除原多段线。
批量选择多段线，最长边独立出来，并删除原多段线。;;;未考虑圆弧段
(defun c:test(/ i s test2)
(defun test2(e / b d d> i l l2 l3 l4 p1 p2 test)
(defun test(a b / x)(vl-remove-if-not(function(lambda(x)(=(car x)a)))b))
(setq d(entget e))
(setq l(mapcar 'cdr(test 10 d)))
(if(=(cdr(assoc 70 d))1)(setq l2(append l(list(car l))))(setq l2 l))
(setq i 0l3 '())
(repeat(1-(length l2))
(setq p1(nth i l2) p2(nth(1+ i)l2) b(distance p1 p2))
(setq l3(cons(list b p1 p2)l3))
(setq i(1+ i))
)
(setq d>(apply 'max(mapcar 'car l3)))
(setq l4(test d> l3))
(mapcar(function(lambda(x)(entmake(list '(0 . "LINE")(cons 10(car x))(cons 11(cadr x))))))(mapcar 'cdr l4))
(entdel e)
)
(setvar "cmdecho" 0)
(if(setq s(ssget '((0 . "*polyline"))))
(progn
(setq i -1)
(repeat(sslength s)
(test2(ssname s(setq i(1+ i))))
)
)
)
(prin1)
)
请教(真假)多段线首尾相连,判断是长方形还是正方形(判断边长是否相等) 894560869 发表于 2022-2-11 08:04
请教(真假)多段线首尾相连,判断是长方形还是正方形(判断边长是否相等)
四边形，对角线相等为矩形，邻边相等为正方形
页:
[1]