PowerDesigner将Comment中的字符复制至Name中

使用PowerDesigner的时候,经常会使用到从数据库或者sql文件逆向到PowerDesigner中,但是这样逆向出来的结果是:Name这一列的值等于Code这一列的值,在界面上会默认显示Name和Code。都是英文对用户很不友好,那么有没有什么办法可以将sql中的Comment备注复制到Name中呢?方法很简单,只需要执行下方脚本即可:

在PowerDesigner中使用方法为:
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

然后将下方代码拷贝执行即可。

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

参考文章:https://www.cnblogs.com/galengao/p/5756565.html