社区 › AutoLISP/Visual LISP 编程技术 › 清除删除图层(内键五种删除模式)

xyz2009xyz 发表于 2011-9-25 17:21:55

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

sen.sam 发表于 2011-9-25 17:31:04

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

鏄庨暅浜﹂潪鍙 发表于 2011-9-25 19:03:12

(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)
        )

鏄庨暅浜﹂潪鍙 发表于 2011-9-25 19:04:00

发个言，看是不是乱码

jialiang168 发表于 2011-9-25 19:54:07

本帖最后由 jialiang168 于 2011-9-25 19:55 编辑

鏄庨暅浜﹂潪鍙 发表于 2011-9-25 19:03 http://bbs.mjtd.com/static/image/common/back.gif
(vl-load-com)
(Defun c:sc();删除图层内实体
(setvar "cmdecho" 0)


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

完整武器 发表于 2011-9-25 21:56:27

路过 顶一下

xiaxiang 发表于 2011-9-26 11:04:14

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

jialiang168 发表于 2011-9-26 11:22:21

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

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

LLXXZZ 发表于 2011-9-26 12:37:57

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

mac 发表于 2011-9-26 12:57:24

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

查看完整版本: 清除删除图层(内键五种删除模式)