xxdxx001 发表于 2013-6-17 22:32:51

求一个删除短线的程序

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

1993063 发表于 2013-6-17 23:32:38

(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)
)

清风明月名字 发表于 2013-6-18 08:26:27

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

xxdxx001 发表于 2013-6-18 09:55:08

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


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

陈亚娣 发表于 2013-6-19 14:52:39

页: [1]
查看完整版本: 求一个删除短线的程序