[编程申请]：删除短线条程序

黑心萝卜

扫描图纸矢量化的结果常常会产生大量的短线条，请求编一下程序，删除这些短线条，这个长度应该由自己来输入！
非常感谢！

eachy

最初由 黑心萝卜 发布
[B]扫描图纸矢量化的结果常常会产生大量的短线条，请求编一下程序，删除这些短线条，这个长度应该由自己来输入！
非常感谢！ [/B]

晓东工具箱－》曲线－》次页－》删超短线。

aeo

2. 
   
3. (defun c:s( / e j len ss mindist)
   
4. (if(setq ss(ssget '((0 . "*line,arc"))))
   
5.   (progn(setq j 0 len(sslength ss))
   
6.     (setq mindist(getdist "\n超短线长度(30):"))
   
7.     (if(not mindist)(setq mindist 30))
   
8.    (while(< j len)(setq e(ssname ss j))
   
9.     (if(<=(vlax-curve-getDistAtPoint
   
10.           (vlax-ename->vla-object  e)
    
11.           (vlax-curve-getEndPoint
    
12.           (vlax-ename->vla-object  e)))
    
13.          mindist
    
14.         )(entdel e))(setq j (1+ j))
    
15.    )
    
16. )))
    

<br /> (defun c:s( / e j len ss mindist)<br /> (if(setq ss(ssget '((0 . "*line,arc"))))<br />   (progn(setq j 0 len(sslength ss))<br />     (setq mindist(getdist "\n超短线长度(30):"))<br />     (if(not mindist)(setq mindist 30))<br />    (while(< j len)(setq e(ssname ss j))<br />     (if(<=(vlax-curve-getDistAtPoint <br />           (vlax-ename->vla-object  e)<br />           (vlax-curve-getEndPoint <br />           (vlax-ename->vla-object  e)))<br />          mindist<br />         )(entdel e))(setq j (1+ j))<br />    )<br /> )))<br />

aeo

*line包扩了*Plolyline
大家,没错,啊!


我贴来贴去只有400贴,不该贴还贴,见谅啊.

msdg

我用过，行！
先删1MM长的短线，然后视情况逐渐加大。这样就不会把有用线条删掉。