GetoffsetCurves 自动判断内外带来的问题

st788796

看这个程序，凸形都Ok，对凹形（右下角圆弧段形状）退化到一定情况下就会反方向 offset 造成死循环

1. (defun c:tt (/ ss)
   
2.   (defun getoffset (e d /)
   
3.     (xdrx_pickset->ents (xdrx_curve_getoffsetcurves e d))
   
4.   )
   
5.   (if (setq ss (ssget '((0 . "LWpolyline"))))
   
6.     (mapcar
   
7.       '(lambda (x / el nl)
   
8.          (if (setq el (getoffset x -10))
   
9.            (while el
   
10.              (mapcar
    
11.                '(lambda        (a)
    
12.                   (if (setq nl (getoffset a -10))
    
13.                     (setq el (append el nl))
    
14.                     (setq el (cdr el))
    
15.                   )
    
16.                 )        
    
17.                el
    
18.              )
    
19.              (setq el (cdr el))
    
20.            )
    
21.          )
    
22.          (setq el nil nl nil)
    
23.        )
    
24.       (xdrx_pickset->ents ss)
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    

(defun c:tt (/ ss)<br />   (defun getoffset (e d /)<br />     (xdrx_pickset->ents (xdrx_curve_getoffsetcurves e d))<br />   )<br />   (if (setq ss (ssget '((0 . "LWpolyline"))))<br />     (mapcar<br />       '(lambda (x / el nl)<br />          (if (setq el (getoffset x -10))<br />            (while el<br />              (mapcar<br />                '(lambda        (a)<br />                   (if (setq nl (getoffset a -10))<br />                     (setq el (append el nl))<br />                     (setq el (cdr el))<br />                   )<br />                 )        <br />                el<br />              )<br />              (setq el (cdr el))<br />            )<br />          )<br />          (setq el nil nl nil)<br />        )<br />       (xdrx_pickset->ents ss)<br />     )<br />   )<br />   (princ)<br /> )<br />

st788796

补充一个 Radius = 10 的 Circle
(xdrx_curve_getoffsetcurves circle -10) 出现 警告框