PowerDesigner PDM 复制comment到name

用PowerDesigner反向工程后，部分数据库的字段/表注释并没有生成到实体的name中去，所以在显示时全是code，非常晦涩，下面的代码可以帮你把注释复制到name部分，非常好用

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

Private   sub   ProcessFolder(folder)
On Error Resume Next
      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
                  if col.comment="" then
                  else
                        col.name=   col.comment
                  end if
                  next
            end if
      next

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