スクリプトツールの実行には
明示的なオプション ValidationMode = 真 InteractiveMode = im_Batch 薄暗いMDL " 現在のモデル 「現在アクティブなモデルの取得 設定をMDL = ActiveModel (MDLは、何物でも)場合は、 MsgBoxには「何の現在のモデルがありません」 ElseIfないmdl.IsKindOf(PdPDM.cls_Model)次に、 MsgBoxには、「現在のモデルは、物理データモデルではありません。」 エルス ProcessFolder MDL END IF 「各テーブルのコメントにこのルーチンコピー名、各列と現在のフォルダの各ビュー プライベートサブProcessFolder(フォルダ) タブ薄暗い「実行中の表 について、各タブでfolder.tables のIF その後、未tab.isShortcut のIF TRIM(tab.comment)= 『』それから」コメントテーブルには、それは変更されません。ノーコメントテーブルには、入れ名前が追加されていない場合コメントへ。 tab.comment = tab.name エンドIF 薄暗いCOL 「列実行する ための各COL でtab.columnsを IF TRIM(col.comment)= 『』それから」COLコメントが空の場合、それは名前で満たされている、既存の注釈場合、避けるために追加されません。メモは失われている。 col.comment = col.name エンド場合 次 エンド場合 次 薄暗いビュー「ビュー実行する ための各ビューでfolder.Viewsを もしないview.isShortcutと(view.comment)をトリム= 『』その後、 view.comment = view.name エンド場合 次 「サブパッケージに入る 薄暗いF 」フォルダを実行している folder.Packagesでは、各fに対する 場合ではないf.IsShortcutその後、 ProcessFolder F エンド場合 次 End Subの