共有転載します。https：//blog.csdn.net/u010216641/article/details/48712503は、utm_source = blogxgwz1？
PowerDesignerのケース変換テーブル構造およびフィールド
ステップ：
1）、PowerDesignerのを入力し検索し、メニューバーで、PDMを開き、[ツール] - Excuteコマンド - 編集/スクリプトの実行をした後、name2comment.vbsスクリプトを開きます。
2）、または単にCtrlキーを押しながらスクリプトの実行、スクリプト入力name2content.vbsを起動するには+ Xウィンドウをシフト
（name2comment.vbs）を次のようにコードを実行します。
1）中国語をコメントする名前をコピーします。
オプション 明示的な ValidationMode = 真 InteractiveMode = im_Batch 薄暗い MDL 「現在のモデル 」の現在のモデルを取得 設定 MDL = ActiveModel の場合を（MDLはありませんで 、何も）その後 のMsgBox 「モデル開かない」 のElseIf ない mdl.IsKindOf（PdPDM.cls_Modelを）その後 のMsgBox " 現在のモデルPDMない」 そうで 『呼び出しハンドラ ProcessFolder MDLは 終了し た場合 』ハンドラが呼び出さ プライベート サブProcessFolder（フォルダ）が 暗く タブ 「テーブルを処理する ために 各 タブ にfolder.Tables 」次いでTab.isShortcutない場合、 「Tab.code tab.name = 」テーブル処理を、プレフィックスが前に付加され、小文字 タブ .nameのは= UCase関数を（タブ.nameの） タブ .CODE = UCase関数（タブ.CODE） タブ .comment = タブ.NAME 薄暗い COL ' 列が対処する ために 、各 COL に タブ.Columns ' カラム名とコードすべて小文字、大詩UCase関数の col.code = UCase関数（col.code） col.name = UCase関数（col.name）
『コメント列名』にコピー col.comment = col.name 次に 「IF終了 次の 」プロセスビュー 「 薄暗いビュー」ビューを実行している 「 folder.Viewsの各ビューのためには、 」 その後、view.isShortcutていない場合は 「 view.code = view.name 」 エンドIF 「次 」サブ入る再帰パッケージの 点心をF ' サブフォルダ について それぞれ F でfolder.Packages 場合 ではない f.IsShortcut 次いで ProcessFolder F 終了 場合は 次に エンドサブ
2）コメントターン名中国
オプション 明示的な ValidationMode = 真 InteractiveMode = im_Batch 薄暗い MDL 「現在のモデル 」の現在のモデルを取得 設定 MDL = ActiveModel の場合を（MDLはありませんで 、何も）その後 のMsgBox 「モデル開かない」 のElseIf ない mdl.IsKindOf（PdPDM.cls_Modelを）その後 のMsgBox " 現在のモデルPDMない」 そうで 『呼び出しハンドラ ProcessFolder MDLは 終了し た場合 』ハンドラが呼び出さ プライベート サブProcessFolder（フォルダ）が 暗く タブ 「テーブルを処理する ために 各 タブ にfolder.Tables 」次いでTab.isShortcutない場合、 「Tab.code tab.name = 」テーブル処理を、プレフィックスが前に付加され、小文字 タブ .nameのは= UCase関数を（タブ.nameの） タブ .CODE = UCase関数（タブ.CODE） タブ .comment = タブ.NAME 薄暗い COL ' 列が対処する ために 、各 COL に タブ.Columns ' カラム名とコードすべて小文字、大詩UCase関数の col.code = UCase関数（col.code） col.name = UCase関数（col.name）
『カラム名は、コメント名にコピーされる』 col.name = col.comment 次の 「END IF 次の 」プロセスビュー 「 薄暗いビュー」ビューを実行している 「 folder.Viewsの各ビューのための 」 その後、view.isShortcutていない場合は 「 view.code = view.name 」 エンドIF 「次 」サブ入る再帰パッケージ 薄暗い Fを"サブフォルダ について それぞれ F でfolder.Packages 場合 ではない f.IsShortcut 次いで ProcessFolder F 終了 場合は 次に エンドサブ