求一个删除短线的程序

xxdxx001

求一个删除短线的程序，要可以自己选择删除多长的短线

1993063

(vl-load-com)
(defun C:dell (/ ee i minl ss)
  (setq MinL (getdist "\n直线长:"))
  (while (setq ss (ssget ":s" '((0 . "LINE")))
               i 0
         )
    (while (setq ee (ssname ss i))
      (cond
        ((> (vlax-get-property (vlax-ename->vla-object ee) 'Length) MinL))
        (T
          (entdel ee)
        )
      )
      (setq i (1+ i))
    )
  )
  (princ)
)

清风明月名字

谢谢2楼楼主！又学一招。

xxdxx001

1993063 发表于 2013-6-17 23:32
(vl-load-com)
(defun C:dell (/ ee i minl ss)
  (setq MinL (getdist "\n直线长:"))

这个只能删掉直线，弧线删除不了.能不能再改下

陈亚娣