XDRX_Region->Curve 函数BUg

牢固

当面域有空洞时，XDRX_Region->Curve转换成曲线后空洞界线实体会丢失！

Free-Lancer

这样是不是就不会丢失了?

1. (defun region->curve (lst / ss->ents objl ss)
   
2.   (defun ss->ents (ss / sl el)
   
3.     (setq sl (sslength ss)
   
4.           i  -1
   
5.     )
   
6.     (repeat sl
   
7.       (setq el (cons (ssname ss (setq i (1+ i))) el))
   
8.     )
   
9.     el
   
10.   )
    
11.   (setq ss (ssadd))
    
12.   (if (= (type lst) 'PICKSET)
    
13.     (setq lst (ss->ents lst))
    
14.   )
    
15.   (setq
    
16.     cl (mapcar
    
17.          '(lambda (a)
    
18.             (mapcar 'vlax-vla-object->ename
    
19.                     (safearray-value (variant-value a))
    
20.             )
    
21.           )
    
22.          (mapcar
    
23.            'vla-explode
    
24.            (mapcar
    
25.              'vlax-ename->vla-object
    
26.              (vl-remove-if
    
27.                '(lambda (x) (/= (cdr (assoc 0 (entget x))) "REGION"))
    
28.                el
    
29.              )
    
30.            )
    
31.          )
    
32.        )
    
33.   )
    
34.   (foreach x cl (foreach y x (ssadd y ss)))
    
35.   ss
    
36. )

(defun region->curve (lst / ss->ents objl ss)<br />   (defun ss->ents (ss / sl el)<br />     (setq sl (sslength ss)<br />           i  -1<br />     )<br />     (repeat sl<br />       (setq el (cons (ssname ss (setq i (1+ i))) el))<br />     )<br />     el<br />   )<br />   (setq ss (ssadd))<br />   (if (= (type lst) 'PICKSET)<br />     (setq lst (ss->ents lst))<br />   )<br />   (setq<br />     cl (mapcar<br />          '(lambda (a)<br />             (mapcar 'vlax-vla-object->ename<br />                     (safearray-value (variant-value a))<br />             )<br />           )<br />          (mapcar<br />            'vla-explode<br />            (mapcar<br />              'vlax-ename->vla-object<br />              (vl-remove-if<br />                '(lambda (x) (/= (cdr (assoc 0 (entget x))) "REGION"))<br />                el<br />              )<br />            )<br />          )<br />        )<br />   )<br />   (foreach x cl (foreach y x (ssadd y ss)))<br />   ss<br /> )

牢固

Free-Lancer 发表于 2013-9-7 10:35
这样是不是就不会丢失了?

程序错了，el 要改成 lst!
嵌套的面域不能炸，需要递归炸一下才行！最后炸开的实体还要pedit连城多段线才好！
代码最好发到Lisp版块去哦！

zjslq

顶顶顶顶顶！！！！！！！！！！！！！！！！！！！！！！！！！！！！

XDSoft

已修正，谢谢！