 - (DEFUN HH:delBLOCKs (ss dxf / e en k lst)
- (repeat(setq dxf(append'(-1 5)dxf)
- k (sslength ss))
- (if(member(setq k(1- k)
- e(ssname ss k)
- en(vl-remove-if'(lambda(x)(member(car x)dxf))(entget e)))
- lst)
- (entdel e)
- (setq lst(cons en lst))))
- )
在黄大师程序基础上进行了小修改,加了一个表作为参数用以控制需要忽略的DXF组,如果不需要,该参数用NIL
(HH:DELBLOCKS(ssget)nil)
(HH:DELBLOCKS(ssget)'(6 8))忽略线型和图层 |