API生成内部边界的代码

Lispboy

图中演示的是3个封闭圆，如何求出中间的各个独立的边界线

1. (defun c:tt()
   
2.    (if (setq ss (ssget))
   
3.       (progn
   
4.          (setq ss (xdrx_curve_intersectbreak ss);;所有交点处打断
   
5.                ss (xdrx_curve->region ss);;生成REGION
   
6.                ss (xdrx_region->curve ss);;REGION生成封闭的多段线，OVER
   
7.          )
   
8.          (setq i 1);;下面的代码仅仅是演示出生成出来的边界线，用各种不同颜色画出来
   
9.          (foreach n (xdrx_pickset->ents ss)
   
10.             (xdrx_entity_setcolor n i)
    
11.             (xdrx_polyline_setConstantWidth n 10)
    
12.             (setq i (1+ i))
    
13.          )
    
14.       )
    
15.    )
    
16.    (princ)
    
17. )
    
18. 
    

(defun c:tt()<br />    (if (setq ss (ssget))<br />       (progn<br />          (setq ss (xdrx_curve_intersectbreak ss);;所有交点处打断<br />                ss (xdrx_curve->region ss);;生成REGION<br />                ss (xdrx_region->curve ss);;REGION生成封闭的多段线，OVER<br />          )<br />          (setq i 1);;下面的代码仅仅是演示出生成出来的边界线，用各种不同颜色画出来<br />          (foreach n (xdrx_pickset->ents ss)<br />             (xdrx_entity_setcolor n i)<br />             (xdrx_polyline_setConstantWidth n 10)<br />             (setq i (1+ i))<br />          )<br />       )<br />    )<br />    (princ)<br /> )<br /> <br />

q3_2006

cad2010 运行出现错误提示

XDSoft

q3_2006 发表于 2013-8-28 20:17
cad2010 运行出现错误提示

API是用的最新的0825版本吗？

q3_2006

XDSoft 发表于 2013-8-28 20:33
API是用的最新的0825版本吗？

当然，全部最新版！

XDSoft

q3_2006 发表于 2013-8-28 20:54
当然，全部最新版！

上面代码，我在2005,2008,2014测试了，没发现问题。

你把上面代码手动分三行执行，看看哪行出来错误提示了。

1、 (setq ss (xdrx_curve_intersectbreak (ssget)))

2、(setq ss (xdrx_curve->region ss))

3、(setq ss (xdrx_region->curve ss))

st788796

经测试 2012 Ok  Windows 7 32bit

q3_2006

XDSoft 发表于 2013-8-28 21:17
上面代码，我在2005,2008,2014测试了，没发现问题。

你把上面代码手动分三行执行，看看哪行出来错误提 ...

重启CAD后正常了！

清风明月10

谢谢楼主的分享！很好用啊。

ngc

这个应该很好用，下载看看，试试能不能把那个自动填充的做成

jxwlkj

厉害啊，学习了。