niefenghappy 发表于 2008-6-8 08:17:00

求助　　关于选择集的问题

<p>如何在图中把一个选择集之外的图元全部删除？</p><p>如何查看一个图元处在哪个选择集中？</p>

robbin840311 发表于 2008-6-8 11:06:00

<p>1、建立两个两个选择集，第一个选择集是选择图中所有的图元，第二个选择集即是LZ的选择集，图元在选择集1中，但不在选择集2种，删除。</p><p>2、我第一想法是通过句柄去判断。</p>

niefenghappy 发表于 2008-6-9 19:38:00

<p>关键是第二个选择集是怎么创建？</p>

robbin840311 发表于 2008-6-9 22:36:00

<p>设置一个函数，如果实体在选择集1中，且不在选择集2中，删除。</p><p>选择集2就是LZ你所创建的选择集。</p>

robbin840311 发表于 2008-6-9 22:51:00

<p>我家中电脑没有安装CAD，大概代码如下：</p><p>'创建一个函数，用于判断图元是否在选择集外</p><p>Public Function pOutSelSet(byval pEnt as acadentity,byval pSelSet as acadselectionset) as boolean</p><p>&nbsp; '初始化函数</p><p>&nbsp; pOutSelSet=True</p><p>&nbsp; dim oEnt as acadentity</p><p>&nbsp; for each oEnt in pSelSet</p><p>&nbsp;&nbsp;&nbsp; if pEnt.handle=oEnt.handle then</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;pOutSelSet=False</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; exit for</p><p>&nbsp;&nbsp;&nbsp; else</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; pOutSelSet=True</p><p>&nbsp;&nbsp;&nbsp; end if</p><p>&nbsp; next pEnt</p><p>end function</p><p></p><p>在程序中调用此函数即可。</p>

robbin840311 发表于 2008-6-10 08:23:00

今早来办公室使用此思路，可行！

niefenghappy 发表于 2008-6-10 17:57:00

<p>此方法原理可行，我用一些小图检验可以正确反应，但当我换张大图，图元总数上万的，用这种方法对每个图元循环判断，这样一双循环，CAD立马卡死.......</p><p>而我工作中用的都是这种图元六七万的大图的。谁有更优化的解决方法的？</p>

robbin840311 发表于 2008-6-10 18:17:00

<p>LZ，我对LISP的不熟悉。</p><p>我觉得可以试试LISP中的ssmemb函数试一下。</p><p></p>
页: [1]
查看完整版本: 求助　　关于选择集的问题