清除删除图层(内键五种删除模式)

xyz2009xyz

至少也给个截图看看效果！

sen.sam

分明抢钱的。图层操作没多少技术含量，让有钱人去下！

鏄庨暅浜﹂潪鍙

(vl-load-com)
(Defun c:sc();删除图层内实体
  (setvar "cmdecho" 0)
    (vl-catch-all-apply
    '(lambda()
  (setq la (assoc 8(entget(car(entsel "\n选择要删除的图层")))))
  (setq ss(ssget "x" (list la)))
  (setq len(rtos(sslength ss)2 0))
  (command "erase" ss "")
  (princ (strcat "\n共删除:" (cdr la) "层的"len "个实体"))
       ))
  (princ)
        )
(defun c:sck();删除某名字的块
  (setvar "cmdecho" 0)
    (vl-catch-all-apply
    '(lambda()
  (setq la (assoc 2(entget(car(entsel "\n选择要删除的块")))))
  (setq ss(ssget "x" (list la)))
  (setq len(rtos(sslength ss)2 0))
  (command "erase" ss "")
  (princ (strcat "\n共删除:" len "个" (cdr la)))
  ))
  (princ)
        )

  

鏄庨暅浜﹂潪鍙

发个言，看是不是乱码

jialiang168

鏄庨暅浜﹂潪鍙 发表于 2011-9-25 19:03
(vl-load-com)
(Defun c:sc();删除图层内实体
  (setvar "cmdecho" 0)

13楼的只能删除图元内的实体，但是对块内相同图层的实体就删不掉了。
这样不能有效的清除图层滴。

完整武器

路过 顶一下

xiaxiang

哈哈，FAS文件能下了，就当白费一个币来参观了

jialiang168

xiaxiang 发表于 2011-9-26 11:04
哈哈，FAS文件能下了，就当白费一个币来参观了

你就是要逼我开放。想要源码我就卖贵一点

LLXXZZ

还是那句话， 开源 共享 免费，
我没明经币但我很踏实

mac

楼主的东西的确不错，期待源码！