PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

很多人都会想在使用PowerDesigner设计完数据库时自动将name列值在输出时自动复制到comment列

运行脚本 Tools->Execute Commands->Edit/Run Scripts（快捷键：Ctrl+Shift+X）

VB脚本如下：

' 把pd中那么name想自动添加到comment里面
'如果comment为空,则填入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
' This routine copy name into comment 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
    if trim(tab.comment)= ""  then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.
       tab.comment = tab.name
    end if
 Dim  col ' running column
 for each col in tab.columns
  if trim(col.comment)= ""  then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.
   col.comment= col.name
  end if
 next
  end if
 next

 Dim  view 'running view
 for each view in folder.Views
  if not view.isShortcut and trim(view.comment)= ""   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