PowerDesigner中为Name列生成注释

1、打开PowerDesigner，按Shift + Ctrl + X 打开脚本执行窗口

2、在打开的窗口中执行一下代码

     Option Explicit
     ValidationMode = True
     InteractiveMode = im_Batch

     Dim mdl ' the current model

     ' get the current active model
     Set mdl = ActiveModel
     If (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 mdl
     End If

     ' This routine copy name into code for each table, each column and each view
     ' of the current folder
     Private sub ProcessFolder(folder)
        Dim Tab 'running table
        for each Tab in folder.tables
             if not tab.isShortcut then
                  tab.comment=tab.name
                  Dim col ' running column
                  for each col in tab.columns
                  col.comment= col.name
             next
        end if
   next

   Dim view 'running view
   for each view in folder.Views
      if not view.isShortcut then
         view.comment = 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
        Next
     end sub