PowerDesigner16.5中使用Name生成Comment

PowerDesigner生成数据库脚本时，code转换为数据库中表名及字段，如果将将PDM中的name（一般为中文名称）转换为comment，则生成数据库备注栏显示name（中文名称），方便程序员的使用。将name转化为comment，可使用以下脚本批量完成

1、点击菜单栏Tools – Execute Commands – Run Script

 以下代码将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