PowerDesigner16配置显示注释comment配置方法

转载：http://blog.csdn.net/chao_1990/article/details/52620206

无论15还是16.视图中都没有直接设置显示属性字段注释的配置，因此需要通过间接的方式显示注释，操作的流程图如下

原始样式

显示操作

调出执行命令的接口

执行夏利命令

从name替换comment

 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
                   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

从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

 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

最终效果图如下

可以看到图1中的id列已被中文注释替换。