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

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
(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
哈哈，FAS文件能下了，就当白费一个币来参观了

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

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

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

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

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

账号		自动登录	找回密码
密码			注册

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

点评