ドポメシディライスラチェ... ho trovato questa regola, è un pò di tempo che la uso e non mi ricordo la fonte.. ma la ringrazio molto.
rimuove tutti gli aspetti dall'assieme:
シンタネディケーターコードスニペットのタイトルを文字列 = "excitech ilogic"
'積極的なアセンブリ文書を入手しようとする
dim odoc として アセンブリドキュメント = 何も
お問い合わせ
odoc = このアプリケーション.activeeditdocument
キャッチ
messagebox.show(「このルールはアセンブリから実行する必要があります」、タイトル)
出口のサブ
エンドトライ
dim oadoc アセンブリドキュメント = 何も
パートドキュメント = 何もしない
整数 = odoc.allreferenceddocuments.count
dim odefとしてアセンブリcomponentdefinition = odoc.componentdefinition
ドキュメントとして orefdoc = 何も
dim opartdef として partcomponentdefinition = 何も
dim oasmdef アセンブリとしてcomponentdefinition = 何も
整数 = 0
整数 = 1
'トップレベルクリアオーバーライドコマンド
odef.clearappearanceoverrides() の検索結果
' このアセンブリ文書によって参照されるすべての文書をループ...
odoc.allreferenceddocumentsの各orefdoc
お問い合わせ
このapplication.statusbartext = "&totcount&" コンポーネントの処理
' はパートドキュメントですか?
if orefdoc.documenttype = documenttypeenum.kpartdocumentobject それから
'コンポーネントの定義を取得します。
opartdef = orefdoc.componentdefinition
'最初に材料と同じであるためにトップ レベルの部分の出現を置いて下さい
orefdoc.appearancesourcetype = 外観sourcetypeenum.kmaterialappearance
' 最初にトップレベルの 'クリアな外観オーバーライド' コマンドを試してください
opartdef.clearappearanceoverrides() の検索結果
' 見つかったすべてのオーバーライドオブジェクトにオーバーライドをクリアします。...
opartdef.clearappearanceoverrides(オブジェコール)
このアプリケーション.activeview.update()
'アセンブリ文書ですか?
orefdoc.documenttype = documenttypeenum.kassemblydocumentobject それから
'アセンブリ定義を得る
oasmdef = orefdoc.componentdefinition
' このアセンブリでトップレベル'クリアな外観'コマンドを実行します
このアプリケーション。 statusbartext = "&totcount&" コンポーネントの処理 クリアなアセンブリオーバーライド..."
oasmdef.clearappearanceoverrides() の検索結果
端 もし
カウント += 1
キャッチ
フェイルカウント += 1
エンドトライ
次へ
このアプリケーション.activeview.update()
もしfailcount なら > 0 それから
msgbox(「すべての出現は取除かれました」) & vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vblf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&vbf&&vbf&vbf&vb
"&failcount & "コンポーネント" - これらは読み取り専用であるかもしれません。", タイトル)
その他
msgbox(「すべての出現は取除かれます。」、タイトル)
端 もし
