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

山联2

插件功能：查找图形内，固定名称的参照块，删除它
( b7 H# W3 k9 F, q9 x5 `0 H% }
$ ^' p- e3 {% j9 k# l. k2 L& j; H[ 本帖最后由 山联2 于 2009-9-12 22:03 编辑 ]

十二月

路过，顺手写此程序，希望对你有帮助。
( _$ |4 E# ]) H$ ?(defun c:Dec-DelBlks(/ name ss)
+ |7 Y2 c! }, S  v! G8 |! \  (setq name (getstring "\nBlock name: ")
% x+ ^2 n9 ~4 w' Y! @) r' ^    ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))
5 H5 f1 ?; v/ Z5 C" r& p* h  )
  (if ss (command "._ERASE" ss ""))
)
将上述程序码存成lsp档案，在CAD中载入後，执行「Dec-DelBlks」，输入参照块名称，回车，即清除图面上所有此名称的参照块。