xgngg 发表于 2008-8-8 08:12:00

求助高手帮忙编个删除某图层实体的程序

本帖最后由 作者 于 2008-8-8 8:14:01 编辑 <br /><br /> <p>我想请高手编个程序</p><p>要求如下：删除X图层中的除Y图层的封闭多段线外的所有实体图块</p><p>就是要保留与Y图层闭合区域外的所有X图层中的实体，我自己搞了好几天，也没有搞出来</p><p>在这里先谢谢了，程序最好是用VBA</p>

chengzhang 发表于 2008-9-4 09:44:00

<p>请到<a id="blogAdmin" href="http://zml84.blog.sohu.com/">zml84的blog</a>查看“图层操作 的练习.LSP”</p><p>地址：<a href="http://zml84.blog.sohu.com/95443832.html">http://zml84.blog.sohu.com/95443832.html</a></p>

yoyoho 发表于 2008-9-4 10:46:00

<p>;;;请试试这个程序.</p><p>(defun c:dlay(/ ss oldlay en)<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (setq en (entsel "\nSelect Object to del Layer's: "))<br/>&nbsp; (setq oldlay (CDR (assoc 8 (entget (car en)))))<br/>&nbsp; (setq ss (ssget "X" (list (cons 8 oldlay))))<br/>&nbsp; (command "erase" ss "")<br/>)<br/>(prompt "----------------------&lt;&lt; C:DLAY &gt;&gt;-----------------------")<br/>(prin1)</p>

wnimbus 发表于 2008-9-18 09:02:00

<p>能否删除指定图层，强制删除图层</p><p></p><p>谢谢</p>

庞琛虹 发表于 2009-2-6 23:49:00

感谢。。。。
页: [1]
查看完整版本: 求助高手帮忙编个删除某图层实体的程序