快速删除“参照块”的插件

山联2

插件功能：查找图形内，固定名称的参照块，删除它
+ O+ I) W& @0 D; T$ u* _. [
[ 本帖最后由 山联2 于 2009-9-12 22:03 编辑 ]

十二月

路过，顺手写此程序，希望对你有帮助。
(defun c:Dec-DelBlks(/ name ss)
" c  ]  Q% V/ Q/ L6 Y7 y  (setq name (getstring "\nBlock name: ")
    ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))
+ M7 S) v0 o8 K2 q  l: Q  )
, J, F% f* L) [: {" Z" p# Z8 @$ r3 e  (if ss (command "._ERASE" ss ""))
2 k; E2 f0 U8 ^0 L)
- w6 z1 R! V, M. Y2 v  h7 m0 s  k将上述程序码存成lsp档案，在CAD中载入後，执行「Dec-DelBlks」，输入参照块名称，回车，即清除图面上所有此名称的参照块。