PowerDesigner同時顯示Name和Code所用vb代碼

'******************************************************************************'* File:     comment2stereotype.vbs'* Purpose:  Database generation cannot use object names anymore'            in version 7 and above.'            It always uses the object codes.''            In case the object codes are not aligned with your'            object names in your model, this script will copy'            the object Name onto the object comment for'            the Tables and Columns.''* Title:    把對象comment拷入stereotype屬性中'* Version:  1.0'* Author：'* 執行方法：開啟PDM  功能表列Tools --  Execute Commands -- Edit/Run Script(快速鍵：Ctrl+Shift+X)'******************************************************************************Option ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl ' the current model' get the current active modelSet mdl = ActiveModelIf (mdl Is Nothing) Then   MsgBox "There is no current Model"ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then   MsgBox "The current model is not an Physical Data model."Else   ProcessFolder mdlEnd If' This routine copy name into code for each table, each column and each view' of the current folderPrivate sub ProcessFolder(folder)   Dim Tab 'running  table   for each Tab in folder.tables      if not tab.isShortcut then         'tab.name = tab.comment         Dim col ' running column         for each col in tab.columns            col.stereotype = col.name         next      end if   next   Dim view 'running view   for each view in folder.Views      if not view.isShortcut then         view.stereotype = view.name      end if   next   ' go into the sub-packages   Dim f ' running folder   For Each f In folder.Packages      if not f.IsShortcut then         ProcessFolder f      end if   Nextend sub