lyq2004 发表于 2007-11-13 00:32:00

将某图层上所有实体删除

<p></p><p></p><p>将某图层上所有实体删除，将该层一次端掉</p>

phoenixdjq 发表于 2007-11-13 14:21:00

<p>你的程序有问题呀，不能用</p><p>下面是我做的程序:</p><p>由于匆忙，没有考虑当前层的问题</p><p>(defun c:jj()<br/>(setq ceng (getstring "\n 请输入层名:"))<br/>(setq d (getvar "clayer"))<br/>(if (= d ceng)<br/>(alert "你要删除的层是当前层,只能删除此层实体，无法删除此层")<br/>)<br/>(setq ss (ssget (list (cons 8 ceng ))))<br/>(command "erase" ss "")<br/>(command "purge" "la" ceng "" "y")<br/>)<br/></p>

潘阳科 发表于 2013-1-2 11:48:17

过程看不懂，呵呵
页: [1]
查看完整版本: 将某图层上所有实体删除