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

xgngg

我想请高手编个程序

要求如下：删除X图层中的除Y图层的封闭多段线外的所有实体图块

就是要保留与Y图层闭合区域外的所有X图层中的实体，我自己搞了好几天，也没有搞出来

在这里先谢谢了，程序最好是用VBA

chengzhang

请到zml84的blog查看“图层操作 的练习.LSP”

地址：http://zml84.blog.sohu.com/95443832.html

yoyoho

;;;请试试这个程序.

(defun c:dlay(/ ss oldlay en)
  (setvar "cmdecho" 0)
  (setq en (entsel "\nSelect Object to del Layer's: "))
  (setq oldlay (CDR (assoc 8 (entget (car en)))))
  (setq ss (ssget "X" (list (cons 8 oldlay))))
  (command "erase" ss "")
)
(prompt "----------------------<< C:DLAY >>-----------------------")
(prin1)

wnimbus

能否删除指定图层，强制删除图层

谢谢

庞琛虹

感谢。。。。