批量选择多段线，最长边独立出来，并删除原多段线。

vladimirputin

批量选择多段线，最长边独立出来，并删除原多段线。

xtjd

;;;未考虑圆弧段
(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 0  l3 '())
    (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

请教(真假)多段线首尾相连,判断是长方形还是正方形(判断边长是否相等)

xtjd

894560869 发表于 2022-2-11 08:04
请教(真假)多段线首尾相连,判断是长方形还是正方形(判断边长是否相等)

四边形，对角线相等为矩形，邻边相等为正方形