・ 画層フィルタを削除

画層フィルタは ＡＣＡＤ2005 以降ならば、100を越えると自動的に削除されるらしい
それ以下のバージョンだと、ほとんどバグに近い存在となっています。
これを削除するには・・・・

(defun Jo_layfilter_del ( / en )
  (if (and (setq en (cdr (assoc 330 (entget (tblobjname "LAYER" "0"))))) ;LAYERテーブルオブジェクト;
	   (setq en (cdr (assoc 360 (entget en))));オーナーディクショナリー;
	   )
    (entdel (cdr (assoc -1 (dictsearch en "ACAD_LAYERFILTERS"))));画層フィルタオブジェクトの削除;
    )
  )

しかし、いろんな方が、もっと高機能なのを作って、公開しておりますので、σ(^^)もそちらを使わせてもらってます。

画層名を指定して削除できる（ワイルドカード使用可） hanafusa さんのLayFilterDelete.lsp
http://www1.harenet.ne.jp/~hanafusa/blog/archives/000039.html

画層フィルター以外にもグループやブロックなどさまざまなゴミデータに対応している Junさんの apurge.vlx
http://www.aug.gr.jp/cgi-bin/member/filearea/library.cgi?mode=view&id=000085
    （注　このURLは AUG-JPのダウンロードページで、ご利用には会員登録が必要です）
会員登録はこちら↓
http://www.aug.gr.jp/join/