删除短线

hehoubin

请大侠帮忙写个程序。
删除长度 = 0.1~0.5 MM之间的直线。

谢谢

llsheng_73

1. (defun c:XX(/ ss a);;命令自己改
   
2.   (defun SstoEs(ss / a en lst)
   
3.     (if ss(progn(setq a -1)
   
4.             (while(setq en(ssname ss(setq a(1+ a))))(setq lst (cons en lst)))))
   
5.     lst)
   
6.   (setq ss(SstoEs(ssget"X"'((0 . "LINE")))))
   
7.   (foreach a ss
   
8.      (if(<= 0.0001(vlax-get-property(vlax-ename->vla-object a) 'Length) 0.0005)(entdel a));;距离自己调整
   
9.     ))

(defun c:XX(/ ss a);;命令自己改<br />   (defun SstoEs(ss / a en lst)<br />     (if ss(progn(setq a -1)<br />             (while(setq en(ssname ss(setq a(1+ a))))(setq lst (cons en lst)))))<br />     lst)<br />   (setq ss(SstoEs(ssget"X"'((0 . "LINE")))))<br />   (foreach a ss<br />      (if(<= 0.0001(vlax-get-property(vlax-ename->vla-object a) 'Length) 0.0005)(entdel a));;距离自己调整<br />     ))

wszxf

(defun c:tt (/ LINE-LENGTH N SS SS_N)
  (setq ss (ssget '((0 . "line"))))
  (setq n -1)
  (repeat (sslength ss)
    (setq ss_n (Vlax-Ename->Vla-Object (ssname ss (setq n (1+ n)))))
    (setq line-length (vla-get-length ss_n))
    (if        (and (> line-length 0.1)
             (< line-length 0.5)
        )
      (vla-delete ss_n)
    )
  )
  (princ)
)

hehoubin

谢谢 !!!非常管用。

香田里浪人

只能删除直线不能删除多义线

llsheng_73

香田里浪人 发表于 2013-11-17 19:43
只能删除直线不能删除多义线

人家需要的是“删除长度.............. 的直线”
如果要别的线(setq ss(SstoEs(ssget"X"'((0 . "*LINE")))))

wxa123wl

受用了！刚刚改了一下，用的上