(XD::Polyline:RemoveALLFillet)清除LWPOLYLINE所有的倒角（C角/F角）到尖角

newer

该函数应用程序，非模式对话框批量倒角插件，见：http://bbs.xdcad.net/thread-671374-1-1.html

1. ;|
   
2. 清除所有的倒角（C角/F角）到尖角
   
3. 参数：
   
4.    E --- LWPOLYLINE
   
5. 返回值：
   
6.    成功T，否NIL
   
7. |;
   
8. (defun XD::Polyline:RemoveALLFillet (e / i num)
   
9.   (setq xdata (xdrx_xdata_get e "XD_FILLET"))
   
10.   (if xdata
    
11.     (progn
    
12.       (while (setq xdata (xdrx_xdata_get e "XD_FILLET"))
    
13.         (XD::Polyline:RemoveFillet e (car xdata) 0)
    
14.       )
    
15.       t
    
16.     )
    
17.   )
    
18. )
    

;|<br /> 清除所有的倒角（C角/F角）到尖角<br /> 参数：<br />    E --- LWPOLYLINE<br /> 返回值：<br />    成功T，否NIL<br /> |;<br /> (defun XD::Polyline:RemoveALLFillet (e / i num)<br />   (setq xdata (xdrx_xdata_get e "XD_FILLET"))<br />   (if xdata<br />     (progn<br />       (while (setq xdata (xdrx_xdata_get e "XD_FILLET"))<br />         (XD::Polyline:RemoveFillet e (car xdata) 0)<br />       )<br />       t<br />     )<br />   )<br /> )<br />