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

山联2 · 发表于 2009-9-12 15:09:09

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

插件功能：查找图形内，固定名称的参照块，删除它

[ 本帖最后由山联2 于 2009-9-12 22:03 编辑 ]

十二月 · 发表于 2009-10-11 00:02:47

路过，顺手写此程序，希望对你有帮助。
(defun c:Dec-DelBlks(/ name ss)
  (setq name (getstring "\nBlock name: ")
ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))
  )
  (if ss (command "._ERASE" ss ""))
)
将上述程序码存成lsp档案，在CAD中载入後，执行「Dec-DelBlks」，输入参照块名称，回车，即清除图面上所有此名称的参照块。

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

通知

[已答复] 快速删除“参照块”的插件

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分