QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2044|回复: 1
收起左侧

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

[复制链接]
发表于 2009-9-12 15:09:09 | 显示全部楼层 |阅读模式 来自: 中国江苏扬州

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

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

x
插件功能:查找图形内,固定名称的参照块,删除它! B, p9 ?% F" _) u+ O2 x, {% O
, o+ o1 |; F: h3 a3 U9 T
[ 本帖最后由 山联2 于 2009-9-12 22:03 编辑 ]
发表于 2009-10-11 00:02:47 | 显示全部楼层 来自: 中国台湾
路过,顺手写此程序,希望对你有帮助。& o$ B% ?6 ^8 [" ~& J$ `+ U1 K7 e
(defun c:Dec-DelBlks(/ name ss), G$ p5 d' ^8 f9 N" W3 u$ K
  (setq name (getstring "\nBlock name: ")
4 Y$ U# P, y  A5 y2 Y: _' X# Z    ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))/ V( A' v. |( z
  )
1 E5 y& s5 v1 X& b, b; L1 k+ j  (if ss (command "._ERASE" ss ""))- J+ E! r2 Q/ L3 T
)
- R: G/ _- E4 L( ?6 z" U  M将上述程序码存成lsp档案,在CAD中载入後,执行「Dec-DelBlks」,输入参照块名称,回车,即清除图面上所有此名称的参照块。

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表