![](https://blogimg.goo.ne.jp/img_emoji/nezumi.gif)
VBA文実行コマンドのVBASTMTを使うと、一発で処理可能なようです。
1.コマンドラインに VBASTMT と入力してエンター
2.以下の文を貼り付けてエンター
For Each ent In ThisDrawing.Layers.GetExtensionDictionary("ACAD_LAYERFILTERS"): ent.Delete: Next ent
![](https://blogimg.goo.ne.jp/img_emoji/usagi.gif)
レギュラー版の2006には消去用のコマンドが用意されているようです。
1.コマンドラインに FILTERS と入力してエンター
2.ダイアログが開き【削除するフィルタ】のなかにすべてのフィルタがリストされるので、
保持しておきたいものがあれば名前を選択し、【<】ボタンを選んで【保持するフィルタ】
のリストに移動する
3.【フィルタを削除】ボタンをクリック
※Autodesk -Technical Q&A- に記事が追加になっていました。
_blank>多くの画層フィルタを一括ですべて削除する方法
参考記事:★図面のデータサイズが、異様にデカいんですけど…
【検索キー】
画層/フィルタ/画層フィルター/容量/データサイズ/PURGE/名前削除
http://www.moncler-ray.com/moncler-2015-men/
2006でコマンドが存在していたとは・・・
システム変数と画層プロパティとの組み合わせのみで
行なうものかと思っていました。
φ(。。)メモメモ