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

山联2

插件功能：查找图形内，固定名称的参照块，删除它
4 U! e: p8 Z) ?1 m; _6 N
[ 本帖最后由 山联2 于 2009-9-12 22:03 编辑 ]

十二月

路过，顺手写此程序，希望对你有帮助。
/ z# ~# k: v8 t6 W(defun c:Dec-DelBlks(/ name ss)
7 B, ~3 I% t- T# B  (setq name (getstring "\nBlock name: ")
    ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))
5 R) r" ^$ j& h- d; |6 ?# \5 O  )
' R$ p# }: W$ [1 t5 \  (if ss (command "._ERASE" ss ""))
) T" v, _) \* K! r)
7 q& C1 ^7 U- F将上述程序码存成lsp档案，在CAD中载入後，执行「Dec-DelBlks」，输入参照块名称，回车，即清除图面上所有此名称的参照块。