自交的多段线转成mpolygon后再转region出错

xinxirong

1. (defun c:xdtb_mpconvert (/ ss len)
   
2.   (xdrx_begin)
   
3.   (if (not #xd_var_mpolygon_oper)
   
4.     (setq #xd_var_mpolygon_oper "H")
   
5.   )
   
6.   (xdrx_initget "H C R")
   
7.   (if (setq sel        (getkword (xdrx_prompt
   
8.                             "\n选取转出方式[填充(H)/多段线(C)/面域(R)<"
   
9.                             #xd_var_mpolygon_oper
   
10.                             ">:" t
    
11.                           )
    
12.                 )
    
13.       )
    
14.     (setq #xd_var_mpolygon_oper sel)
    
15.   )
    
16.   (if (and (xdrx_initssget "\n选择要转换的MPOLYGON实体<退出>:")
    
17.            (setq ss (xdrx_ssget '((0 . "MPOLYGON"))))
    
18.       )
    
19.     (progn
    
20.       (setq len (sslength ss))
    
21.       (cond
    
22.         ((= #xd_var_mpolygon_oper "H")
    
23.          (xdrx_mpolygon->hatch ss)
    
24.         )
    
25.         ((= #xd_var_mpolygon_oper "C")
    
26.          (xdrx_mpolygon->polyline ss)
    
27.         )
    
28.         ((= #xd_var_mpolygon_oper "R")
    
29.          (xdrx_mpolygon->region ss)
    
30.         )
    
31.       )
    
32.       (xdrx_prompt "\n操作完成! 转换了" len "个MPOLYGON。")
    
33.     )
    
34.   )
    
35.   (xdrx_end)
    
36.   (princ)
    
37. )
    

(defun c:xdtb_mpconvert (/ ss len)<br />   (xdrx_begin)<br />   (if (not #xd_var_mpolygon_oper)<br />     (setq #xd_var_mpolygon_oper "H")<br />   )<br />   (xdrx_initget "H C R")<br />   (if (setq sel        (getkword (xdrx_prompt<br />                             "\n选取转出方式[填充(H)/多段线(C)/面域(R)<"<br />                             #xd_var_mpolygon_oper<br />                             ">:" t<br />                           )<br />                 )<br />       )<br />     (setq #xd_var_mpolygon_oper sel)<br />   )<br />   (if (and (xdrx_initssget "\n选择要转换的MPOLYGON实体<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "MPOLYGON"))))<br />       )<br />     (progn<br />       (setq len (sslength ss))<br />       (cond<br />         ((= #xd_var_mpolygon_oper "H")<br />          (xdrx_mpolygon->hatch ss)<br />         )<br />         ((= #xd_var_mpolygon_oper "C")<br />          (xdrx_mpolygon->polyline ss)<br />         )<br />         ((= #xd_var_mpolygon_oper "R")<br />          (xdrx_mpolygon->region ss)<br />         )<br />       )<br />       (xdrx_prompt "\n操作完成! 转换了" len "个MPOLYGON。")<br />     )<br />   )<br />   (xdrx_end)<br />   (princ)<br /> )<br />

第一次提示出错，第二次直接崩溃eWasOpen。

newer

之前用 xdrx_polyline_isselfintersect 判断下多段线是否自交。