|
发表于 2009-10-11 00:02:47
|
显示全部楼层
来自: 中国台湾
路过,顺手写此程序,希望对你有帮助。
. X7 t! T* w) B6 H* P+ a% S& {(defun c:Dec-DelBlks(/ name ss)
, _ {+ E5 @% V1 ~# s4 z (setq name (getstring "\nBlock name: "): l& f' ~* c. ~' |% i
ss (ssget "x" (list '(0 . "INSERT") (cons 2 name)))( m+ c8 B* [3 ], a( v, A6 g
)
3 r' [# L/ i) P (if ss (command "._ERASE" ss "")): [" [$ N7 a+ J+ E! h `
)
1 O& [, B( `( J: C7 H! _将上述程序码存成lsp档案,在CAD中载入後,执行「Dec-DelBlks」,输入参照块名称,回车,即清除图面上所有此名称的参照块。 |
评分
-
查看全部评分
|